资源描述:
《数学Matlab实验程序》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、数学Matlab实验程序1-4P=linspace(0,2*PI,400):Q=P;[t,u]=meshgrid(p,q)・X=cos(t).*(3+cos(u)):Y=sin(t).*(3+cos(u)):Z=sin(u);Mesh(x,y,u);DrawmultiplecurvesinthesamediagramX=linspace(-10,10);Plotofx,sineofx,cosineofx,cosineofxplussineofx.DrawmultiplecurvesinthesamediagramXI二0:02.1:2*PI;Plot(xl,sineofxl
2、);HoldonX2二PI:0.1:PI;Plot(x2,cosineofx2);From1to5XI二0-0.01:PI;Y1二xl;Y2二cos(xl);X2isequaltominus1,0.Y3二acosine(x2);Plot(xl,yl,'r'),holdonPlot(xl,y2,'g'),holdonPlot(x2,y3,'b');TheaxisequalThedrawingexamplesNormalmappingX二linspace(-3,3);Y二exp(0.5*x八2);Subplot(2,2,1),plot(X,y,'r');Subplot(2,2,
3、2),plot(X,y,'go');Subplot(2,2,3),plot(X,y,'b*');Subplot(2,2,4),plot(X,y,'y+');ParametricequationsT二linspace(0,2*PI,5000);X二2*(cos(t))・"3.Y二2*(sin(t))・"3.Theplot(x,y);TheaxisequalPolarcoordinates-fourleafrosesTheta二linspace(0,2*PI,100);R二2*cos(2*theta);Polar(theta,r)Three-dimensionalsurface
4、ofballR二1inspace(0,2*PI,100);S二1inspace(0,PI,100);[u,v]二meshgrid(r,s);X二cos(u)・*sin(v);Y二sin(u)・*sine(v);Z二cos(v);%surf(x,y,z);Themesh(x,y,z),view(1,2)%parabolicM二1inspace(0,10,100);N二linspace(0,2*PI,100);[t,theta]二meshgrid(m,n);X二t・*cos(theta);Y二t.*sin(theta);Z二t八2;Plot3(x,y,z)%mesh(x,y,z
5、)It'sasingleleafM二1inspace(0,2*PI,200);N二1inspace(-0.499*PI,0.499*PI,200);[v,u]二meshgrid(m,n);A二30;B=40;C=50;X二a*secant(u)・*cos(v);Y=b*secant(u).Z二c*tan(u);Mesh(x,y,z)%doubleleafsurface1.499M二1inspace(0,2*PI,200);N二1inspace(-0.499*PI,*PI,200);[v,u]二meshgrid(m,n);A=3;B=4;C=5;X=a*tan(u).*cos
6、(v);Y二b*tan(u).*sine(v);Z二c*SEC(u);Mesh(x,y,z)PercentellipticparaboloidM二linspace(0,2*PI,200);N二linspace(0,10,200);[theta,r]二meshgrid(m,n);A二4;BYisequaltobtimesr.Timessineoftheta.Z=r.八2/2;Mesh(x,y,z)%hyperbolicparaboloidlinspace(-15,15,400);Nm;[x,y]=meshgrid(m,n);(x"2/(a2)-y.2)/(bJ2)/2;Mes
7、hA二25;B二9;Z(x,y,z)Athree-dimensionalcurvevivianiTheta二linspace(0,2*PI,100);X二1+cos(theta);Y二sin(theta);Z=SQRT(2)*SQRT(1-cos(theta));H二plot3(x,y,z);Theaxisequal:Boxon;Thegridon;Set(h,'LineWidth,,2);Thethreedimensionalcurve--thespiralTheta二linspace(0,2*PI,100);X