exemples/fonctions/fonction2.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}\usepackage{mflogo}";
  10
  11 input gdd-fct;
  12 input gdd-plt;
  13
  14 labeloffset := 6;
  15 gddU:=1.2cm;
  16
  17 vardef f(expr x) = x*(Pi-x) enddef;  % f
  18 vardef g(expr x) = Pi-2*x enddef;    % f'
  19 vardef h(expr x) = -2 enddef;        % f''
  20
  21 def avecCrayon(expr t,c) = withpen pencircle scaled t withcolor c enddef;
  22
  23
  24
  25 beginfig(1);
  26
  27 Repere(10,6,5,3,.8,0.8);
  28 Axes;
  29  Debut;
  30   Graduations;
  31
  32   trace (Pi,-2)--(Pi,2) dashed evenly;
  33   trace (-Pi,-2)--(-Pi,2) dashed evenly;
  34
  35   trace Representation(f,0,Pi,100) avecCrayon(1.5,Indigo);
  36   trace (Representation(f,0,Pi,100) scaled -1) avecCrayon(1.5,Indigo);
  37   trace (Representation(f,0,Pi,100) shifted (-2*Pi,0)) avecCrayon(1.5,Indigo);
  38   trace (Representation(f,0,Pi,100) scaled -1 shifted (2*Pi,0)) avecCrayon(1.5,Indigo);
  39
  40   trace Representation(g,0,Pi,100) avecCrayon(1.5,Olive);
  41   trace (Representation(g,0,Pi,100) xscaled -1) avecCrayon(1.5,Olive);
  42   trace (Representation(g,0,Pi,100) shifted (-2*Pi,0)) avecCrayon(1.5,Olive);
  43   trace (Representation(g,0,Pi,100) xscaled -1 shifted (2*Pi,0)) avecCrayon(1.5,Olive);
  44
  45   trace Representation(h,0,Pi,100) avecCrayon(1.5,Orange);
  46   trace (Representation(h,0,Pi,100) scaled -1) avecCrayon(1.5,Orange);
  47   trace (Representation(h,0,Pi,100) shifted (-2*Pi,0)) avecCrayon(1.5,Orange);
  48   trace (Representation(h,0,Pi,100) scaled -1 shifted (2*Pi,0)) avecCrayon(1.5,Orange);
  49
  50   pointe Point(Pi,2);
  51   pointe Point(Pi,-2);
  52   pointe Point(-Pi,2);
  53   pointe Point(-Pi,-2);
  54
  55   label.urt(TEX("\(-\pi\)"), (-Pi,0) gddEnPlace) withcolor Peru;
  56   label.ulft(TEX("\(\pi\)"), (Pi,0) gddEnPlace) withcolor Peru;
  57 Fin;
  58
  59 trace (0,-0.5)--(1,-0.5) avecCrayon(1.5,Indigo);
  60 label.rt(TEX("\(f\)"), (1,-0.5) gddEnPlace);
  61 trace (2,-0.5)--(3,-0.5) avecCrayon(1.5,Olive);
  62 label.rt(TEX("\(f'\)"), (3,-0.5) gddEnPlace);
  63 trace (4,-0.5)--(5,-0.5) avecCrayon(1.5,Orange);
  64 label.rt(TEX("\(f''\)"), (5,-0.5) gddEnPlace);
  65 labeloffset := 0;
  66 label.lft(TEX("\MP{}"), (10,-0.5) gddEnPlace);
  67
  68 endfig;
  69
  70 end