数学实验马鞍面.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])
正方形域上的马鞍面
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])
圆域上的马鞍面
马鞍面切痕观察实验
X-Z平面切割
Y-Z平面切割
x1=linspace(-6,6,50);
y1=zeros(size(x1));z1 = x1.^2;
plot3(x1,y1,z1,'m',y1,x1,-z1,'m','linewidth',3)
figure(1),hold on
y0 = linspace(-6,6,50);
x0 = sqrt(y0.^2+4);
z0 = 4*ones(size(y0));
plot3(x0,y0,z0,'r', -x0,y0,z0,'r'),hold on
plot3(y0,x0,-z0,‘c', y0,-x0,-z0,‘c')
平行于X-Y平面切割
p1=[-6,-6,36];
p2=[6 -6 -36];
p3=[6 6 36];
p4=[-6 6 -36];
L = [p1;p2;p3;p4;p1]
plot3(L(:,1),L(:,2),L(:,3));
马鞍面的直纹面性质
T=linspace(0,1,40)';
point_b=(1-T)*[-6,-6,36]