WOLFRAM

Wolfram Language & System Documentation Center

Construct a Globe Showing All Weather Stations

A globe showing weather station locations throughout the world.

    
Wolfram Language code: map = Join@@((List@@First@(CountryData[#, "Polygon"] /. (GeoPosition -> Identity)))& /@ CountryData[]); map = map /. List[a_ ? NumericQ, b_ ? NumericQ] :> List[b, a];
Wolfram Language code: coordsToXYZ[list_] := Transpose[{Cos[#[[1]]] * Cos[#[[2]]], Cos[#[[1]]] * Sin[#[[2]]], Sin[#[[1]]]}&@Reverse@Transpose[list * Pi / 180.]];
Wolfram Language code: stations = WeatherData[];
Wolfram Language code: coords = coordsToXYZ[{QuantityMagnitude@WeatherData[#, "Longitude"], QuantityMagnitude@WeatherData[#, "Latitude"]}& /@ stations];
Wolfram Language code: globe = First@ParametricPlot3D[.99 * {Sin[u] Sin[v], Cos[u]Sin[v], Cos[v]}, {u, -π, π}, {v, -π, π}, MaxRecursion -> 4, Axes -> None, PlotStyle -> Opacity[.5], PlotTheme -> "Classic"];
Wolfram Language code: Graphics3D[{globe, Black, Line /@ coordsToXYZ /@ map , Red, Point@coords}, Boxed -> False, ImageSize -> Medium, Lighting -> "Neutral"]