单页双曲面 matlab,生成平面截单叶双曲面的gif动画的程序

%平面截单叶双曲面

clear

clc

filename='mianjiedanyeshuangqu.gif';

a=3;

b=3;

c=4;

z = -1.5*c:c/20:1.5*c;

[r,alpha1] = meshgrid(z,linspace(0,2*pi,30));

X=a*sqrt(1+r.^2/c^2).*cos(alpha1);

Y=b*sqrt(1+r.^2/c^2).*sin(alpha1);

Z=repmat(z,30,1);

figure(1)

backcolor=get(gcf,'Color');

uicontrol(gcf,'style','text','units','normalized','pos',[0.74 0.02 0.25 0.15],...

'string',{'谢中华设计制作','QQ：56330069','天津科技大学'},'fontsize',12,'fontweight','bold',...

'fontunits','normalized','Hor','left','ForegroundColor',[0.5,0.5,0.5],...

'bac',backcolor)

set(gcf,'DoubleBuffer','on')

surf(X,Y,Z)<