input geometriesyr.mp ; %---------------------------------------------------------------------------------- %Exercice %---------------------------------------------------------------------------------- u:=.75u; figure(-11u,-7u,2u,2u) ; pair A,B,R,N,T; R=(0,0); A=(-6u,0); N=(-9u,0); T=(0,-4.8u); B=(0,-3.2u); trace R--N--T--cycle; trace A--B; label.lft("N",N); label.top("A",A); label.top("R",R); label.rt("B",B); label.rt("T",T); trace codeperp(N,R,T,5); fin; %---------------------------------------------------------------------------------- %Problème %---------------------------------------------------------------------------------- u:=1cm; figure(0,0,10u,10u) ; pair O,I,J; pair A,B,C; pair V; pair T,TT; papiercinq((0,0),(10,10),orange); O=(0,0); I=(0.5u,0); J=(0,0.5u); A=(u,0); B=(0,2u); C=(u,2u); T=(-u,4u); TT=(1.5u,3u); V=(5u,5u); O := O shifted V; I := I shifted V; J := J shifted V; A := A shifted V; B := B shifted V; C := C shifted V; T := T shifted V; TT := TT shifted V; draw droite(A,B); draw droite(O,C); label.llft(btex $(\Delta_{2})$ etex,T); label.lrt(btex $(\Delta_{1})$ etex,TT); trace codeperp(I,O,J,5); label.bot("I",I); label.lft("J",J); label.bot("O",O); drawarrow (0,5u)--(10u,5u); drawarrow (5u,0)--(5u,10u); fin; %---------------------------------------------------------------------------------- %Exercice :espace %---------------------------------------------------------------------------------- u:=.75cm; figure(-6u,-3u,6u,13u) ; pair K,A,I,B,S; path cc; K=(0,0); S=(0,6u); I=(0,10u); draw (-4.5u,0)--(3u,10u); draw (4.5u,0)--(-3u,10u); draw K--I dashed evenly; cc:= cercles(K,4.5u); cc := cc yscaled 0.25; draw subpath(0,length cc /2) of cc dashed evenly; draw subpath(length cc /2, length cc) of cc; A=point(length cc *320/360) of cc; draw K--A dashed evenly; cc:= cercles(K,3u); cc := cc yscaled 0.25; cc := cc shifted I; draw cc; B= point(length cc *140/360) of cc; draw B--I; draw B--A dashed evenly; nomme.rt(I); nomme.rt(S); nomme.lft(K); nomme.lrt(A); nomme.ulft(B); label.ulft(btex c\^one 1 etex, (-4u,u)); label.ulft(btex c\^one 2 etex, (-4u,8u)); fin; end ;