月球的新图块
版本 11 中增添了用于月球的一套改进的图块 (tile)，具有 1 到 9 倍放大功能.
以下为阿波罗 15 号任务的着陆地点.
In[1]:=
landing =
Entity["MannedSpaceMission", "Apollo15"][
EntityProperty["MannedSpaceMission", "LandingPosition"]]Out[1]=
在月球正面的正射投影图上绘制一个标记.
In[2]:=
GeoGraphics[GeoMarker[landing], GeoProjection -> "Orthographic",
GeoRange -> All, GeoGridLines -> Quantity[20, "AngularDegrees"],
GeoGridLinesStyle -> Directive[Opacity[0.3], LightBlue],
Background -> Black]Out[2]=
着陆点接近雨海 (Mare Imbrium) 的东侧边缘.
In[3]:=
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]=
进一步放大.
In[4]:=
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]=
