I'm having a small problem with GeoDistance
.
I've chosen a target city – San Francisco – and I've computed distances from SF to five other cities. Then I draw circles around each city, with radius equal to the distance to San Francisco. The circles should all intersect at the same point. However, zooming in, we see that they're off by several hundred feet:
sf = SemanticInterpretation["SF"];
names = {"NYC", "Paris", "Buenos Aires", "Mumbai", "Moscow"};
cities = SemanticInterpretation /@ names;
GeoGraphics[
Table[
GeoCircle[c, GeoDistance[sf, c, DistanceFunction -> "Center"]],
{c, cities}
]
]
Show[%, GeoCenter -> sf, GeoRange -> Quantity[100, "Miles"]]
Show[%, GeoCenter -> sf, GeoRange -> Quantity[1, "Miles"]]
Is it possible to make them intersect better? Possibly by forcing GeoDistance
to use a spherical Earth model, or some other option magic?
The closest previous post I could find was this one.