新实验马鞍面-课件（PPT·精·选）.ppt

马鞍面绘制实验正方形域和圆域上的马鞍面马鞍面切痕观察实验马鞍面的直纹面性质实验实验数据与实验结论????[x,y]=meshgrid(-6::6);z1=x.^2-y.^2;figure(1),meshz(x,y,z1)colormap([0 0 1])z2=x.*y;figure(2),mesh(x,y,z2)colormap([0 0 1])正方形域上的马鞍面]6,6[]6,6[),(?????Dyx22),(yxyxz??xyyxz?),(t=0:.1:2*pi;r=0::2;x=r'*cos(t);y=r'*sin(t);z=x.^2-y.^2;figure(3),surfc(x,y,z)figure(4),mesh(x,y,z)colormap([0 0 1]) 圆域上的马鞍面22yxz??Dyx?),(}2|),{(22???yxyxD马鞍面切痕观察实验]6,6[]6,6[),(?????Dyx22yxz??2xz?0?yX-Z平面切割Y-Z平面切割0?x2yz??x0=-6:.5:6;y0=x0;u=x0.^2;v=-y0.^2;O=zeros(size(x0));figure(1),hold onplot3(x0,O,u,'r')plot3(O,y0,v,'r')figure(1),hold ony0=-6:.5:6;x1=sqrt(y0.^2+4);zo=4*ones(size(y0));plot3(x1,y0,zo,'r',-x1,y0,zo,'r')x0=y0;y1=x1;plot3(x0,y1,-zo,'r',x0,-y1,-zo,'r')平行于X-Y平面切割4??z42???xy4?z42???yx]6,6[]6,6[),(?????Dyx22yxz??xyyxz?),(]6,6[]6,6[),(?????Dyx)36,6,6(??)36,6,6(??)36,6,6(??)36,6,6(x0=[-6;6;6;-6;-6];y0=[-6;-6;6;6;-6];z0=[36;-36;36;-36;36];figure(5),plot3(x0,y0,z0,x0,y0,z0,'ro')马鞍面的直纹面性质T=linspace(0,1,40);L1=[-6;-6;36]*(1-T)+[6;-