Ява - Java

Для масштабного корпоративного веб-проекта есть два основных варианта: ява и дотнет. Я долго прикидывал последствия выбора того, другого...
Решил заняться явой. Чует моя ж... что скоро это мне понадобится.
Первые опыты (на самом деле вторые, с явой я уже работал в девяностых):
Java:Обзор серверных технологий

Сколько программеров писали Windows Vista

Прочитал в журнале: в Виста 50 000 000 строк кода, и делали ее около 5 лет.
Вот я посчитал, на калькуляторе: один программист в норме пишет 200 строк отлаженного кода в день,
тогда 50 000 000 / 200 = 250 000 дней одному программисту, или 961.5 лет.

Ладно, значит 1000 программистов напишут Висту за 1 год.
Значит, реально, за пять лет 200 программистов ее писали.

А в той заметке было написано "... тысячи специалистов...". Вот я и думаю, насколько неэффективно работают большие организации...
Да, не нужно меня пинать.

QnA или Вопросы и Ответы

Слыхал я, что Google прикрывает свой сервис "вопросы и ответы". Мол - не получилось. А вот у меня появилась мысль, можно сказать "бизнес-модель" такого сервиса.

Представьте: спрашивающий (пользователь) заходит на сайт, где есть сервис ответов на вопросы. Регистрируется (аутентифицируется) и заливает на счет посредника (он же сервис) 30 рублей. Сразу после этого может записать свой вопрос. 30 рублей минимальная цена, можно заплатить больше, тогда вопрос будет более приоритетным.

Хорошо, вопрос попадает в очередь вопросов и желающие заработать (эксперты, или отвечающие) 30 рублей (или сколько не пожалел вопрошающий) начинают публиковать ответы. Через некоторое время, скажем, сутки, вопрошающий выбирает лучший ответ и тот ответивший, на кого пал выбор получает денюжку. Если вопрошающий за сутки не определился с выбором, денюжка определяется ... тут пока нет ясности, вариантов несколько: можно положить 30 р. в накопительный фонд и потом лотерейно определять отвечающего, кому перевести накопленное; можно путем голосования отвечающих (или вопрошающих) определить победителя, скажем "эксперт месяца", и ему отдать банк; можно отдать самому востребованному в этом месяце эксперту (чьи ответы были лучшими и ответов было много...); по разному. Можно даже варьировать эти варианты из месяца в месяц.

Но это еще не всё. Далее, вопрошающий может запросить эксперта уточнить - детализировать ответ, за 300 рублей. Но только после оплаты первого варианта ответа за 30 р. Приоритет получает эксперт, которого вопрошающий признал лучшим на первом этапе. Если эскперт за назначенное время не справляется или отказывается, вопрос попадает в общий пул вопросов за 300 р.
И так далее, 3000 р., 30 000 р. ...

Думаю, идея понятна. Сервис живет за комиссионные 10% - 20%
Если есть вопросы, давайте обсудим, на мой взгляд, вполне жизнеспособно. Сам бы занялся, если б не был таким ленивым.

Расстояние между двумя точками, эллипсоид. Не новость конечно, но народ интересуется часто

Очередной раз столкнулся с задачей поточнее посчитать расстояние между двумя точками на местности. Некоторые скажут "боян"... да и хрен с ними. Короче, кто до сих пор не знает как посчитать расстояние на эллипсоиде - прошу:

Координаты в десятичных градусах, типа долгота lon: 37.53 широта lat: 55.40. Результат в метрах а заодно и азимут направления движения в градусах от 0 до 360.
Тем кто с GPS работает - нужно часто. Правда еще нужно уметь перевести координаты из NMEA записи в десятичные градусы, это для пятого класса задача... ладно, сначала переведем NMEA запись координат в градусы:

function nmea2DecDegree($nmeaCoord) { // decimal(9,7), convert nmea ddmm.mmmm (dddmm.mmmm) to decimal degree
    $res = 0.0;
    $pp = strpos($nmeaCoord, '.');
    if ($pp === false || $pp <>

    $d = substr($nmeaCoord, 0, $pp-2);
    $m = substr($nmeaCoord, $pp-2);
    $res = (double)$d + ((double)$m / 60.0);
    return $res;
}

ну а теперь посчитаем расстояние в метрах и азимут в градусах:

function calcDistance ($StartLat, $StartLon, $EndLat, $EndLon) { // array, 'dist' => 'x' meters, 'bearing' => 'y' degree; from decimal degree coords
//~ 10 сантиметров точность, когда
//~ abs(lon1-lon2) <= 0.0000014
//~ abs(lat1-lat2) <= 0.0000008
    $res = array('dist'=>0.0, 'bearing'=>0.0);
    $StartLat = (double)str_replace(',', '.', $StartLat); $StartLon = (double)str_replace(',', '.', $StartLon);
    $EndLat = (double)str_replace(',', '.', $EndLat); $EndLon = (double)str_replace(',', '.', $EndLon);

    if ($StartLat == 0.0 || $StartLon == 0.0 || $EndLat == 0.0 || $EndLon == 0.0) return $res;
    if ( abs($StartLon - $EndLon) <= 0.0000014 && abs($StartLat - $EndLat) <= 0.0000008 ) return $res;

    $D2R = 0.01745329251994330; // Pi/180
    $R2D = 57.29577951308230000; // 180/Pi
/*
// http://www.pcigeomatics.com/cgi-bin/pcihlp/PROJ%7CEARTH+MODELS%7CELLIPSOIDS
// ELLIPS  Descriptor                 Semi-Major Axis (A) (metres)      Semi-Minor Axis (B) (metres)
// 12      WGS               1984  6378137.000000  6356752.314245
// 15      Krassovsky        1940  6378245.000000  6356863.018800
*/
    $a = 6378137.0; // Semi-major axis of ellipsoid in meters
//    $b = 6356752.314245;  // Semi-minor axis of ellipsoid
    $e2 = 0.00673949674233346; // 2nd eccentricity squared  Geocent_ep2 = (Geocent_a2 - Geocent_b2) / Geocent_b2

    $fdLambda = ($StartLon - $EndLon) * $D2R;
    $fdPhi = ($StartLat - $EndLat) * $D2R;
    $fPhimean = ($StartLat + $EndLat) / 2.0 * $D2R;
    $fTemp = 1 - $e2 * pow( sin($fPhimean), 2);
    $fRho = $a * (1 - $e2) / pow($fTemp, 1.5);
    $fNu = $a / sqrt(1 - $e2 * sin($fPhimean) * sin($fPhimean) );
    $fz = 2 * asin(sqrt (
        pow(sin( $fdPhi / 2.0), 2 ) + cos( $EndLat * $D2R )
        * cos( $StartLat * $D2R ) * pow(sin($fdLambda / 2.0), 2)
    ) );

    $fAlpha = asin(cos( $EndLat * $D2R ) * sin($fdLambda) / sin($fz) );
    $fR = $fRho * $fNu / ($fRho * pow(sin($fAlpha), 2) + $fNu * pow(cos($fAlpha), 2));
    $res['dist'] = $fz * $fR;

    if ($res['dist'] <= 0.999) return $res;

    $Bearing = abs($fAlpha * $R2D);
    if (($StartLat <= $EndLat) and ($StartLon > $EndLon)) $Bearing = 360 - $Bearing;
    elseif (($StartLat > $EndLat) and ($StartLon >= $EndLon)) $Bearing = 180 + $Bearing;
    elseif (($StartLat > $EndLat) and ($StartLon < $EndLon)) $Bearing = 180 - $Bearing;

    $res['bearing'] = $Bearing;
    return $res;
} 

опять Чубайс?

А у нас на работе свет (электричество) отрубают в 16 нуль-нуль каждый день. И обещают продолжать сие мерзкое занятие до конца декабря. Без предупреждений, без уведомлений, в один прекрасный день взяли и вырубили. Спрашиваем "че за ботва?", отвечают "потерпите пару дней".
А потом - бац - до нового года ежедневно. Мать! Подстанцию подкручивают.

А я обычно на работе появляюсь к 15 часам. Теперь дома буду работать.

Интересно, какие шансы отсудить компенсацию за нарушение работы бизнеса? А бизнес реально страдает, производительность упала, многие дела просто не успеваем сделать - все на компьютеры завязано.

Надо посмотреть, почем нынче генераторы...

открытое письмо в Корбину телеком (по поводу повышения скоростей на тарифных планах)

Круто, супер!
Надеюсь, фактическая скорость подтянется за декларированной, а то как было около 700 кбит, так и осталось на безлимитке за $24.
Спасибо!

А теперь малость критики. Лично мне, полагаю и большой массе клиентов, вполне достаточно 500 - 600 кбит. А что, страницы летают, закачать что - вполне, видеосервисы работают. На год вперед скорость устраивает.
Очень хочется, чтобы Корбина отличалась от конкурентов высоким качеством, чтоб можно было сказать "ха, скорость у вас выше, три ха. А у нас качество беспрецедентное!". Асимметричный ответ.
Понимаю, повышать и поддерживать качество труднее, чем декларировать повышение скорости канала. Зато это реальное дело.
Собственно, я и перешел в Корбину от предыдущего провайдера в поисках качества. И не жалею, хотя в скорости я потерял при переходе.

Постскриптум:
чем закончилась война мегагерц, мы все видим. Чем закончится война мегабит? Думаю тем же. Откатом на предыдущие позиции, подсчетом потерь, перегруппировкой и раскраской нового флага. Может не проверять на собственном опыте?

нумерик против флоат (numeric/float)

Столкнулся неожиданно с особенностью (вообще неприятной). У меня в БД под управлением MS SQL Server 2000 есть координаты географические, конечно в формате с "плавающей точкой". С базой я работаю через ADO.
Раньше координаты по простому лежали в полях типа FLOAT, а вот нынче решил зачем то положить их в поля типа NUMERIC(9,7).

Положил, угу.
Тут же перестало все работать. Через пять минут листания дампа выяснилось - теперь ко мне попадает значение с разделителем в виде запятой (например так: 37,321).
Опаньки.
Пока поля были float, во всех ситуациях получал точку как разделитель и вот, нате.
Поскольку дело к ночи, не стал выяснять от чего это зависит, как полагается с этим бороться, взял и добавил фильтр в прослойку между ADO и своими приложениями, фильтр типа "если поле нумерик, меняем запятую на точку без разговоров".

Работать конечно будет медленнее. Зато теперь я с нумериком.
И нафига козе баян?