Ajout de la rubrique divers dans exemples, 1 exemple.

[mp-gdd.git] / exemples / divers / brach.mp

diff --git a/exemples/divers/brach.mp b/exemples/divers/brach.mp
new file mode 100644 (file)
index 0000000..c7e857d
--- /dev/null
+++ b/exemples/divers/brach.mp
@@ -0,0 +1,64 @@
+input gdd;
+input gdd-rep;
+input gdd-lbl;
+input gdd-tra;
+input gdd-fct;
+input gdd-plt;
+input gdd-arc;
+input svgnames;
+
+lblPreambule := "\usepackage[frenchb]{babel}"       &
+                "\usepackage[charter]{mathdesign}";
+
+color darkred,darkblue;
+darkred=(.6,0,0);
+darkblue=(0,0,.6);
+
+labeloffset := 6;
+gddTaillePoint := 3;
+gddCouleurPoint := (1,1,1);
+
+
+% la cycloide
+vardef f(expr t)=
+  t-sin(t)
+enddef;
+vardef g(expr t)=
+  cos(t)-1
+enddef;
+
+
+beginfig(1);
+ Repere(6,4,1,3,1,1);
+ Axes;
+ Debut;
+  Axes;
+  Graduations; Unites(2);
+
+  A = Point(0,0);
+  B =  Point(f(3),g(3));
+  C = Point(2.4,-1);
+  M = Point(f(2.4),g(2.4));
+  N = Point(2.4,0);
+  C1 = Cercle(C,1);
+  trace Arc(C,.3,Pi/2,Pi/2+2.4);
+  trace Droite((2.4,0),C) dashed evenly;
+  trace Courbe(f,g,0,3,500) withcolor darkred withpen pencircle scaled 1pt;
+  trace Courbe(f,g,3,4.5,100) dashed evenly;
+  trace Courbe(f,g,-2,0,100) dashed evenly;
+  trace C1;
+  trace Segment(C,M);
+    trace Arc(C,1,Pi/2,Pi/2+2.4) withcolor darkblue withpen pencircle scaled .7pt;
+  trace Segment(A,N) withcolor darkblue withpen pencircle scaled .7pt;
+
+  marque.rt "C";
+  marque.llft "M";
+  pointe(N);
+  label.urt(TEX("$N$"),PtR(N));
+  label.ulft(TEX("$\theta$"),PtR(C)+.2*gddU*(cos(Pi/2+1.2),sin(Pi/2+1.2)));
+  gddCouleurPoint := Yellow;
+  marque.urt "A";
+  marque.llft "B";
+ Fin;
+endfig;
+end
\ No newline at end of file