有名な建物を徒歩で見学するルートを生成する
GeoNearestを使って,ボストンシティホールの周り半径1キロメートルの地域にある有名な建物を取り出すことができる.
In[1]:=
![Click for copyable input](assets.ja/generate-a-walking-tour-of-notable-buildings/In_49.png)
position = Entity["Building", "BostonCityHall::96t3t"];
radius = Quantity[1, "Kilometers"];
In[2]:=
![Click for copyable input](assets.ja/generate-a-walking-tour-of-notable-buildings/In_50.png)
nearMe = GeoNearest["Building", position, {All, radius}]
Out[2]=
![](assets.ja/generate-a-walking-tour-of-notable-buildings/O_33.png)
組込みのアイコン実体を使って,地域の地図上に建物をプロットする.
完全なWolfram言語入力を表示する
Out[3]=
![](assets.ja/generate-a-walking-tour-of-notable-buildings/O_34.png)
TravelDirectionsを使って,これらの実体を徒歩で見学するルートを計算する.
In[4]:=
![Click for copyable input](assets.ja/generate-a-walking-tour-of-notable-buildings/In_52.png)
tourPlaces = Prepend[nearMe, position];
In[5]:=
![Click for copyable input](assets.ja/generate-a-walking-tour-of-notable-buildings/In_53.png)
{distance, tourPath} =
FindShortestTour[GeoPosition /@ tourPlaces, 1, Length@tourPlaces]
Out[5]=
![](assets.ja/generate-a-walking-tour-of-notable-buildings/O_35.png)
In[6]:=
![Click for copyable input](assets.ja/generate-a-walking-tour-of-notable-buildings/In_54.png)
travelDirectionsForPath =
TravelDirections[tourPlaces[[tourPath]], TravelMethod -> "Walking"]
Out[6]=
![](assets.ja/generate-a-walking-tour-of-notable-buildings/O_36.png)
完全なWolfram言語入力を表示する
Out[7]=
![](assets.ja/generate-a-walking-tour-of-notable-buildings/O_37.png)
以下は,ルートについての詳しい指示である.
In[8]:=
![Click for copyable input](assets.ja/generate-a-walking-tour-of-notable-buildings/In_56.png)
travelDirectionsForPath["ManeuverGrid"]
Out[8]=
![](assets.ja/generate-a-walking-tour-of-notable-buildings/O_38.png)