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