Советы по Delphi


         

Как вычислить расстояние, имея широту и долготу.


Попробуйте следующий код. Я им пользуюсь продолжительное время.

Входные данные:
StartLat (начальная широта) = Градусы и сотые доли
StartLong (начальная долгота) = Градусы и сотые доли
EndLat (конечная широта) = Градусы и сотые доли
EndLong (конечная долгота) = Градусы и сотые доли

Выходные данные:
Distance (расстояние) = Расстояние в метрах
Bearing (смещение) = Смещение в градусах

Не забудьте включить модуль Math в список используемых (USES) модулей.

var
// Передаваемые широта/долгота в градусах и сотых доляхStartLat: double; // Начальная широтаStartLong: double; // Начальная долготаEndLat: double; // Конечная широтаEndLong: double; // Конечная долгота
// Переменные, используемые для вычисления смещения и расстоянияfPhimean: Double; // Средняя широтаfdLambda: Double; // Разница между двумя значениями долготыfdPhi: Double; // Разница между двумя значениями широтыfAlpha: Double; // СмещениеfRho: Double; // Меридианский радиус кривизныfNu: Double; // Поперечный радиус кривизныfR: Double; // Радиус сферы Землиfz: Double; // Угловое расстояние от центра сфероидаfTemp: Double; // Временная переменная, использующаяся в вычисленияхDistance: Double; // Вычисленное расстояния в метрахBearing: Double; // Вычисленное от и до смещение End

const

// Константы, используемые для вычисления смещения и расстоянияD2R: Double = 0.017453; // Константа для преобразования градусов в радианыR2D: Double = 57.295781; // Константа для преобразования радиан в градусыa: Double = 6378137.0; // Основные полуосиb: Double = 6356752.314245; // Неосновные полуосиe2: Double = 0.006739496742337; // Квадрат эксцентричности эллипсоидаf: Double = 0.003352810664747; // Выравнивание эллипсоида
begin
// Вычисляем разницу между двумя долготами и широтами и получаем среднюю широтуfdLambda := (StartLong - EndLong) * D2R;fdPhi := (StartLat - EndLat) * D2R;fPhimean := ((StartLat + EndLat) / 2.0) * D2R;
// Вычисляем меридианные и поперечные радиусы кривизны средней широтыfTemp := 1 - e2 * (Power(Sin(fPhimean),2));fRho := (a * (1 - e2)) / Power(fTemp, 1.5);fNu := a / (Sqrt(1 - e2 * (Sin(fPhimean) * Sin(fPhimean))));
// Вычисляем угловое расстояниеfz :=Sqrt(Power(Sin(fdPhi/2.0),2)+Cos(EndLat*D2R)*Cos(StartLat*D2R)*Power(Sin(fdLambda/2.0),2)) ;
fz := 2 * ArcSin(fz);
// Вычисляем смещениеfAlpha := Cos(EndLat * D2R) * Sin(fdLambda) * 1 / Sin(fz);fAlpha := ArcSin(fAlpha);
// Вычисляем радиус ЗемлиfR := (fRho * fNu) / ((fRho * Power(Sin(fAlpha),2)) + (fNu * Power(Cos(fAlpha),2)));
// Получаем смещение и расстояниеDistance := (fz * fR);if((StartLat < EndLat) and (StartLong < EndLong)) thenBearing := Abs(fAlpha * R2D)else if ((StartLat < EndLat) and (StartLong > EndLong)) thenBearing := 360 - Abs(fAlpha * R2D)else if ((StartLat > EndLat) and (StartLong > EndLong)) thenBearing := 180 + Abs(fAlpha * R2D)else if ((StartLat > EndLat) and (StartLong < EndLong)) thenBearing := 180 - Abs(fAlpha * R2D);end;

Лирическое отступление автора: в качестве входных параметров используются ШИРОТЫ (в множественном числе, ударение на втором слоге), ведь их две. Но хмммм.... долгота(ы???) тоже две, а как будет звучать множественное число? Загадка. Наверное не существует такой формы. (P.S. зато я знаю как будет множественное число от слова ДНО! Слабо?) [000161]



Содержание  Назад  Вперед