input geometriesyr.mp ; %---------------------------------------------------------------------------- % Exercice 1 géométrique %---------------------------------------------------------------------------- u:=0.5cm; figure (-4u,-4u,8u,5u); pair A,B,C,M,N,E,F; A=(0,0); M=(7u,0); path aa,mm; aa=cercles(A,5u); mm=cercles(M,3.5u); mm:=subpath(0,length mm/2) of mm; N = aa intersectionpoint mm; C=3/5[A,N]; B=3/5[A,M]; E=7/5[N,A]; F=9.7/7[M,A]; trace droite(A,M); trace droite(A,N); trace droite(N,M); trace droite(B,C); trace droite(E,F); nomme.ulft(A); nomme.llft(B); nomme.top(C); nomme.bot(E); nomme.urt(F); nomme.llft(M); nomme.top(N); fin; %--------------------------------------------------------------------------- %---------------------------------------------------------------------------- % Exercice 2 géométrique %---------------------------------------------------------------------------- u:=0.5cm; figure (-8u,-12u,8u,8u); pair O,M,N,S,OO; O=(0,0); M=(5u,0); N=(-5u,0); S=(0,-10u); OO=(0,-4.7u); path cc; cc := cercles(O,5u); cc:=cc yscaled 0.2; draw cc; draw N--S--M; draw N--M dashed evenly; draw O--S dashed evenly; draw (-2.65u,-4.7u)--(2.65u,-4.7u) dashed evenly; cc := cercles(O,2.65u); cc:=cc yscaled 0.2; cc := cc shifted OO; draw subpath(0,length cc /2) of cc dashed evenly; draw subpath(length cc /2,length cc) of cc; nomme.top(O); nomme.rt(M); nomme.bot(S); label.urt(btex $O'$ etex, OO); fin; %--------------------------------------------------------------------------- %--------------------------------------------------------------------------- end ;