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)

# Where Do You Get Drilling through the Earth?

Find whats at the exact opposite side of the Earth to you (the antipode).

Run the code to find where you are:

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 isnt 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.

Here

Find your antipode. Find the antipodes of some other placesfor example, Beijing or Quito:

This gets your raw latitude and longitude coordinates:

{lat, long} = First[Here]

Heres 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}

Heres a map of where that is:

GeoListPlot[GeoPosition[{antipode}]]

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

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

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

Share Itmake a website that gives a map of the antipode of a location:

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.

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