怎么用Mathematica绘制圆柱？

电脑

Mathematica

一个标准的圆柱的隐函数方程是 x^2+y^2==1：ContourPlot3D[x^2+y^2==1,{x,-2,2},{y,-2,2},{z,-2,2}]

这个圆柱的参数方程是 {Cos[t],Sin[t],z}：ParametricPlot3D[{Cos[t],Sin[t],z},{t,0,2 Pi},{z,-2,2}]

RevolutionPlot3D [{1,t},{t,-2,2}]这三幅图虽然是同一个圆柱，但是图像质量不一样。

也可以写为：RevolutionPlot3D[{1,0,t},{t,-2,2}]这实际上线段{1,0,t}绕z轴旋转而成。

曲线{Cos[t],Sin[t],t}绕z轴旋转一周，也是一个圆柱。

曲线{Cos[6*t],Sin[6*t],t}绕z轴旋转，表面的网格线已经不清楚了。

{Cos[2*t],Sin[t],t}绕z轴旋转，得到的，就不再是圆柱。

下图是{1,Sin[t],t}绕z轴旋转的图像。

{1,t*Sin[t],t}的旋转曲面。