해저 케이블
태평양을 횡단하는 해저 통신 케이블의 측지 길이를 계산합니다.
다음 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는 해저 케이블의 길이가 28900km이며 지상 케이블을 1600km로 기록하고 있고, 총 길이를 30500km로 기록하고 있습니다. 따라서, 케이블은 양륙점과 측지를 연결하는 최소 곡선보다 4000km 더 길다고 할 수 있습니다.
In[5]:=
GeoLength[cable, UnitSystem -> "Metric"];
Quantity[30500, "Kilometers"] - %Out[5]=
