怎么绘制曲面表面的网格线？

1、首先，给出一个曲面的参数方程，并绘制曲面：

r[u_,v_]:={Sin[u],Cos[v],Sin[v] Cos[u]}

这个图形，看起来就像是一个充气的枕头。

2、用Mesh->None，可以把网格线隐藏起来，使之看起来光秃秃的。

为了不至于太难看，把它改为绿色。

3、在r[u,v]里面，如果v取定值，那么r[u,v]就是曲面上的一条曲线，叫做u曲线，

下图就是在曲面上画出的一条u曲线（图中的蓝色线）。

4、用Table来多绘制几条u曲线：

Table[r[u,v],{v,0,2 Pi,2 Pi/35}]

你能数出图中有几条u曲线吗？

5、同样，可以单独画出一条红色的v曲线，也就是u为定值时的图形：

r[Pi/2+1,v]

6、用Table来绘制若干条v曲线：

Table[r[u,v],{u,0,2 Pi,2 Pi/25}]

顺便数数v曲线的数目。

7、当我们把上面的u曲线，v曲线，画到一起的时候，就出现了网格线，只不过网格线的密度和原先的不一样了。

8、直接用Mesh和MeshStyle来控制网格线的样式，并与上面的图作一番对比：

……,Mesh->{26,36},MeshStyle->{Red,Blue},……