Le chemin le plus court à la côte
Trouvez le chemin le plus court possible pour se rendre à un point de la frontière des États-Unis à partir de chaque capitale des États américains limitrophes.
Prenez la liste des capitales.
In[1]:=
capitals =
EntityValue[
EntityClass["AdministrativeDivision", "ContinentalUSStates"],
"CapitalCity"]Out[1]=
Prenez le polygone des États-Unis.
In[2]:=
us = EntityValue[Entity["Country", "UnitedStates"], "Polygon"]Out[2]=
Calculez le point de ce polygone pour chaque capitale de l'État respectif le plus proche.
In[3]:=
borderpoints = Flatten[Nearest[First[us], GeoPosition[capitals]]]Out[3]=
Dessinez tous les chemins géodésiques.
In[4]:=
GeoGraphics[{us, Point[capitals], Red, Arrowheads[0.015],
Arrow /@ GeoPath /@ Thread[{capitals, borderpoints}]}]Out[4]=
