From: Jean-Michel Sarlat <jm.sarlat@gmail.com>
Date: Tue, 6 Sep 2011 15:42:36 +0000 (+0200)
Subject: Un exemple de plus dans la rubrique divers
X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=commitdiff_plain;h=88d95a149554e4b6f75343028043205699d6eea8;p=mp-gdd.git

Un exemple de plus dans la rubrique divers
---

diff --git a/exemples/divers/LISTE.txt b/exemples/divers/LISTE.txt
index a83b6e9..5926ecd 100644
--- a/exemples/divers/LISTE.txt
+++ b/exemples/divers/LISTE.txt
@@ -1,5 +1,8 @@
 brach-1.png
+epicycloide-const-1.png
 == Les sources
 brach.mp
+epicycloide-const.mp
 == Les PDF
 brach-1.pdf
+epicycloide-const-1.pdf
diff --git a/exemples/divers/epicycloide-const-1.pdf b/exemples/divers/epicycloide-const-1.pdf
new file mode 100644
index 0000000..141ce02
Binary files /dev/null and b/exemples/divers/epicycloide-const-1.pdf differ
diff --git a/exemples/divers/epicycloide-const-1.png b/exemples/divers/epicycloide-const-1.png
new file mode 100644
index 0000000..be6708a
Binary files /dev/null and b/exemples/divers/epicycloide-const-1.png differ
diff --git a/exemples/divers/epicycloide-const.mp b/exemples/divers/epicycloide-const.mp
new file mode 100644
index 0000000..339099b
--- /dev/null
+++ b/exemples/divers/epicycloide-const.mp
@@ -0,0 +1,66 @@
+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[garamond]{mathdesign}" &
+                "\usepackage{amsmath}";
+
+labeloffset := 4;
+gddU:=1.3cm;
+
+def avecCrayon(expr t,c) = withpen pencircle scaled t withcolor c enddef;
+
+beginfig(1);
+
+ Repere(10,10,5,4,3,3);
+ Axes; 
+ Debut; 
+  Graduations;
+  Axes;
+  ColorieAvecTransparence(Cercle(origine,1),LightSlateGrey,0.5);
+  trace Cercle(origine,1) avecCrayon(1.5,LightSlateGrey);
+
+  trace Cercle(4/3(cosd(130),sind(130)),1/3);
+
+  drawoptions(withcolor LightSlateGrey);
+  trace Cercle((0,4/3),1/3);
+
+  centre = Point(4/3cosd(130),4/3sind(130));
+  mobile = Point(4/3cosd(130)+1/3cosd(70),4/3sind(130)+1/3sind(70));
+
+  trace (0,0)--Pt(centre)--Pt(mobile) dashed evenly;
+
+  trace Arc(centre,1/3,-5Pi/18,7Pi/18) avecCrayon(1,DodgerBlue);
+  trace Arc(origine,1,Pi/2,13Pi/18) avecCrayon(1,DodgerBlue);
+  fleche Arc(centre,1/6,-5Pi/18,7Pi/18);
+  fleche Arc(origine,1/3,Pi/2,13Pi/18);
+
+  pointe Point(0,4/3);
+  pointe centre;
+  pointe Point(0,0);
+  pointe Point(cosd(130),sind(130));
+
+  gddCouleurPoint := Crimson;
+
+  pointe Point(0,1);
+  pointe mobile;
+
+  drawoptions(withcolor black);
+
+  label.lrt(TEX("\(O\)"),PtR(origine));
+  label.ulft(TEX("\(\Omega(\theta)\)"),PtR(centre));
+  label.urt(TEX("\(M(\theta)\)"),PtR(mobile));
+  label.top(TEX("\(\theta\)"),(1/3cos(11Pi/18),1/3sin(11Pi/18)) gddEnPlace);
+  label.rt(TEX("\(3\theta\)"),PtR(Addition(centre,(1/6,0))));
+  label.bot(TEX("\(N(\theta)\)"),(cos(13Pi/18),sin(13Pi/18)) gddEnPlace);
+ Fin;
+
+endfig;
+
+end
\ No newline at end of file