Kısacası, söz konusu noktalara bağlı olarak mesafe kabaca 22km veya% 0,3'e kadar hatalı olabilir. Yani:
Hata, hesaplanan iki mesafe (kilometre cinsinden) arasındaki farka eşit (i) (artık) hata gibi (birkaç kilometre) ve (ii) göreceli hataya bölünen fark gibi , doğal, faydalı yollarla ifade edilebilir . "doğru" (elipsoidal) değeri. Çalışmak için uygun sayılar üretmek için, bu oranları 1000 ile çarparak, göreceli hatayı binde pay olarak ifade ediyorum .
Hatalar uç noktalara bağlıdır. Elipsoid ve kürenin dönme simetrisi ve bunların bilateral (kuzey-güney ve doğu-batı) simetrileri nedeniyle, kuzey yarımkürede son noktalardan birini (m. 0 boyunca) asal meridyen boyunca bir yere yerleştirebiliriz. ) ve doğu yarım küredeki diğer son nokta (0 ile 180 arasında boylam).
Bu bağımlılıkları araştırmak için, (lat, lon) = (mu, 0) ve (x, lambda) uç noktaları arasındaki hataları -90 ile 90 derece arası bir enlemin fonksiyonu olarak çizdim. (Tüm noktalar nominal olarak sıfır elipsoid yüksekliktedir.) Şekillerde, satırlar {0, 22.5, 45, 67.5} derece değerindeki mu değerlerine ve {0, 45, 90, 180} değerindeki lambda değerlerine ilişkin sütunlara karşılık gelir. derece. Bu bize olasılık yelpazesi hakkında iyi bir fikir veriyor. Beklendiği gibi, maksimum boyutları, ana eksenin (yaklaşık 6700 km) veya yaklaşık 22 km'nin yaklaşık olarak düzleştirilmesidir (yaklaşık 1/300).
Hatalar
Göreceli hatalar
Kontur arsa
Hataları görselleştirmenin bir başka yolu, bir uç noktayı düzeltmek ve diğerinin değişmesine izin vererek ortaya çıkan hataları biçimlendirmektir. Burada, örneğin, ilk son nokta 45 derece kuzey enleminde, 0 derece boylamında olan bir kontur grafiğidir. Daha önce olduğu gibi, hata değerleri kilometre cinsindendir ve pozitif hatalar küresel hesaplamanın çok büyük olduğu anlamına gelir:
Dünyanın her yerine sarıldığında okumak daha kolay olabilir:
Fransa'nın güneyindeki kırmızı nokta, ilk bitiş noktasının yerini gösterir.
Kayıt için, hesaplamalar için kullanılan Mathematica 8 kodu:
WGS84[x_, y_] := GeoDistance @@ (GeoPosition[Append[#, 0], "WGS84"] & /@ {x, y});
sphere[x_, y_] := GeoDistance @@
(GeoPosition[{GeodesyData["WGS84", {"ReducedLatitude", #[[1]]}], #[[2]], 0}, "WGS84"] & /@ {x, y});
Ve çizim komutlarından biri:
With[{mu = 45}, ContourPlot[(sphere[{mu, 0}, {x, y}] - WGS84[{mu, 0}, {x, y}]) / 1000,
{y, 0, 180}, {x, -90, 90}, ContourLabels -> True]]