Siga um caminho aleatório pela Terra 

Trace um caminho a partir do Templo de Zeus através de um trajeto dado pelos primeiros 3141 termos da fração contínua de .

In[1]:=

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

O caminho termina a apenas algumas milhas ao leste de Kossuth, no estado americano de 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]=

Visualize a viagem.

In[5]:=

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

Out[5]=