RevolutionPlot3D画图问题

Question

用RevolutionPlot3D画下底是正圆，上底是椭圆的圆台，理论来说，下底面和上顶面的形状应该是这样的，

，实际画出来的3维图是这样的，可见发生了形变，不知道哪里出了问题。 

。

所用代码如下，

 a1=5;b1=5;(*下底面长短轴*)
a2=5;b2=10;(*上顶面长短轴*)
z1=0;z2=1;
a=(a2-a1)/(z2-z1)(t-z1)+a1;
b=(b2-b1)/(z2-z1)(t-z1)+b1;
RevolutionPlot3D[{a Cos[\[Theta]],b Sin[\[Theta]],t},{t,z1,z2},{\[Theta],0,2Pi},AxesLabel->{"x","y","z"}]

Answer 1

函数用错了，应该使用 ParametricPlot3D

a1 = 5; b1 = 5;  (*下底面长短轴*)
a2 = 5; b2 = 10;  (*上顶面长短轴*)
z1 = 0; z2 = 1;
a = (a2 - a1)/(z2 - z1) (t - z1) + a1;
b = (b2 - b1)/(z2 - z1) (t - z1) + b1;
ParametricPlot3D[{a Cos[\[Theta]], b Sin[\[Theta]], t}, {t, z1, 
  z2}, {\[Theta], 0, 2 Pi}, AxesLabel -> {"x", "y", "z"}]