Wolfram Archive
Wolfram Programming Lab is a legacy product.
All the same functionality and features, including access to Programming Lab Explorations, are available with Wolfram|One.
Start programming now. »
Try it now »
(no sign-in required)

Miles Around You

Make a map showing whats within a given distance of your location.

Run the code to find your location:

SHOW/HIDE DETAILS

Here gives the location where the Wolfram Language thinks your computer is:

Here

The location gives your {latitude, longitude} coordinates.

Latitude goes from -90 to 90 and gives your angular distance below or above the equator.

Longitude goes from -180 to 180 and gives your angular distance around the poles from Greenwich, England.

HIDE DETAILS
Here

Make a map of your location:

GeoGraphics[Here]

Draw a 5-mile disk around your location. Try other sizes of disks, like 1,000 feet or 1,000 miles:

Hint: to change the contents of the natural language input box, click it, and edit the contents.

SHOW/HIDE DETAILS

Draw a disk on the map centered on your location with a radius of 5 miles. To specify the radius, type += to get a natural language language box and type 5 miles:

GeoGraphics[GeoDisk[Here, \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "5 miles", Typeset`boxes$$ = TemplateBox[{"5", "\"mi\"", "miles", "\"Miles\""}, "Quantity", SyntaxForm -> Mod], Typeset`allassumptions$$ = {}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1}, Typeset`querystate$$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.346909`5.991760560560967, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{59., {7., 16.}}, TrackedSymbols:>{ Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)]]

HIDE DETAILS
GeoGraphics[GeoDisk[Here, \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "5 miles", Typeset`boxes$$ = TemplateBox[{"5", "\"mi\"", "miles", "\"Miles\""}, "Quantity", SyntaxForm -> Mod], Typeset`allassumptions$$ = {}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1}, Typeset`querystate$$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.346909`5.991760560560967, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{62., {7., 16.}}, TrackedSymbols:>{ Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)]]