月球的新图块
版本 11 中增添了用于月球的一套改进的图块 (tile),具有 1 到 9 倍放大功能.
以下为阿波罗 15 号任务的着陆地点.
In[1]:=
![Click for copyable input](assets.zh/new-tiles-for-the-moon/In_1.png)
landing =
Entity["MannedSpaceMission", "Apollo15"][
EntityProperty["MannedSpaceMission", "LandingPosition"]]
Out[1]=
![](assets.zh/new-tiles-for-the-moon/O_1.png)
在月球正面的正射投影图上绘制一个标记.
In[2]:=
![Click for copyable input](assets.zh/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.zh/new-tiles-for-the-moon/O_2.png)
着陆点接近雨海 (Mare Imbrium) 的东侧边缘.
In[3]:=
![Click for copyable input](assets.zh/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.zh/new-tiles-for-the-moon/O_3.png)
进一步放大.
In[4]:=
![Click for copyable input](assets.zh/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.zh/new-tiles-for-the-moon/O_4.png)