Mapeie a pressão do ar por regiões 

Examine a distribuição da pressão do ar em torno do furacão Katrina quando este fez sua segunda entrada no continente.

mostre o input completo de Wolfram Languageoculte o input

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]=