doc/figures/cylindreastroide.mp

   1 input mp-solid
   2
   3 nb:=48;subh:=12;
   4
   5 figureespace(-10u,-10u,10u,10u);
   6 Initialisation(500,30,20,30);
   7 arcenciel:=true;
   8 incolor:=orange;
   9 Ferme1:=false;
  10 ObjetCylindre1("(3*(cos(u)**3),3*(sin(u)**3),-2+v)",pi,-pi,0,4);
  11 AffichageObjet1;
  12 finespace;
  13 unit:=0.6;
  14 figureespace(-10u,-10u,10u,10u);
  15 Initialisation(500,30,20,50);
  16 drawoptions(withcolor gris);
  17 for k=-4 upto 4:
  18   draw Projette((-4,k,0))--Projette((4,k,0));
  19   draw Projette((k,-4,0))--Projette((k,4,0));
  20 endfor;
  21 drawoptions();
  22 Lumiere:=Oeil;
  23 arcenciel:=true;
  24 incolor:=orange;
  25 Ferme1:=false;
  26 ObjetCylindre1("(3*(cos(u)**3),3*(sin(u)**3)+v,2*v)",pi,-pi,0,2);
  27 AffichageObjet1;
  28 drawarrow Projette((0,3,0))--Projette((0,5,4)) withpen pencircle scaled2bp withcolor violet;
  29 label.rt(btex $\overrightarrow v=(0;2;4)$ etex rotated angle(Projette((0,5,4)) -Projette((0,3,0))),1/2[Projette((0,3,0)),Projette((0,5,4))]);
  30 TraceAxes;
  31 finespace;
  32 end