标签：曲面 mathematica
代码如下:
ParametricPlot3D[{(3 + Sin[v] + Cos[u]) Sin[
2 v], (3 + Sin[v] + Cos[u]) Cos[2 v], (Sin[u] + 2 Cos[v])}, {u, 0,
2 Pi}, {v, 0, 2 Pi}, Mesh -> None, Axes -> False, Boxed -> False,
PlotPoints -> 150,
ColorFunction -> (RGBColor[#, 0, 1 - #, 4/5] &[
1/2 + {1, -1}.{#1, #2}/2] &), PlotTheme -> "Classic",
ImageSize -> Large]标签：曲面 mathematica
原文地址：http://blog.csdn.net/stereohomology/article/details/46513873
