Cree mapas con iluminación basada en la posición del Sol 

Cree un mapa de su país con la iluminación fijada por la posición del Sol entre el amanecer y atardecer.

muestre la entrada completa de Wolfram Languageoculte la entrada

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

Reproducir Detener