input geometriesyr.mp ; %---------------------------------------------------------------------------- % Exercice 1 géométrique %---------------------------------------------------------------------------- u:=0.75cm; figure (-8u,-8u,10u,8u); pair O,J,K,L,N; O=(0,0); path oo,dd; oo=cercles(O,5.4u); N=point(length oo *20/360) of oo; J=8.4/5.4[N,O]; oo:=cercles(O,3.6u); oo := subpath(0, length oo /2) of oo; dd= cercledia(O,N); L= oo intersectionpoint dd; K=5.6/3.6[L,O]; draw O--L--N--cycle; draw O--K--J--cycle; trace codeperp(O,K,J,5); nomme.ulft(O); nomme.top(N); nomme.ulft(L); nomme.lrt(K); nomme.llft(J); label.lrt(btex 5,4cm etex,0.5[O,N]); label.llft(btex 3,6cm etex,0.5[O,L]); label.lrt(btex 2cm etex,0.5[O,K]); label.ulft(btex 3cm etex,0.5[O,J]); fin; %--------------------------------------------------------------------------- %---------------------------------------------------------------------------- % Exercice 2 géométrique %---------------------------------------------------------------------------- u:=0.7cm; figure (-8u,-8u,8u,8u); pair O,A,H,C; path cc; O=(0,0); cc := cercles(O,5u); draw cc; H=(0,3u); cc := cercles(O,4u); cc:= cc yscaled 0.2; cc:= cc shifted H; draw subpath(0,length cc /2) of cc dashed evenly; draw subpath(length cc /2,length cc) of cc; A=point(length cc*330/360) of cc; draw O--A--H--cycle dashed evenly; trace codeperp(O,H,A,5); C=point(length cc*220/360) of cc; label.llft(btex $\cal{(C)}$ etex,C); nomme.bot(O); nomme.ulft(H); nomme.lrt(A); fin; %--------------------------------------------------------------------------- %---------------------------------------------------------------------------- % Problème %---------------------------------------------------------------------------- u:=1cm; figure (-u,-u,5u,3.5u); pair A,B,C,E,F; B=(0,0); C=(4u,0); A=(0,3u); F=(2.5u,0); E=1.5/4[C,A]; draw A--B--C--cycle; draw droite(E,F); draw B--E; trace codeperp(E,F,C,5); nomme.top(A); nomme.bot(B); nomme.bot(C); nomme.urt(E); nomme.lrt(F); fin; %--------------------------------------------------------------------------- %--------------------------------------------------------------------------- end ;