Use um voo de Lévy para achar o Stonehenge na Inglaterra 

Use voos de Lévy, que são ideais para buscas, para encontrar o Stonehenge na Inglaterra.

Obtenha o polígono da Inglaterra e as coordenadas do Stonehenge.

In[1]:=

X polygon = Entity["AdministrativeDivision", {"England", "UnitedKingdom"}][ EntityProperty["AdministrativeDivision", "Polygon"]]; stonehenge = Entity["Building", "Stonehenge"][ EntityProperty["Building", "Position"]];

Assumindo que o Stonehenge é visível de uma distância de 2 km, defina um predicado que teste se o Stonehenge pode ser visto a partir de um determinado local.

In[2]:=

X stonehengeVisibleQ[start_, {dist_, dir_}] := With[{m = Floor[dist/1000]}, Min[(GeoDistance[GeoPosition[#1], stonehenge] &) /@ GeoDestination[start, GeoDisplacement[{(Range[0, m] dist)/m, dir}]][[1]]] < Quantity[2, "Kilometers"]]

Começando pelo Big Ben, realize um voo de Lévy até o Stonehenge ser visível.

In[3]:=

X searchpath = {Entity["Building", "ClockTower"][ EntityProperty["Building", "Position"]]}; mr = DiscretizeGraphics[Polygon[Reverse /@ polygon[[1, 1, -1]]]]; While[ {d, \[Alpha]} = { 1000 RandomVariate[StableDistribution[1, 1, 1, 10, 2]], RandomReal[{0, 360}]}; gd = GeoDestination[Last[searchpath], GeoDisplacement[{d, \[Alpha]}]]; If[sd = SignedRegionDistance[mr, Reverse[First[ gd = GeoDestination[Last[searchpath], GeoDisplacement[{d, \[Alpha]}]] ]]] < 0, ! stonehengeVisibleQ[Last[searchpath], {d, \[Alpha]}], True], If[sd, AppendTo[searchpath, gd]]]

Mostre o caminho da busca.

In[4]:=

X GeoGraphics[{GeoStyling["StreetMap"], polygon , PointSize[Medium], RGBColor[1, 0, 0], Point[stonehenge], RGBColor[ 0.5, 0, 0.5], Thickness[Small], GeoPath[searchpath]}]

Out[4]=