Mapee la presión del aire por regiones 

Examine la distribución de la presión del aire alrededor del huracán Katrina cuando toca tierra por segunda vez.

muestre la entrada completa de Wolfram Languageoculte la entrada

In[1]:=

X stationnames = DeleteDuplicates[Flatten[ Table[AirPressureData[{i, j}, "StationName"], {i, 25, 40}, {j, -105, -80}] ]];

In[2]:=

X data = Flatten /@ ({Reverse@First@WeatherData[#, "Coordinates"], Quiet[AirPressureData[#, DateObject[{2005, 8, 29}, TimeObject[{11, 10}]] ]]} & /@ stationnames);

In[3]:=

X contours = Normal[First[ ListContourPlot[QuantityMagnitude@data, PlotRange -> {{-100, -85}, {25, 40}}, PlotRangePadding -> 0, InterpolationOrder -> 1, Frame -> False, MaxPlotPoints -> 200] ]] /. p_Polygon :> Polygon[GeoPosition[Reverse /@ p[[1]]]];

In[4]:=

X GeoGraphics[{Opacity[0.5], contours}, GeoRangePadding -> 0]

Out[4]=