pict3d.m

来自「MATLAB 基础编程 包含一些很基础的程序」· M 代码 · 共 14 行

clear all;close all;
x=-10:0.1:10;y=-10:0.1:10;y=y';
p=4;q=3;a=5;b=3;c=2;
x1=ones(size(y))*x;y1=y*ones(size(x));
z=-x1.^2/(2*p)+y1.^2/(2*q);
figure(1);mesh(z);title('马鞍面');
x=-a:0.1:a;y=-b:0.1:b;y=y';
x1=ones(size(y))*x;y1=y*ones(size(x));
z=sqrt(c^2*(1-x1.^2/a^2-y1.^2/b^2));
z1=-z;
figure(2);plot3(x1,y1,z);hold on;
plot3(x1,y1,-z);title('椭球面');grid on;