Re: Point on sphere greatest distance from given points
- To: mathgroup at smc.vnet.net
- Subject: [mg104078] Re: Point on sphere greatest distance from given points
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sun, 18 Oct 2009 05:23:33 -0400 (EDT)
- Reply-to: hanlonr at cox.net
loc = CityData[#, "Coordinates"] & /@
{"Chicago", "New York",
"London"}
{{41.840675, -87.679365}, {40.704234, -73.917927},
{51.5, -0.1166667}}
dist[{lat_?NumericQ, long_?NumericQ}, loc_List] :=
Total[GeoDistance[{lat, long}, #] & /@ loc]
Maximize[{dist[{lat, long}, loc],
-90 <= lat <= 90, -180 < long <= 180}, {lat, long}]
{5.32962*10^7,{lat->-41.0337,long->105.825}}
Bob Hanlon
---- Kelly Jones <kelly.terry.jones at gmail.com> wrote:
=============
How can I use Mathematica to solve this problem:
Given n points on a sphere, I want to find a point x such that:
Sum[distance[x,i],{i,1,n}]
is maximal, where "distance" is spherical ("great circle") distance.
In other words, I want to find the point x "furthest" from the given n points.
Is there any chance x will coincide with one of the given points? If
so, is there a better notion of distance to use?
--
We're just a Bunch Of Regular Guys, a collective group that's trying
to understand and assimilate technology. We feel that resistance to
new ideas and technology is unwise and ultimately futile.