Em resumo, a distância pode estar com erro de aproximadamente 22 km ou 0,3%, dependendo dos pontos em questão. Isso é:
O erro pode ser expresso de várias maneiras naturais e úteis , como (i) erro (residual), igual à diferença entre as duas distâncias calculadas (em quilômetros) e (ii) erro relativo, igual à diferença dividida pela valor "correto" (elipsoidal). Para produzir números convenientes para trabalhar, multiplico essas proporções por 1000 para expressar o erro relativo em partes por mil .
Os erros dependem dos terminais. Devido à simetria rotacional do elipsóide e da esfera e suas simetrias bilaterais (norte-sul e leste-oeste), podemos colocar um dos pontos de extremidade em algum ponto ao longo do meridiano de referência (longitude 0) no hemisfério norte (latitude entre 0 e 90 ) e o outro ponto final no hemisfério oriental (longitude entre 0 e 180).
Para explorar essas dependências, plotei os erros entre os pontos finais em (lat, lon) = (mu, 0) e (x, lambda) em função da latitude x entre -90 e 90 graus. (Todos os pontos estão nominalmente a uma altura elipsóide de zero.) Nas figuras, as linhas correspondem aos valores de mu em {0, 22,5, 45, 67,5} graus e as colunas aos valores de lambda em {0, 45, 90, 180} graus. Isso nos dá uma boa visão do espectro de possibilidades. Como esperado, seus tamanhos máximos são aproximadamente o nivelamento (cerca de 1/300) vezes o eixo principal (cerca de 6700 km), ou cerca de 22 km.
Erros
Erros relativos
Gráfico de contorno
Outra maneira de visualizar os erros é corrigir um ponto de extremidade e permitir que o outro varie, contornando os erros que surgem. Aqui, por exemplo, é um gráfico de contorno em que o primeiro ponto de extremidade está a 45 graus de latitude norte e 0 graus de longitude. Como antes, os valores dos erros estão em quilômetros e os erros positivos significam que o cálculo esférico é muito grande:
Pode ser mais fácil ler quando embrulhado em todo o mundo:
O ponto vermelho no sul da França mostra a localização do primeiro ponto final.
Para o registro, aqui está o código do Mathematica 8 usado para os cálculos:
WGS84[x_, y_] := GeoDistance @@ (GeoPosition[Append[#, 0], "WGS84"] & /@ {x, y});
sphere[x_, y_] := GeoDistance @@
(GeoPosition[{GeodesyData["WGS84", {"ReducedLatitude", #[[1]]}], #[[2]], 0}, "WGS84"] & /@ {x, y});
E um dos comandos de plotagem:
With[{mu = 45}, ContourPlot[(sphere[{mu, 0}, {x, y}] - WGS84[{mu, 0}, {x, y}]) / 1000,
{y, 0, 180}, {x, -90, 90}, ContourLabels -> True]]