input geometriesyr16; % %exercice 1 % u:=0.5u; figure (-2u,-12u,14u,8u); pair A,B,C,D,O,M,T,N,P; path cc, d, dd; A=(0,0); M=(3u,0); N=(3u,u); O=(6u,0); B=(12u,0); P=(12u,u); cc=cercle(O,6u); d=droite(M,N); dd=droite(B,P); C= d intersectionpoint cc; D= 2[C,M]; T=whatever[C,O]=whatever[B,P]; draw cc; draw d; draw dd; draw A--B; draw C--T; trace codeperp(A,B,T,5); label.lft("A",A); label.llft("M",M); label.llft("O",O); label.rt("B",B); label.top(btex $\cal{(C)}$etex,(6u,6u)); label.ulft("C",C); label.llft("D",D); label.rt("T",T); fin; % %Problème % u:=1cm; figure (-4u,-3u,4u,9u); pair I,O,A,B,AA,BB; path cc; I=(0,0); O=(0,6u); cc=cercles(I,3u); cc:= cc yscaled 0.25; draw subpath(0,length cc/2) of cc dashed evenly; draw subpath(length cc/2,length cc) of cc; cc := cc shifted (0,2u); draw cc dashed evenly; cc := cc shifted (0,4u); draw cc; A=(3u,6u); B=(-3u,6u); draw (-3u,0)--B; draw (3u,0)--A; draw I--A dashed evenly; draw I--B dashed evenly; draw (-3u,2u)--(3u,2u) dashed evenly; draw A--B dashed evenly; draw I--O dashed evenly; cc := cercles(I,u); cc := cc yscaled 0.25; cc := cc shifted (0,2u); draw cc dashed evenly; drawarrow (-2u,-2u)--(0,2u); drawarrow (3u,-2u)--(u,2u); label.llft(btex O' etex,(-2u,-2u)); label.lrt(btex A' etex,(3u,-2u)); nomme.bot(I); nomme.top(O); nomme.rt(A); fin; % % Exercice 2 numérique % figure (-8u,-8u,8u,8u); pair A,B,C,D,E,F; D=(0,0); C=(3u,0); A=(0,3u); B=(3u,3u); E=(3u,2.5u); F=(7u,0); draw A--B--C--D--cycle; draw E--F--C; nomme.top(A); nomme.top(B); nomme.bot(C); nomme.bot(D); nomme.urt(E); nomme.bot(F); fin; %exo 2 geo figure(0,0,12u,10u); trace grille(0.5) withcolor orange; origine((2,2)); unites(0.5,0.5); trace axes; pair I,J; I=pp(1,0);J=pp(0,1); marque_p:="plein"; nomme.lrt(I); nomme.ulft(J); drawarrow arccercle(pp(18,2),pp(18,6),pp(18,4)); fin; end