Коротше кажучи, відстань може бути помилковою до приблизно 22 км або 0,3%, залежно від питань, про які йдеться. Це:
Похибка може бути виражена декількома природними, корисними способами , такими як (i) (залишкова) помилка, рівна різниці між двома обчисленими відстанями (у кілометрах) та (ii) відносною помилкою, що дорівнює різниці, поділеній на "правильне" (еліпсоїдальне) значення. Для отримання чисел, зручних для роботи, я множу ці співвідношення на 1000, щоб виразити відносну похибку в частинах на тисячу .
Помилки залежать від кінцевих точок. Завдяки обертальній симетрії еліпсоїда та сфери та їх двосторонньої (північ-південь та схід-захід) симетрії ми можемо розмістити одну з кінцевих точок десь уздовж меридіана (довгота 0) у північній півкулі (широта між 0 і 90 ) та інша кінцева точка у східній півкулі (довгота між 0 і 180).
Щоб вивчити ці залежності, я побудував помилки між кінцевими точками в (lat, lon) = (mu, 0) та (x, лямбда) як функція широти x між -90 та 90 градусів. (Усі точки номінально на висоті еліпсоїда нуля.) На малюнках рядки відповідають значенням мю при {0, 22,5, 45, 67,5} градусах і стовпці значенням лямбда при {0, 45, 90, 180} градусів. Це дає нам хороший огляд спектру можливостей. Як і очікувалося, їх максимальні розміри приблизно врівень (приблизно 1/300) у порівнянні з основною віссю (близько 6700 км), або приблизно 22 км.
Помилки
Відносні помилки
Контурний сюжет
Інший спосіб візуалізації помилок - це виправити одну кінцеву точку та дозволити іншій змінюватися, контурнувши виникаючі помилки. Ось, наприклад, контурний графік, де перша кінцева точка знаходиться на 45 градусах північної широти, 0 градусів довготи. Як і раніше, значення помилок знаходяться в кілометрах, а позитивні помилки означають, що сферичний розрахунок занадто великий:
Можливо, це буде простіше читати, обертаючись по всьому світу:
Червона крапка на півдні Франції показує розташування першої кінцевої точки.
Для запису ось код Mathematica 8, який використовується для обчислень:
WGS84[x_, y_] := GeoDistance @@ (GeoPosition[Append[#, 0], "WGS84"] & /@ {x, y});
sphere[x_, y_] := GeoDistance @@
(GeoPosition[{GeodesyData["WGS84", {"ReducedLatitude", #[[1]]}], #[[2]], 0}, "WGS84"] & /@ {x, y});
І одна з графіків команд:
With[{mu = 45}, ContourPlot[(sphere[{mu, 0}, {x, y}] - WGS84[{mu, 0}, {x, y}]) / 1000,
{y, 0, 180}, {x, -90, 90}, ContourLabels -> True]]