Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Mapping points

  • To: mathgroup at smc.vnet.net
  • Subject: [mg119534] Re: Mapping points
  • From: DrMajorBob <btreat1 at austin.rr.com>
  • Date: Wed, 8 Jun 2011 07:14:04 -0400 (EDT)

My working code SHOULD be, in effect, the same as yours. But one works  
here, and the other doesn't.

I haven't found curated data functions very reliable, in general. Maybe  
it's an installation problem.

Bobby

On Tue, 07 Jun 2011 20:07:59 -0500, Bob Hanlon <hanlonr at cox.net> wrote:

> I copied and pasted the code from my e-mail into a new notebook in a  
> fresh session on each of two computers (iMac and MacBook Air).  Both ran  
> without exception and the tooltips had all of the requested data.
>
> You can use either the ImageSize or the AspectRatio to alter the  
> perspective. However distortion is unavoidable since the projection is  
> onto a regular grid.
>
>
> Bob Hanlon
>
> ---- DrMajorBob <btreat1 at austin.rr.com> wrote:
>
> =============
> Five minutes later, after SEVERAL updates of the curated data... we get a
> (distorted?) map of the country.
>
> The Tooltips read, for instance, "cd[{Houston,Texas,United
> States},Name,Coordinates,Population" -- exactly like that.
>
> Adding this code beforehand:
>
> Clear[cd]
> cd[x_, y_List] := cd[x, #] & /@ y
> cd[any__] := CityData[any]
>
> turns the same ToolTip into {Houston,{29.7629,
> -95.3832},Missing[NotAvailable]}, even though
>
> CityData[{"Houston", "Texas", "United States"}, "Population"]
>
> 2257926
>
> ALL the populations are Missing[NotAvailable] in the ToolTips.
>
> But THIS works (for what reason, I cannot imagine):
>
> Clear[name, coordinates, pop]
> country = "UnitedStates";
> large = Take[CityData[{Large, country}], 30];
> name[city_] := name[city] = CityData[city, "Name"]
> coordinates[city_] := coordinates[city] = CityData[city, "Coordinates"]
> pop[city_] := pop[city] = CityData[city, "Population"]
> Graphics[{LightGray, CountryData[country, "Polygon"],
>    PointSize[Medium], Red,
>    Tooltip[Point[Reverse[CityData[#, "Coordinates"]]], {name@#,
>        coordinates@#, pop@#}] & /@ large}, Frame -> True,
>   ImageSize -> 600]
>
> Bobby
>
> On Tue, 07 Jun 2011 05:45:08 -0500, Bob Hanlon <hanlonr at cox.net> wrote:
>
>>
>> cd[city_, prop_List] := CityData[city, #] & /@ prop
>>
>> Module[{country = "UnitedStates"},
>>  Graphics[{
>>    LightGray,
>>    CountryData[country, "Polygon"],
>>    PointSize[Medium],
>>    Red,
>>    Tooltip[
>>       Point[Reverse[
>>         CityData[#, "Coordinates"]]],
>>       cd[#, {"Name", "Coordinates", "Population"}]] & /@
>>     Take[CityData[{Large, country}], 30]},
>>   Frame -> True,
>>   ImageSize -> 600]]
>>
>>
>> Bob Hanlon
>>
>> ---- Yako <yako at 11y11.com> wrote:
>>
>> =============
>> Hello,
>>
>> I been trying to look information on how to do this but couldn't find
>> a clue, if someone here can hint me I will really appreciate it.
>>
>> Given a set of LAT, LON points I have to map them inside a white
>> graph. My en result will need to be a white graph full of dots in its
>> correspondent lat, lon location.
>>
>> Can I achieve something like this using mathematica? Can someone hint
>> me in the right direction?
>>
>> Thanks a lot!
>>
>>
>>
>>
>
>


-- 
DrMajorBob at yahoo.com


  • Prev by Date: Re: Mapping points
  • Next by Date: Re: Mapping points
  • Previous by thread: Re: Mapping points
  • Next by thread: Re: Mapping points