Wolfram Language

Calcul géographique

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]:=
Click for copyable input
capitals = EntityValue[ EntityClass["AdministrativeDivision", "ContinentalUSStates"], "CapitalCity"]
Out[1]=

Prenez le polygone des États-Unis.

In[2]:=
Click for copyable input
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]:=
Click for copyable input
borderpoints = Flatten[Nearest[First[us], GeoPosition[capitals]]]
Out[3]=

Dessinez tous les chemins géodésiques.

In[4]:=
Click for copyable input
GeoGraphics[{us, Point[capitals], Red, Arrowheads[0.015], Arrow /@ GeoPath /@ Thread[{capitals, borderpoints}]}]
Out[4]=

Exemples connexes

de en es ja ko pt-br ru zh