New in Wolfram Mathematica 7: Current & Historical Weather Data ◄ previous | next ►
Visualize Long-Term Climate Trends
Monthly temperatures displayed as a surface.
In[1]:=

Click for copyable input
data = Flatten[{#[[1, 1 ;; 2]], #[[2]]}] & /@ 

   WeatherData["KTUL", "MeanTemperature", {{1950}, {2008}, "Month"}];
In[2]:=

Click for copyable input
ListPlot3D[data, ColorFunction -> "ThermometerColors", 

 Filling -> Bottom,  FillingStyle -> LightPink, Mesh -> False, 

 Boxed -> False]
Out[2]=