Follow a Random Path on the Earth 

Move from the Temple of Zeus along a path given by the first 3141 terms of the continued fraction of .

In[1]:=

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

The path ends just a few miles east of Kossuth, 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 the journey.

In[5]:=

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

Out[5]=