Group Abstract Group Abstract

Message Boards Message Boards

Where Is the Center of the US?

Posted 8 years ago
Attachments:
7 Replies

enter image description here - you have earned "Featured Contributor" badge, congratulations!

This is a great post and it has been selected for the curated Staff Picks group. Your profile is now distinguished by a "Featured Contributor" badge.

POSTED BY: EDITORIAL BOARD

Very nice analysis! How do these points compare to the 'core' of the country; the point furthest away from the boundary:

rawpolygon=Polygon/@Map[Reverse,Entity["Country","UnitedStates"]["Polygon"][[1,1]],{2}];
rawpolygon=First@TakeLargestBy[rawpolygon,Area,1]; (* main land *)
r=DiscretizeGraphics[rawpolygon];

srdf=SignedRegionDistance[r];
pts=RandomPoint[r,750];   (* get some random points inside this region *)

sols=Quiet[FindMinimum[srdf[{x,y}],{x,#[[1]]},{y,#[[2]]}]]&/@pts;  (* minimize the distance function starting from various points *)
sols={#1,{x,y}/.#2}&@@@sols; 
min=First[TakeSmallestBy[sols,First,1]] (* get the one that is furthest away *)

Show[{r,Graphics[Point[min[[2]]]]}]

Giving:

{-9.88794, {-98.1595, 39.1123}}

enter image description here

One could be even more elaborate by using GeoDistance such as to correct for the elliptical shape of the earth...

POSTED BY: Sander Huisman

So this is generally referred to as a pole of inaccessibility. These are nice, but there are a few cases where they can give strange results. For example, the red dot represents the pole of inaccessibility in this 2D shape, but I would probably not call it the "center":

pole of inaccessibility edge case

There are some nice ways we can calculate the poles of inaccessibility though. As you say, that method could be made slightly more accurate (or more consistent / projection independent) with GeoDistance. The problem is that, to my knowledge, there isn't a nice function for the signed GeoDistance from a geo-polygon. I think there is a way though that is equivalent.

The "AzimuthalEquidistant" projection has a very convenient property. To quote Wikipedia, "all points on the map are at proportionately correct distances from the center point". Suppose we have two GeoPositions, a, and b. The ratio between the distance to the border from a, and the distance to the border from b, should then be the same as the ratio between the distance to the border from a in the AzimuthalEquidistant projection centered on a, and the distance to the border from b in the AzimuthalEquidistant projection centered on b.

With that, we can make a function that will give proportionally consistent distances to the coast without any use of GeoDistance.

distanceFromBorder[r_, pos : GeoPosition[{_?NumberQ, _?NumberQ}]] := 
    SignedRegionDistance[
        projectMesh[r, {"AzimuthalEquidistant", "Centering" -> pos}],
        GeoGridPosition[pos, {"AzimuthalEquidistant", "Centering" -> pos}][[1]]
    ]

We then just have to minimize that function to get the point farthest from the borders.

poi = GeoPosition@Reverse@NArgMin[distanceFromBorder[r, GeoPosition[{y, x}]], {x, y} \[Element] r]

Out[]= GeoPosition[{39.2011, -98.1285}]

GeoListPlot[poi, GeoRange -> Entity["Country", "UnitedStates"], ImageSize -> 1000]

the point farthest from the borders of the conterminous US

DensityPlot[distanceFromBorder[r, GeoPosition[{y, x}]], {x, y} \[Element] r, AspectRatio -> Automatic, Epilog -> {Red, PointSize[Large], Point[Reverse@poi[[1]]]}]

map of the distances to the borders

It is interesting to see how close though the point you got with that projection, and the point you get with this method. It looks like they are only a few miles apart.

That's a very nifty way of finding that point! I was unaware of the name of this point, interesting name. Somehow I missed it on this page: https://en.wikipedia.org/wiki/List_of_extreme_points_of_the_United_States

Thanks for sharing.

POSTED BY: Sander Huisman

Nice Job!

I like your approach, However we all know that the center of the entire world is in New York City: (spoken like a true New Yorker!)

enter image description here

POSTED BY: Neil Singer

After Amsterdam, your New Amsterdam makes a good second ;)

POSTED BY: Sander Huisman

(I'm just holding onto this first reply for if I get the chance to calculate these for all 50 states as opposed to just the conterminous states.)

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard