Dem Verlauf eines Random Walk auf der Erde folgen 

Bewegen Sie sich ausgehend vom Zeus-Tempel entlang eines Weges, der angegeben ist durch die ersten 3141 Terme des Kettenbruchs von .

In[1]:=

X start = Entity["Building", "TempleZeusOlympia"]; gclist = GeoDisplacement[{1000 #, #}] & /@ ContinuedFraction[Pi, 3141];

Der Weg endet ein paar Meilen östlich von Kossuth im Bundesstaat Mississippi.

In[2]:=

X end = Last@GeoDestination[start, gclist]

Out[2]=

In[3]:=

X First[GeoNearest["City", end]]

Out[3]=

In[4]:=

X First[GeoNearest["City", end]]; GeoDistance[end, %]

Out[4]=

Visualisieren Sie die Reise.

In[5]:=

X GeoGraphics[{Blue, PointSize[Large], Point[start], Darker[Green], GeoPath[{start, gclist}]}]

Out[5]=