%GALERIE1 Courbe de la Galerie des curiositŽs mathŽmatiques

theta = linspace(-2*pi,2*pi,4000);
rho   = 1./(1+cosh(theta).*(sin(theta)).^2);

graphini,whitebg
subplot(2,1,1)
plot(rho.*cos(theta),rho.*sin(theta),'-b')
axis equal,axis off
subplot(2,1,2)
plot(theta,rho,'-r')
grid on
