RE: Re: WorldPlot Question

*To*: mathgroup at smc.vnet.net*Subject*: [mg47056] RE: [mg47043] Re: WorldPlot Question*From*: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>*Date*: Mon, 22 Mar 2004 22:39:11 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

>-----Original Message----- >From: Terry [mailto:tharter at attglobal.net] To: mathgroup at smc.vnet.net >Sent: Monday, March 22, 2004 11:19 AM >To: mathgroup at smc.vnet.net >Subject: [mg47056] [mg47043] Re: WorldPlot Question > > >Sorry, but I found out that I have the Mathematica command wrong. The >correct command is >WorldData["Country Name]. My same question below still stands. >.......Terry > >Terry wrote: > >>Hi All: >> In the WorldPlot package, it is possible to obtain the >vertices of >>the polygon that defines the border >>of a country by entering the command, >> WorldPoints["Country Name"] >> >>A fixed (default) number of vertex points is returned. >Now, is there >>a way to increase the number of points >>that this command returns with? If so, how? >>TIA, >>.......Terry >> >> >> > Terry, the Database for WordPlot is separate from the code, see Help. In[2]:= << Miscellaneous`WorldNames` To get the association of countries to continents. In[3]:= << Miscellaneous`WorldData` In[5]:= Oceania // InputForm Out[5]//InputForm= {"Indonesia", "Papua New Guinea", "Fiji", "Australia", "New Zealand"} In[6]:= WorldData["New Zealand"] Out[6]= {{{-2501, 10441}, {-2430, 10363}, {-2505, 10288}, {-2773, 10004}, {-2753, 10247}, {-2685, 10229}, {-2634, 10332}, {-2598, 10257}, {-2596, 10365}, {-2501, 10441}}, {{-2381, 10616}, {-2497, 10514}, {-2412, 10521}, {-2365, 10428}, {-2224, 10497}, {-2065, 10362}, {-2258, 10560}, {-2262, 10713}, {-2381, 10616}}} You see two closed lines for each of the main isles. It just isn't more. But I'm certain for more details you'll find resources on the internet. All you have to do then, is to bring it to the syntax above and define WorldData["New Zealand"]= <the better (and perhaps more) polygons> -- Hartmut Wolf