%H1_PAR Hyperboloide a une nappe trace par ses generatrices rectilignes
%    Christophe Franco 05/03/98 

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

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

for i=1 : n
	theta=2*i*pi/n;
	z=t;
	x=a*cos(theta)+a/c*sin(theta)*z;
	y=b*sin(theta)-b/c*cos(theta)*z;
	plot3(x,y,z,'b')
	hold on
end
grid on
