3 figureespace(-10u,-10u,10u,10u);
4 Initialisation(100,5,10,25);
5 incolor:=0.5[jaune,white];
6 outcolor:=0.75[violet,blanc];
7 drawarrow Projette((0,0,0))--Projette((0,3,3)) withpen pencircle scaled2bp;
9 draw Projette((l,-1,0))--Projette((l,5,0)) withcolor gris;
10 draw Projette((-1,l,0))--Projette((5,l,0)) withcolor gris;
13 drawarrow Projette((0,0,0))--Projette((0,3,3)) withpen pencircle scaled2bp;
14 draw Sparam("(6*(cos(u)**3)*sin(u),4*cos(u)*cos(u)+v,v)",0,2*pi,pi/30,0,2*sqrt(2),0.1);