这一段代码也是我在网上看到的,忘记出处是在哪里了,但是作出的图还是很好看得,就先记录在这里。
网格圆的绘制
Graphics3D[{PointSize@Medium,
Map[{Blend[{Green, Blue}, (Mean@*Flatten @@ # + 1)/2], #} &,
MeshPrimitives[DiscretizeRegion@Sphere[], #] & /@ {0, 1}, {2}]},
Boxed -> False]
运行上面的代码就能获得下面的图形。
![Mathematica绘制网格圆](https://img.mathpretty.com/snipaste_20180224_201416.png?imageView2/0/q/75|watermark/2/text/5YWz5rOo5YWs5LyX5Y-377ya5paH6Im65pWw5a2m5ZCb/font/5b6u6L2v6ZuF6buR/fontsize/540/fill/IzAwMDAwMA==/dissolve/100/gravity/SouthEast/dx/10/dy/10|imageslim)
- 微信公众号
- 关注微信公众号
-
- QQ群
- 我们的QQ群号
-
评论