input geometriesyr.mp ; %---------------------------------------------------------------------------- % Exercice 1 %---------------------------------------------------------------------------- u:=1cm; figure (-2u,-2u,17u,5u); pair A,B,C,D; pair E,F,G,H; A=(0,0); B=(3u,0); C=(3u,3u); D=(0,3u); draw A--B--C--D--cycle; cotation(B,A,5mm,2mm,btex $x$ etex rotated 180); cotation(A,D,5mm,5mm,btex $x$ etex rotated -90); E=(6u,0); F=(15u,0); G=(15u,3u); H=(6u,3u); draw E--F--G--H--cycle; cotation(F,E,5mm,2mm,btex $x+5$ etex rotated 180); cotation(E,H,5mm,5mm,btex $y$ etex rotated -90); fin; %--------------------------------------------------------------------------- %---------------------------------------------------------------------------- % Exercice 1 géométrique %---------------------------------------------------------------------------- u:=1cm; figure (0,0,10u,8u); pair A,B,C,D,E,F,G,H,K,L,O; papierun((0,0),(10u,8u),orange); A=(2u,7u); B=(0,5u); C=(0,3u); D=(2u,u); E=(4u,u); F=(6u,3u); G=(6u,5u); H=(4u,7u); K=(9u,6u); L=(9u,2u); O=(3u,4u); nomme.urt(A); nomme.urt(B); nomme.urt(C); nomme.llft(D); nomme.lrt(E); nomme.lrt(F); nomme.urt(G); nomme.urt(H); nomme.urt(K); nomme.lrt(L); nomme.urt(O); marque_p :="croix"; MarquePoint(A); MarquePoint(B); MarquePoint(C); MarquePoint(D); MarquePoint(E); MarquePoint(F); MarquePoint(G); MarquePoint(H); MarquePoint(K); MarquePoint(L); MarquePoint(O); fin; %--------------------------------------------------------------------------- %---------------------------------------------------------------------------- % problème %---------------------------------------------------------------------------- u:=0.75cm; figure (-4u,-8u,8u,8u); pair A,B,C,D,E; C=(-3u,0); E=(-2u,0); A=(0,0); D=(0,4u); B=(0,6u); draw C--B--D--E--cycle; draw D--A; draw demidroite(A,C) dashed evenly; trace codeperp(D,A,C,5); draw B--(u,7u); draw B--(-u,7u); draw B--(1.5u,8u); draw B--(-1.5u,8u); path cc; cc= cercles(A,u); cc:=cc yscaled 0.2; draw cc; cc := cc shifted (0,-2u); draw cc dashed evenly; draw (-u,0)--(-u,-2u)dashed evenly; draw (u,0)--(u,-2u)dashed evenly; nomme.rt(A); nomme.bot(E); nomme.bot(C); nomme.rt(D); nomme.rt(B); fin; %--------------------------------------------------------------------------- %--------------------------------------------------------------------------- end ;