X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=mp-geo.git;a=blobdiff_plain;f=doc%2Flatminmax.mp;fp=doc%2Flatminmax.mp;h=799c60c155458b30d8579423f41f0e063292495d;hp=0000000000000000000000000000000000000000;hb=7b76c924eeb4e64c51a75c843aedf1899f300e0f;hpb=b48660808c2cd84c509439a41f7dceee6791a252

diff --git a/doc/latminmax.mp b/doc/latminmax.mp
new file mode 100644
index 0000000..799c60c
--- /dev/null
+++ b/doc/latminmax.mp
@@ -0,0 +1,53 @@
+
+verbatimtex
+%&latex
+\documentclass[12pt]{article}
+\usepackage[charter]{mathdesign}
+\usepackage{pifont}
+\begin{document}
+etex
+
+input geometriesyr16
+figure(0,0,12u,8u);
+u:=8mm;
+pair O,C,D,H,A,I,J,K;
+O=u*(5,5);
+path cc,cd,ce;
+cc=cercles(O,2.75u);
+cd=cercles(O,5u);
+A=pointarc(cd,48);
+I=cc intersectionpoint segment(O,A);
+ce=perpendiculaire(O,A,I);
+J=cd intersectionpoint ce;
+K=symetrie(J,O,A);
+C=segment(O,J) intersectionpoint cc;
+D=segment(O,K) intersectionpoint cc;
+H=iso(C,D);
+trace droite(O,O+u*(1,0)) dashed evenly;
+trace droite(O,O+u*(0,1)) dashed evenly;
+trace segment(O,A);
+trace cc;
+trace cd dashed withdots;
+drawoptions(withcolor gris);
+trace droite(J,K);
+trace chemin(J,O,K);
+trace demidroite(A,C);
+trace demidroite(A,D);
+trace codeperp(O,C,A,5);
+trace codeperp(O,D,A,5);
+drawoptions();
+path arcs[];
+arcs0=cercles(O,1.75u) cutafter segment(O,A);
+arcs1=reverse(cercles(O,2u) cutbefore segment(O,D));
+arcs2=cercles(O,1.25u) cutafter segment(O,C);
+drawarrow arcs0;
+drawarrow arcs1;
+drawarrow arcs2;
+label.rt(btex $\phi$ etex,point(0.25*length arcs0) of arcs0);
+label.rt(btex \ding{172} etex,point(0.5*length arcs1) of arcs1);
+label.urt(btex \ding{173} etex,point(0.5*length arcs2) of arcs2);
+label.urt(btex Observateur etex,A);
+label.llft(btex O etex,O);
+fin;
+end
+