Mathematica绘制网格圆

  • A+
所属分类:美丽的图像
摘要记录一段mathematica绘制网格圆的图像。

这一段代码也是我在网上看到的,忘记出处是在哪里了,但是作出的图还是很好看得,就先记录在这里。

网格圆的绘制

Graphics3D[{PointSize@Medium, 
  Map[{Blend[{Green, Blue}, (Mean@*Flatten @@ # + 1)/2], #} &, 
   MeshPrimitives[DiscretizeRegion@Sphere[], #] & /@ {0, 1}, {2}]}, 
 Boxed -> False]

运行上面的代码就能获得下面的图形。

  • 微信公众号
  • 关注微信公众号
  • weinxin
  • QQ群
  • 我们的QQ群号
  • weinxin
王 茂南

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: