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: [mg119526] Re: Mapping points
  • From: DrMajorBob <btreat1 at austin.rr.com>
  • Date: Wed, 8 Jun 2011 07:12:37 -0400 (EDT)

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: replace with closest value
  • Next by Date: Re: Mapping points
  • Previous by thread: Re: Mapping points
  • Next by thread: Re: Mapping points