用Mathematica绘制函数图像——参数方程式 _电脑

这里，有尽善尽美的图形，有死板乏味的代码，这里说的是用Mathematica的ParametricPlot（３Ｄ）、绘制参数方程的图像的方式。

文章插图

文章插图

需要这些哦
电脑
Mathematica
方式/
1 先来吸睛——一个半透明的绿贝壳：
ParametricPlot3D[{1.16^v Cos[v] (1 + Cos[u]), -1.16^v Sin[v] (1 + Cos[u]), -2 1.16^v (1 + Sin[u])}, {u, 0, 2 Pi}, {v, -15, 6},
【用Mathematica绘制函数图像——参数方程式】Mesh -> None, PlotStyle -> {Opacity[0.6], Green}, PlotRange -> All,
PlotPoints -> 25, Boxed -> False, Axes -> False]

文章插图

文章插图

2 另一条参数化的曲面：
ParametricPlot3D[{Cos[u], Sin[u] + Cos[v], Sin[v]}, {u, 0, 2 \[Pi]}, {v, -\[Pi], \[Pi]}, Mesh -> None, Axes -> False,
Boxed -> False, PlotStyle -> {Opacity[1], Green}】

文章插图

3 绘制两个套在一路的圆环，两个圆环红绿相间：
ParametricPlot3D[{{4 + (3 + Cos[v]) Sin[u], 4 + (3 + Cos[v]） Cos[u],
4 + Sin[v]}, {8 + (3 + Cos[v]) Cos[u], 3 + Sin[v],
4 + (3 + Cos[v]) Sin[u]}}, {u, 0, 2 Pi}, {v, 0, 2 Pi},
PlotStyle -> {{Opacity[0.6], Red}, {Opacity[0.6】, Green}},
Mesh -> None, Axes -> False, Boxed -> False】
注重透明度是别离设置的！