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:

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.

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.

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]\)]]

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]\)]]