Novas divisões para a lua
A versão 11 inclui um conjunto melhorado de divisões da lua, com zooms de 1 a 9.
Esta é a localização do local de pouso da missão Apollo 15.
In[1]:=
![Click for copyable input](assets.pt-br/new-tiles-for-the-moon/In_1.png)
landing =
Entity["MannedSpaceMission", "Apollo15"][
EntityProperty["MannedSpaceMission", "LandingPosition"]]
Out[1]=
![](assets.pt-br/new-tiles-for-the-moon/O_1.png)
Trace um marcador geográfico em um mapa ortográfico do lado mais próximo da Lua.
In[2]:=
![Click for copyable input](assets.pt-br/new-tiles-for-the-moon/In_2.png)
GeoGraphics[GeoMarker[landing], GeoProjection -> "Orthographic",
GeoRange -> All, GeoGridLines -> Quantity[20, "AngularDegrees"],
GeoGridLinesStyle -> Directive[Opacity[0.3], LightBlue],
Background -> Black]
Out[2]=
![](assets.pt-br/new-tiles-for-the-moon/O_2.png)
O local de pouso está localizado perto do extremo leste do Mare Imbrium.
In[3]:=
![Click for copyable input](assets.pt-br/new-tiles-for-the-moon/In_3.png)
GeoGraphics[GeoMarker[landing], GeoProjection -> "Orthographic",
GeoRange -> All, GeoGridLines -> Quantity[20, "AngularDegrees"],
GeoGridLinesStyle -> Directive[Opacity[0.3], LightBlue],
Background -> Black];
Show[%, GeoRange -> Quantity[200, "Miles"],
GeoGridLines -> Quantity[2, "AngularDegrees"]]
Out[3]=
![](assets.pt-br/new-tiles-for-the-moon/O_3.png)
Aumente o zoom.
In[4]:=
![Click for copyable input](assets.pt-br/new-tiles-for-the-moon/In_4.png)
landing =
Entity["MannedSpaceMission", "Apollo15"][
EntityProperty["MannedSpaceMission", "LandingPosition"]];
Show[%, GeoRange -> Quantity[200, "Miles"],
GeoGridLines -> Quantity[2, "AngularDegrees"]];
Show[%, GeoRange -> Quantity[15, "Miles"],
GeoGridLines -> Quantity[.2, "AngularDegrees"]]
Out[4]=
![](assets.pt-br/new-tiles-for-the-moon/O_4.png)