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