exemples/courbes/cp04.mp

   1 input gdd;
   2 input gdd-rep;
   3 input gdd-lbl;
   4 input gdd-tra;
   5 input svgnames;
   6
   7 lblPreambule := "\usepackage[frenchb]{babel}"       &
   8                 "\usepackage[garamond]{mathdesign}" &
   9                 "\usepackage{amsmath}";
  10
  11 input gdd-fct;
  12 input gdd-plt;
  13
  14 labeloffset := 6;
  15 gddU:=1.2cm;
  16
  17 vardef f(expr t) = t*t+2/t enddef;
  18 vardef g(expr t) = t+1/t enddef;
  19 vardef fp(expr t) = t*t enddef;
  20 vardef gp(expr t) = t enddef;
  21
  22 def avecCrayon(expr t,c) = withpen pencircle scaled t withcolor c enddef;
  23
  24
  25
  26 beginfig(1);
  27
  28
  29  Repere(12,10,5,4,0.7,0.7);
  30  Axes;
  31  Debut;
  32   Graduations; Unites(1);
  33
  34   drawoptions(withcolor LightSlateGrey);
  35   trace Droite(Point(-4,-2),Point(4,2));
  36   trace (3,0)--(3,2)--(0,2) dashed evenly;
  37   trace (-1,0)--(-1,-2)--(0,-2) dashed evenly;
  38   trace Courbe(fp,gp,-4,4,500);
  39
  40   trace Vecteur((3,2),(5,8/3)) avecCrayon(1,DeepPink);
  41   trace Vecteur((-1,-2),(-2.8,-2)) avecCrayon(1,DeepPink);
  42   trace Vecteur((-1,-2),(0.8,-2)) avecCrayon(1,DeepPink);
  43
  44   trace Courbe(f,g,-5,-0.1,100) avecCrayon(1.5,DarkCyan);
  45   trace Courbe(f,g,0.1,5,100) avecCrayon(1.5,DarkCyan);
  46
  47   pointe Point(0,0);
  48   pointe Point(3,2);
  49   pointe Point(-1,-2);
  50
  51  Fin;
  52
  53
  54 endfig;
  55
  56 end