在Wolfram语言中用GeoGraphics可视化嫦娥四号着陆点

最新推荐文章于 2024-09-03 20:56:03 发布

墨光君

最新推荐文章于 2024-09-03 20:56:03 发布

阅读量198

点赞数

分类专栏： Mathematica

本文链接：https://blog.csdn.net/Asdmath/article/details/105710988

版权

Mathematica 专栏收录该内容

11 篇文章 1 订阅

订阅专栏

2019年1月，中国成功地向月球的背面发射了着陆器和月球车。月球车降落在直径为2500公里的艾特肯撞击盆地。该盆地是太阳系中最大的撞击结构之一。在Wolfram语言中，可以使用 Geo Graphics 可视化着陆场地和艾特肯撞击盆地。使用浮雕图示法可以让着陆点周边的地理环境更容易被展现。
在这里插入图片描述
代码如下：
With[{
change4 = GeoPosition[{-45.5, 177.6}],
aitkencenter = GeoPosition[{-53, -169}],
aitkenradius = Quantity[2500/2, “Kilometers”]
},
GraphicsGrid[{GeoGraphics[
{GeoMarker[change4, “Color” -> Yellow], Yellow, Thickness[.004],
GeoCircle[aitkencenter, aitkenradius]},
GeoModel -> Entity[“PlanetaryMoon”, “Moon”],
GeoProjection -> {“Orthographic”,
“Centering” -> GeoPosition[{0, -180}]}, GeoRange -> All,
GeoZoomLevel -> 2, Background -> Black, ImagePadding -> 20,
GeoGridLines -> Quantity[10, “AngularDegrees”],
GeoGridLinesStyle -> Directive[Opacity[0.2`], GrayLevel[1]],
GeoBackground -> #] & /@ {“Satellite”, “ReliefMap”}},
ImageSize -> 800, Spacings -> 0]]