Mathematica绘制网格圆

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

网格圆的绘制

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

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