gl=ParametricPlot3D[ 10Cos[t, 10Sin[t], 2t, t, 0, 2P11 g2=ParametricPlot3D[( 10Cos[t], 10Sin[t], s), ( t, 0, 2Pi),(s,0,5]: Showel, g2 结果 实验11画演示由曲线y=smzz∈[0n]绕z轴旋转产生旋转曲面的过程 程序 For[I=1,j<=30,i++, ParametricPlot3D[Sin(z]*Cos[u], Sin(z]*Sin(u), z), (z, 0, Pi),u,0, 2*Pi*1/30) AspectRatio->1, AxesLabel->(X,Y", Z"), PlotRange->k-1, 1), -1, 13,10,49)J] 实验12将一张薄膜贴在x=0.x=1y=0,y=1的方框上,薄膜振动的函数取为 u(xy:)=>∑16 (+cosnT)(-cosmrsin(ntx)sin(mr y).cos((m2+n'tt 其中 如mn2 t为参数,作出图形随r的变动而引起薄膜振动的动画 程序 <<Graphics Animation Clear[x,y,t, m, n] Sum[16°(1+Cos[n*Pl])*(1-Cos[m*P])Sin[n*Pi*x]*Sin[mPi*y]* Cos{Sqrt[m^2+n^2]*Pit/(m^2*n^2*P1^2){m,1,4},{n,1,4} Animate[Plot3Dux,y, t,(x, 0, 1,y, 0, 1), PlotRange->(-8, 8t, 0, 1.75,0.251g1=ParametricPlot3D[{10Cos[t],10Sin[t],2t},{t,0,2Pi}]; g2=ParametricPlot3D[{10Cos[t],10Sin[t],s},{t,0,2Pi},{s,0,5}]; Show[g1,g2]; 结果： 实验11 动画演示由曲线 ， 绕 轴旋转产生旋转曲面的过程 程序： For[i=1,i<=30,i++, ParametricPlot3D[{Sin[z]*Cos[u],Sin[z]*Sin[u],z},{z,0,Pi},{u,0,2*Pi*i/30}, AspectRatio->1,AxesLabel->{"X','Y","Z"},PlotRange->{{-1,1},{-1,1},{0,4}}]] 实验12 将一张薄膜贴在 的方框上，薄膜振动的函数取为 ，其中 为参数，作出图形随 的变动而引起薄膜振动的动画 程序： <<Graphics`Animation`; Clear[x,y,t,m,n]; u[x_,y_,t_]:= Sum[16*(1+Cos[n*Pi])*(1-Cos[m*Pi])*Sin[n*Pi*x]*Sin[m*Pi*y]* Cos[Sqrt[m^2+n^2]*Pi*t]/(m^2*n^2*Pi^2),{m,1,4},{n,1,4}] Animate[Plot3D[u[x,y,t],{x,0,1},{y,0,1},PlotRange->{-8,8}],{t,0,1.75,0.25}]