海底电缆
计算跨越太平洋海底通信电缆的测地学长度.
这个 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]=

维基百科文章中描述了 28,900 公里的海底和 1,600 公里的陆地电缆,因此其总长为 30,500 公里. 就是说电缆比连接登陆点的测地线长度大约长 4,000 公里.
In[5]:=

GeoLength[cable, UnitSystem -> "Metric"];
Quantity[30500, "Kilometers"] - %
Out[5]=
