input geometriesyr.mp ; %---------------------------------------------------------------------------- % Exercice 1 géométrique %---------------------------------------------------------------------------- u:=0.5cm; figure (-8u,-8u,10u,8u); pair A,B,C,E,F,M,P; A=(0,0); B=(7.5u,0); path aa,bb; aa=cercles(A,4.5u); bb=cercles(B,6u); bb:=subpath(0,length bb /2) of bb; C= aa intersectionpoint bb; M=13.5/7.5[B,A]; P=13.5/7.5[C,A]; E=2[B,A]; F=2[C,A]; draw A--B--C--cycle; draw A--E--F--cycle; draw M--P; nomme.ulft(A); nomme.rt(B); nomme.top(C); nomme.top(E); nomme.bot(F); nomme.top(M); nomme.lrt(P); fin; %--------------------------------------------------------------------------- %---------------------------------------------------------------------------- % Problème (1) %---------------------------------------------------------------------------- u:=0.75cm; figure (-8u,-10u,8u,8u); pair A,B,H,S,C,D,E; A=(0,0); B=(3u,0); D=(-3u,0); S=(0,-9u); H=0.5[S,A]; C=0.5[S,B]; E=0.5[S,D]; draw D--S--B; draw A--B; draw H--C dashed evenly; draw A--S dashed evenly; path cc; cc := cercles(A,3u); cc := cc yscaled 0.2; draw cc; cc := cercles(A,1.5u); 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; nomme.lft(A); nomme.rt(B); nomme.lrt(C); nomme.lft(H); nomme.bot(S); fin; %--------------------------------------------------------------------------- %---------------------------------------------------------------------------- % problème (2) %---------------------------------------------------------------------------- u:=0.75cm; figure (-8u,-8u,8u,10u); pair E,G,F,A,B,C,D; F=(0,0); A=(-3u,0); B=(3u,0); G=(0,3u); E=(0,9u); C=(-3u,9u); D=(3u,9u); draw A--C; draw B--D; draw E--F dashed evenly; path cc; cc := cercles(F,3u); cc := cc yscaled 0.2; cc := cc shifted E; draw cc; cc := cercles(F,3u); cc := cc yscaled 0.2; cc := cc shifted G; draw subpath(0,length cc /2) of cc dashed evenly; draw subpath(length cc /2,length cc) of cc; cc := cercles(F,3u); cc := cc yscaled 0.2; draw subpath(0,length cc /2) of cc dashed evenly; draw subpath(length cc /2,length cc) of cc; marque_p := "croix"; MarquePoint(E); MarquePoint(F); MarquePoint(G); nomme.top(E); nomme.bot(F); nomme.lft(G); fin; %--------------------------------------------------------------------------- %--------------------------------------------------------------------------- end ;