Karten mit Lichtverhältnissen entsprechend des Sonnenstands erzeugen  

Erstellen Sie eine Karte Ihres Landes mit der Darstellung der Lichtverhältnisse entsprechend des Sonnenstandes zwischen Sonnenaufgang und -untergang.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

In[1]:=

X horizonCoordinatesToLightingAngle[{azimuth_, altitude_}] := {(2 \[Pi] - QuantityMagnitude[UnitConvert[azimuth, "Radians"]] + \[Pi]/2), QuantityMagnitude[UnitConvert[altitude, "Radians"]]}; frames = Rasterize[ GeoGraphics[{GeoStyling["ReliefMap", LightingAngle -> horizonCoordinatesToLightingAngle[SunPosition[#]]], Polygon[Entity["Country", "UnitedStates"]]}, ImageSize -> 400, GeoRange -> {{20, 65}, {-130, -65}}], Background -> None] & /@ DateRange[Sunrise[Today], Sunset[Today], {1, "Hour"}];

In[2]:=

X Manipulate[frame, {frame, frames, Animator}]

Animation abspielen Abspielung unterbrechen