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

10 弹簧绕当作一个圈会是什么模样呢？
ParametricPlot3D[
Evaluate[Table[{（2 + Cos[8 u + i】) Cos[u], (2 + Cos[8 u + i]) Sin[u],
Sin[8 u + i]}, {i, {0, Pi}}]]， {u, 0, 2 Pi}】

11 给它起个名字叫“弹簧线圈”：
ParametricPlot3D[{(2 + Cos[8 u]) Cos[u], (2 + Cos[8 u]) Sin[u],
Sin[8 u]}, {u, 0, 2 Pi}, AxesLabel -> {x, y}, PlotLabel -> “弹簧线圈”]

12 有两种方式可以画一个圆环。
第一种方式是用RevolutionPlot3D扭转一个圆获得圆环，这里先忽略；
第二种方式：
ParametricPlot3D[{(2 + Cos[v]) Cos[u], (2 + Cos[v]) Sin[u],
Sin[v]}, {u, 0, 2 Pi}, {v, 0, 2 Pi}, AxesLabel -> {x, y}，
PlotLabel -> “圆环”]

13 用ColorFunction把“线圈”和“圆环”画当作彩色：
ParametricPlot3D[{(2 + Cos[v]) Cos[u], (2 + Cos[v]) Sin[u],
Sin[v]}, {u, 0, 2 Pi}, {v, 0, 2 Pi}, Mesh -> 25,
ColorFunction -> Function[{x, y, z, u, v}, Hue[5 u v/(2 Pi)]],
ColorFunctionScaling -> False]
和
ParametricPlot3D[{(2 + Cos[8 u]) Cos[u], (2 + Cos[8 u]) Sin[u],
Sin[8 u]}, {u, 0, 2 Pi}, PlotStyle -> Thick,
ColorFunction -> Function[{x, y, z, u}, Hue[5 u/(2 Pi)]],
ColorFunctionScaling -> False]

14 上面的动态图片如下。

15 先到这里吧！

注重事项当绘制多个图形的时辰，各项参数要分隔设置。
高光反射，用Specularity节制。
在转变区域较快的区域，可以恰当地增添网格线的密度。
把“, Axes -> False”删失落，可以看到坐标系。
当曲面不持续的时辰， Mathematica会主动忽略失落无法显示的部门。
读者可以本身思虑一下，若何画出三个互相环绕纠缠的圆环？
还可以用RevolutionPlot3D扭转一个圆获得圆环。

以上内容就是用Mathematica绘制函数图像——参数方程式的内容啦，希望对你有所帮助哦！

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

猜你喜欢