mathematica 曲线旋转ParametricPlot[{Abs[Cos[ t]] Cos[t] ,Abs[Cos[t]] Sin[t]},{t,0,2π},PlotRange -> {-1,1},AspectRatio -> Automatic,Axes -> Automatic];这个图,绕纵轴旋转一周,得到空间立体图形画不出啊

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/13 01:30:08
mathematica 曲线旋转ParametricPlot[{Abs[Cos[ t]] Cos[t] ,Abs[Cos[t]] Sin[t]},{t,0,2π},PlotRange -> {-1,1},AspectRatio -> Automatic,Axes -> Automatic];这个图,绕纵轴旋转一周,得到空间立体图形画不出啊

mathematica 曲线旋转ParametricPlot[{Abs[Cos[ t]] Cos[t] ,Abs[Cos[t]] Sin[t]},{t,0,2π},PlotRange -> {-1,1},AspectRatio -> Automatic,Axes -> Automatic];这个图,绕纵轴旋转一周,得到空间立体图形画不出啊
mathematica 曲线旋转
ParametricPlot[{Abs[Cos[ t]]
Cos[t] ,Abs[Cos[t]] Sin[t]},{t,0,
2π},PlotRange -> {-1,1},AspectRatio -> Automatic,
Axes -> Automatic];
这个图,绕纵轴旋转一周,得到空间立体图形
画不出啊

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]