Mathematica晋阶——把图片投影到球面上

1、首先，我们要准备一副好看的纹理图片。

2、在Mathematica里面，把这个图片赋值给a0。当a0的颜色由蓝色变为黑色，说明赋值成功了。在以后的代码里，a0就代表上面的纹理图片。

3、好，下面把图片a0粘到球面上。

其中，Texture[a0]的作用，就是把a0转化为Mathematica默认的“纹理”。

4、用同样的手段，可以把a0的图案拓印到圆柱面上。

5、看看如果把这个纹理粘到伪球面上，会是什么模样！

伪球面的参数方程是：{Cos[u] Sin[v], Sin[u] Sin[v], Cos[v] + Log[Tan[v/2]]}