国境までの最短経路
アメリカの隣接する州の各州都から,アメリカの国境の任意の点までの最短経路を求める.
州都のリストを得る.
In[1]:=

capitals =
EntityValue[
EntityClass["AdministrativeDivision", "ContinentalUSStates"],
"CapitalCity"]
Out[1]=

アメリカの多角形を得る.
In[2]:=

us = EntityValue[Entity["Country", "UnitedStates"], "Polygon"]
Out[2]=

それぞれの州都について,多角形の境界上の一番近い点を計算する.
In[3]:=

borderpoints = Flatten[Nearest[First[us], GeoPosition[capitals]]]
Out[3]=

すべての測地経路を描画する.
In[4]:=

GeoGraphics[{us, Point[capitals], Red, Arrowheads[0.015],
Arrow /@ GeoPath /@ Thread[{capitals, borderpoints}]}]
Out[4]=
