作业帮 > 数学 > 作业

mathematica 曲线旋转

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/25 05:03:43
mathematica 曲线旋转
ParametricPlot[{Abs[Cos[ t]]
Cos[t] ,Abs[Cos[t]] Sin[t]},{t,0,
2π},PlotRange -> {-1,1},AspectRatio -> Automatic,
Axes -> Automatic];
这个图,绕纵轴旋转一周,得到空间立体图形
画不出啊
RevolutionPlot3D[{Abs[Cos[t]] Cos[t],Abs[Cos[t]] Sin[t]},{t,0,
2 \[Pi]},PlotRange -> {-1,1},AspectRatio -> Automatic]