%H1_PAR Hyperboloide a une nappe trace par parametrisation
%    Christophe Franco 05/03/98 

a=3,b=2,c=.5,n=20;
graphini, whitebg

t=linspace(-2,2,1000);
for i=1 : n
	phi=2*i*pi/n;
	x=a*cosh(t)*cos(phi);
	y=b*sinh(t)*sin(phi);
	z=c*sinh(t);
	plot3(x,y,z,'m')
	hold on
end

phi=linspace(0,2*pi,1000);
for i=0 : n
	t=-2+4*i/n;
	x=a*cosh(t)*cos(phi);
	y=b*sinh(t)*sin(phi);
	z=c*sinh(t)*ones(size(phi));
	plot3(x,y,z,'b')
	hold on
end
grid on
