Gere mapas com iluminação baseada na posição do Sol 

Crie um mapa de seu país com a iluminação definida pela posição do Sol entre o nascer e o pôr do sol.

mostre o input completo de Wolfram Languageoculte o input

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

Reproduzir Parar