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:

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

 In[1]:= XHere
 Out[1]=

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):

 In[2]:= XGeoPosition[\!\(\* 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]\)]
 Out[2]=

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 of Greenwich, England, you are.

 In[1]:= XHere
 Out[1]=

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

This gets your raw latitude and longitude coordinates:

 In[1]:= X{lat, long} = First[Here]
 Out[1]=

Heres the position on the exact opposite side of the Earth:

 In[2]:= Xantipode = GeoPosition[{-lat, long - 180}]
 Out[2]=

Heres a map of where that is:

 In[3]:= XGeoListPlot[antipode]
 Out[3]=

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

 In[4]:= XGeoListPlot[antipode, GeoRange -> "World"]
 Out[4]=

 In[1]:= X{lat, long} = First[Here]; antipode = GeoPosition[{-lat, long - 180}]; GeoListPlot[antipode, GeoRange -> "World"]
 Out[1]=

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:

 In[1]:= XCloudDeploy[FormFunction[{"location" -> "Location"}, ({lat, long} = First[#location]; antipode = GeoPosition[{-lat, long - 180}]; GeoListPlot[antipode, GeoRange -> "World"]) &, "PNG"], "Permissions" -> "Public" ]
 Out[1]=

Click the link in the output to visit the site.

Share the link by right-clicking it and choosing Copy Address. Paste the link into an email, tweet, or other message.

 In[1]:= XCloudDeploy[FormFunction[{"location" -> "Location"}, ({lat, long} = First[#location]; antipode = GeoPosition[{-lat, long - 180}]; GeoListPlot[antipode, GeoRange -> "World"]) &, "PNG"], "Permissions" -> "Public" ]
 Out[1]=