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

4 + Sin[v]}, {8 + (3 + Cos[v]) Cos[u], 3 + Sin[v],
4 + (3 + Cos[v]) Sin[u]}, {12 + (3 + Cos[v]) Sin[u],
4 + (3 + Cos[v]) Cos[u], 4 + Sin[v]}}, {u, 0, 2 Pi}, {v, 0, 2 Pi},
PlotStyle -> {{Opacity[0.5], Red}, {Opacity[0.5],
Green}, {Opacity[0.5], Blue}}]
读者可以本身思虑一下，若何画出三个互相环绕纠缠的圆环？

5 绘制一个不透明的蓝色球体，概况有平均的海浪条纹，还有白色的高光反射：
ParametricPlot3D[{Sin[u] Sin[v] + 0.05 Cos[20 v],
Cos[u] Sin[v] + 0.05 Cos[20 u],
Cos[v]}, {u, -\[Pi], \[Pi]}, {v, -\[Pi], \[Pi]}, MaxRecursion -> 4,
PlotStyle -> {Blue, Specularity[White, 10]}, Axes -> None,
Boxed -> False, Mesh -> None]
高光反射，用Specularity节制。

6 画贝壳的时辰，在转变区域较快的区域，增添网格线的密度：
ParametricPlot3D[{1.16^v Cos[v/2] (1 + Cos[u]), -1.16^v Sin[
v/2] (1 + Cos[u]), -2 1.16^v (1 + Sin[u])}, {u, 0,
2.6 Pi}, {v, -15, 6}, Mesh -> All, PlotRange -> All, Boxed -> False,
Axes -> False, PlotStyle -> {Opacity[0.9], Pink}】

7 绘制三维空间的曲线——单参数曲直线，双参数曲直面：
ParametricPlot3D[{Cos[2 u], Sin[2 u], Sqrt[u] + Sin[5 u]/5}, {u, 0,
4 Pi}, Mesh -> All, PlotStyle -> {Pink}

8 Mathematica会主动选择绘图的区域规模，以下面的“长号”为例：
ParametricPlot3D[{v Cos[u], v Sin[u], 1/Abs[v Exp[I u]]}, {u, 0,
2 Pi}, {v, 0, 1}, PlotStyle -> RGBColor[0, 0.7, 0.3],
Boxed -> False, Axes -> False】
这里，坐标埋没了。你可以把“, Axes -> False”删失落，可以看到坐标系。

9 当曲面不持续的时辰， Mathematica会主动忽略失落无法显示的部门：
ParametricPlot3D[{u Cos[v], u Sin[v], Im[(u Exp[I v]^5)^(1/5)]}, {u,
0, 2}, {v, 0, 2 Pi}, Mesh -> None, ExclusionsStyle -》 {None, Red}]

用Mathematica绘制函数图像——参数方程式( 二 )

猜你喜欢