WOLFRAM

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. »
Explorations Home › Basic › Where Do You Get Drilling through the Earth? Static Preview
Try it now »
(no sign-in required)

Where Do You Get Drilling through the Earth?

Find what’s at the exact opposite side of the Earth to you (“the antipode”).

Run the code to find where you are:

SHOW/HIDE DETAILS

This tries to find the latitude and longitude where you are:

Here

Sometimes it may not work quite right because of how your computer is connected to the web. If it isn’t correct, find your latitude and longitude by asking for the geo position of your city (hold and press = to get the natural language input box):

GeoPosition[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "new york city", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"\"New York City\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"NewYork\"", ",", "\"NewYork\"", ",", "\"UnitedStates\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"NewYork\\\", \\\"NewYork\\\", \ \\\"UnitedStates\\\"}]\"", "\"city\""}, "Entity"], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "Clash", "word" -> "new york city", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "3", "Values" -> {{ "name" -> "City", "desc" -> "a city", "input" -> "*C.new+york+city-_*City-"}, { "name" -> "VisualArts", "desc" -> "a photograph", "input" -> "*C.new+york+city-_*VisualArts-"}, { "name" -> "MusicWork", "desc" -> "a music work", "input" -> "*C.new+york+city-_*MusicWork-"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{90., {7., 16.}}, TrackedSymbols:>{ WolframAlphaClient`Private`query$$, WolframAlphaClient`Private`boxes$$, WolframAlphaClient`Private`allassumptions$$, WolframAlphaClient`Private`assumptions$$, WolframAlphaClient`Private`open$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)]

Latitude goes from -90° to 90° and describes how far south or north of the equator you are.

Longitude goes from -180° to 180° and describes how far west or east you are of Greenwich, England.

HIDE DETAILS
Here

Find your antipode. Find the antipodes of some other places—for example, Beijing or Quito:

SHOW/HIDE DETAILS

This gets your raw latitude and longitude coordinates:

{lat, long} = First[Here]

Here’s the position on the exact opposite side of the Earth:

antipode = GeoAntipode[Here]

Here is how the antipode is related to the original latitude and longitude:

{-lat, long + 180}

Here’s a map of where that is:

GeoListPlot[GeoPosition[{antipode}]]

It’s not too informative at this scale. Make a map that shows the whole Earth:

GeoListPlot[GeoPosition[{antipode}], GeoRange -> "World"]

HIDE DETAILS
antipode = GeoPosition[GeoAntipode[Here]]; GeoListPlot[{antipode}, GeoRange -> "World"]

Share It—make a website that gives a map of the antipode of a location:

SHOW/HIDE DETAILS

Deploy a form that asks for a location and makes a map of its antipode:

CloudDeploy[FormFunction[{"location" -> "Location"}, (antipode = GeoPosition[GeoAntipode[#location]]; GeoListPlot[{antipode}, GeoRange -> "World"]) &, "PNG"], "Permissions" -> "Public" ]

Click the link in the output to visit the site.

Tell the world about your creation by sharing the link via email, tweet or other message.

HIDE DETAILS
CloudDeploy[FormFunction[{"location" -> "Location"}, (antipode = GeoPosition[GeoAntipode[#location]]; GeoListPlot[{antipode}, GeoRange -> "World"]) &, "PNG"], "Permissions" -> "Public" ]
Start programming now (no sign-in required)

Available for cloud, desktop and mobile