exemples/divers/brach.mp

   1 input gdd;
   2 input gdd-rep;
   3 input gdd-lbl;
   4 input gdd-tra;
   5 input gdd-fct;
   6 input gdd-plt;
   7 input gdd-arc;
   8 input svgnames;
   9
  10 lblPreambule := "\usepackage[frenchb]{babel}"       &
  11                 "\usepackage[charter]{mathdesign}";
  12
  13 color darkred,darkblue;
  14 darkred=(.6,0,0);
  15 darkblue=(0,0,.6);
  16
  17 labeloffset := 6;
  18 gddTaillePoint := 3;
  19 gddCouleurPoint := (1,1,1);
  20
  21
  22 % la cycloide
  23 vardef f(expr t)=
  24   t-sin(t)
  25 enddef;
  26 vardef g(expr t)=
  27   cos(t)-1
  28 enddef;
  29
  30
  31 beginfig(1);
  32  Repere(6,4,1,3,1,1);
  33  Axes;
  34  Debut;
  35   Axes;
  36   Graduations; Unites(2);
  37
  38   A = Point(0,0);
  39   B =  Point(f(3),g(3));
  40   C = Point(2.4,-1);
  41   M = Point(f(2.4),g(2.4));
  42   N = Point(2.4,0);
  43   C1 = Cercle(C,1);
  44   trace Arc(C,.3,Pi/2,Pi/2+2.4);
  45   trace Droite((2.4,0),C) dashed evenly;
  46   trace Courbe(f,g,0,3,500) withcolor darkred withpen pencircle scaled 1pt;
  47   trace Courbe(f,g,3,4.5,100) dashed evenly;
  48   trace Courbe(f,g,-2,0,100) dashed evenly;
  49   trace C1;
  50   trace Segment(C,M);
  51     trace Arc(C,1,Pi/2,Pi/2+2.4) withcolor darkblue withpen pencircle scaled .7pt;
  52   trace Segment(A,N) withcolor darkblue withpen pencircle scaled .7pt;
  53
  54   marque.rt "C";
  55   marque.llft "M";
  56   pointe(N);
  57   label.urt(TEX("$N$"),PtR(N));
  58   label.ulft(TEX("$\theta$"),PtR(C)+.2*gddU*(cos(Pi/2+1.2),sin(Pi/2+1.2)));
  59   gddCouleurPoint := Yellow;
  60   marque.urt "A";
  61   marque.llft "B";
  62  Fin;
  63 endfig;
  64 end