ในระยะสั้นระยะทางอาจผิดพลาดได้มากถึง 22 กม. หรือ 0.3% ขึ้นอยู่กับจุดที่สงสัย นั่นคือ:
ข้อผิดพลาดสามารถแสดงได้หลายวิธีตามธรรมชาติและมีประโยชน์เช่นข้อผิดพลาด (i) (ส่วนที่เหลือ) เท่ากับความแตกต่างระหว่างระยะทางคำนวณทั้งสอง (เป็นกิโลเมตร) และ (ii) ข้อผิดพลาดสัมพัทธ์เท่ากับความแตกต่างหารด้วย ค่า "ถูกต้อง" (รูปวงรี) ตัวเลขการผลิตที่สะดวกในการทำงานร่วมกับผมคูณอัตราส่วนเหล่านี้ด้วย 1000 ที่จะแสดงความผิดพลาดในส่วนต่อพัน
ข้อผิดพลาดขึ้นอยู่กับจุดสิ้นสุด เนื่องจากสมมาตรการหมุนของทรงรีและทรงกลมและสมมาตรทวิภาคี (เหนือ - ใต้และตะวันออก - ตะวันตก) ของพวกเขาเราอาจวางจุดปลายอันใดจุดหนึ่งที่จุดกึ่งกลาง (ลองจิจูด 0) ในซีกโลกเหนือ (ละติจูดระหว่าง 0 ถึง 90 ) และปลายทางอื่น ๆ ในซีกโลกตะวันออก (ลองจิจูดระหว่าง 0 ถึง 180)
ในการสำรวจการพึ่งพาเหล่านี้ฉันได้วางแผนข้อผิดพลาดระหว่างจุดปลายที่ (lat, lon) = (mu, 0) และ (x, lambda) เป็นฟังก์ชันของละติจูด x ระหว่าง -90 ถึง 90 องศา (ทุกจุดมีชื่ออยู่ที่ความสูงของทรงรีที่เป็นศูนย์) ในตัวเลขแถวนั้นสอดคล้องกับค่าของ mu ที่ {0, 22.5, 45, 67.5} องศาและคอลัมน์กับค่าของแลมบ์ดาที่ {0, 45, 90, 180} องศา สิ่งนี้ทำให้เรามีมุมมองที่ดีเกี่ยวกับสเปกตรัมของความเป็นไปได้ ตามที่คาดไว้ขนาดสูงสุดของพวกเขาอยู่ที่ประมาณแบน (ประมาณ 1/300) เท่าแกนหลัก (ประมาณ 6700 กม.) หรือประมาณ 22 กม.
ข้อผิดพลาด
ข้อผิดพลาดญาติ
พล็อต Contour
อีกวิธีหนึ่งในการมองเห็นข้อผิดพลาดคือการแก้ไขจุดปลายด้านหนึ่งและปล่อยให้อีกจุดหนึ่งแตกต่างกัน ยกตัวอย่างเช่นที่นี่เป็นโครงร่างที่จุดสิ้นสุดแรกอยู่ที่ละติจูด 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]]