doc/figures/Sparam9.mp

   1 input mp-solid
   2
   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;
   8 for l=-1 upto 5:
   9   draw Projette((l,-1,0))--Projette((l,5,0)) withcolor gris;
  10   draw Projette((-1,l,0))--Projette((5,l,0)) withcolor gris;
  11 endfor;
  12 TraceAxes;
  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);
  15 finespace;
  16 end