海底ケーブル
太平洋の海底を通る海底通信ケーブルの測地線長を計算する．
次のGeoPositionオブジェクトには，Southern Cross Cable（サザンクロス海底ケーブル）の9ヶ所の陸揚げ地点が含まれている．
In[1]:=
landings =
GeoPosition[{{-33.913939, 151.196199}, {-33.761205,
151.273933}, {-18.12381, 178.437397}, {21.354003, 201.869442}, {
45.824792, 236.188811}, {35.366692, 239.152774}, {20.023145,
204.177937}, {-36.787961, 174.767867}, {-36.78884, 174.623336}}];ケーブルを，連続した陸揚げ地点と測地部分を繋ぐGeoPathオブジェクトとして表す．実際の物理的ケーブルは測地線に厳密に沿っている訳ではないので，これは最短の近似である．このケーブルは閉じたトポロジーを有する．
In[2]:=
cable = GeoPath[landings, CurveClosed -> True];太平洋の起伏付き正距円筒図法の地図上に，ケーブルとその陸揚げ地点を描画する．
In[3]:=
GeoGraphics[{White, cable, Red, PointSize[Large], Point[landings]},
GeoRange -> Entity["Ocean", "PacificOcean"],
GeoBackground -> "ReliefMap"]Out[3]=
ケーブルの測地的近似の合計の長さを計算する．
In[4]:=
GeoLength[cable, UnitSystem -> "Metric"]Out[4]=
Wikipediaの記事には海底ケーブルが28,900km，地上ケーブルが1,600kmであり，合計が30,500kmだと書かれている．したがって，ケーブルは陸揚げ点を測地線で繋いだ最小曲線よりも4,000km長いことになる．
In[5]:=
GeoLength[cable, UnitSystem -> "Metric"];
Quantity[30500, "Kilometers"] - %Out[5]=
