利用Mathematica 查看天气预报~~~

查看天气得最新预报，定位到你想查看的地方得天气，点击get weather个人觉得这个功能真是给跪了

Manipulate[

Column[{

Show[Graphics[{LightGray, EdgeForm[Gray],

CountryData["World", {"Shape", "Equirectangular"}][[1]]}],

ImageSize -> 590, Axes -> True], panel}], {{panel, ""},

ControlType -> None},

{{pos, {0, 0}}, {-180, -90}, {180, 90}, Locator},

Button["get weather",

Block[{station = WeatherData[Reverse@pos, "StationName"]},

pos = Reverse@WeatherData[station, "Coordinates"];

panel =

Text@Grid[{{"temperature: ", WeatherData[station, "Temperature"],

WeatherData[station, "Temperature",

"UnitsName"]}, {"wind speed: ",

WeatherData[station, "WindSpeed"],

WeatherData[station, "WindSpeed",

"UnitsName"]}, {"pressure: ",

WeatherData[station, "Pressure"],

WeatherData[station, "Pressure",

"UnitsName"]}, {"weather station: ", station,

""}} /. _Missing -> "not known", Frame -> All]],

Method -> "Queued"],

SynchronousUpdating -> False]

————————By Wolfram 官网