input geometriesyr12;
figure(0,0,8u,6u);
pair A,E,F,H,M,B;
E=u*(1,1);
F=u*(7,2);
A=u*(2,4);
H=projection(A,E,F);
M=3/5[E,F];
B=6/7[E,F];
label.top(btex $(d)$ etex,E);
trace droite(E,F);
marque_p:="croix";
nomme.top(A);
nomme.bot(M);
nomme.top(B);
nomme.bot(H);
trace H--A--M;
trace codeperp(A,H,M,8);
fin;
figure(0,0,8u,6u);
pair O,A;
O=u*(3,3);
path cc;
cc=cercles(O,2u);
trace cc;
nomme.top(O);
A=pointarc(cc,60);
trace O--A;
trace perpendiculaire(O,A,A);
nomme.urt(A);
trace codeperp(O,A,rotation(O,A,-90),8);
fin;
figure(0,0,5u,5u);
pair O,E,F,H;
O=u*(2.5,2.5);
nomme.bot(O);
path cc;
cc=cercles(O,1.5u);
trace cc;
E=pointarc(cc,120);
F=pointarc(cc,210);
H=projection(O,E,F);
trace droite(E,F);
trace O--H dashed evenly;
trace codeperp(O,H,E,8);
trace appelation(H,O,2mm,btex $h$ etex);
trace cotationmil(E,O,0,10,btex $r$ etex);
marque_p:="plein";
pointe(pointarc(cc,120),pointarc(cc,210));
fin;
figure(0,0,5u,5u);
pair A;
A=pointarc(cc,340);
trace cc;
marque_p:="croix";
nomme.top(O);
trace perpendiculaire(O,A,A);
trace codeperp(O,A,rotation(O,A,-90),8);
trace O--A dashed evenly;
nomme.lrt(A);
trace appelation(O,A,2mm,btex $r$ etex);
fin;
figure(0,0,5u,5u);
trace cc;
nomme.bot(O);
pair E,F,H;
marque_p:="plein";
E=symetrie(O,pointarc(cc,120));
F=symetrie(O,pointarc(cc,15));
pointe(E,F);
trace droite(E,F);
H=projection(O,E,F);
trace O--H dashed evenly;
trace codeperp(O,H,E,8);
trace appelation(O,H,2mm,btex $h$ etex);
trace cotationmil(O,pointarc(cc,350),0,10,btex $r$ etex) dashed evenly;
fin;
end