Fichier ex34.mp (figure 1) — Modifié le 5 Août 2008 à 21 h 11

ex34.mp (figure 1)
Source

%http://xahlee.org/surface/breather_p/breather_p.html

input mp-solid

%26''
figureespace(-10u,-10u,10u,10u);
Initialisation(1500,60,30,50);
incolor:=gris;
arcenciel:=true;
b:=0.4;
r:=1-(0.4**2);
w:=sqrt(r);
draw Sparam("(-u+(2*r*ch(b*u)*sh(b*u))/(b*(((w*ch(b*u))**2)+(b*sin(w*v))**2)),(2*w*ch(b*u)*(-(w*cos(v)*cos(w*v))-sin(v)*sin(w*v)))/(b*(((w*ch(b*u))**2)+(b*sin(w*v))**2)),(2*w*ch(b*u)*(-(w*sin(v)*cos(w*v))+cos(v)*sin(w*v)))/(b*(((w*ch(b*u))**2)+(b*sin(w*v))**2)))",-9.9,9.9,0.66,-37.4,37.4,0.748);%-13.2,13.2,0.66,-37.4,37.4,0.748->40x100>2'26''
finespace;
end