input geometriesyr12;
figure(0,0,12u,10u);
cadre((0,0),(12,10));
trace grille(0.2) withcolor bleu;
origine((5,5));
drawarrow (x.so*cm,y.origine)--(x.ne*cm,y.origine) withpen pencircle scaled 1.25bp;
drawarrow (x.origine,y.so*cm)--(x.origine,y.ne*cm) withpen pencircle scaled 1.25bp;
unites(1,2);
dotlabel.bot(btex 100 etex,placepoint(1,0));
dotlabel.lft(btex 1 etex,placepoint(0,1));
label.llft(btex masse $(g)$ etex,placepoint(10.5,0));
label.rt(btex $l$ ($cm$) etex,placepoint(0,4.25));
pair O;
O=placepoint(0,0);
Pointe(O);
fin;
figure(0,-5u,10u,10u);
u:=5mm;
pair A,B,S,R,T,I;
S=u*(1,3);
T=pointarc(cercles(S,10.4u),350);
R=pointarc(cercles(S,6.8u),50);
trace triangle(S,R,T);
B=projection(T,S,R);
A=projection(S,T,R);
I=(S--A) intersectionpoint (T--B);
trace S--A;
trace codeperp(S,A,R,5);
trace T--B;
trace codeperp(T,B,R,5);
nomme.lft(S);
nomme.lrt(T);
nomme.top(R);
nomme.urt(A);
nomme.ulft(B);
nomme.bot(I);
fin;
end