Try now in the
Open Cloud »
(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:

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

HIDE DETAILS
Here

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

SHOW/HIDE DETAILS

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"]

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

Share Itmake 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" ]