X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=mp-gdd.git;a=blobdiff_plain;f=exemples%2Fdivers%2Fbrach.mp;fp=exemples%2Fdivers%2Fbrach.mp;h=c7e857d8ef8c4a421ff8e3d0cb7b787f3d9f5ab3;hp=0000000000000000000000000000000000000000;hb=4082d0b68a58b6de2eb7e39c56acc71397f7f4c0;hpb=0cb1272f47258f7890f6522f2db27c801479eb8d

diff --git a/exemples/divers/brach.mp b/exemples/divers/brach.mp
new file mode 100644
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