input geometriesyr16; figure(0,0,11u,10u); trace grille(1) withcolor bleu; origine((6,5)); trace axes; dotlabel.llft(btex $I$ etex,placepoint(1,0)); dotlabel.llft(btex $J$ etex,placepoint(0,1)); pair A,B,C,E; A=placepoint(0,4); B=placepoint(3,2); C=placepoint(-1,-4); E-C=A-B; trace triangle(A,B,C); trace chemin(A,E,C); nomme.top(A); nomme.urt(B); nomme.llft(C); nomme.llft(E); fin; figureespace(-10u,-10u,10u,10u); Initialisation(5,0,10,300); path Cc; Cc=cercles((0,0,0),(0,1,0),(0,0,0),(1,0,0),(0,1,0)); trace subpath(3*length Cc/4,5*length Cc/4) of Cc; trace subpath(length Cc/4,3*length Cc/4) of Cc dashed evenly; color A,A',S,B; S=(0,0,2); A=(0,0,0); A'=1/4[S,A]; B=1/4[S,(0,1,0)]; path Cd; Cd=cercles(A',B,A',(1,0,bluepart(A')),(0,1,bluepart(A'))); trace subpath(3*length Cd/4,5*length Cd/4) of Cd dashed evenly; trace subpath(length Cd/4,3*length Cd/4) of Cd; trace (point(length Cc/4) of Cc)--Projette(S)--(point(3*length Cc/4) of Cc); trace segment(S,A) dashed evenly; marque_p:="croix"; nomme.top(S); nomme.bot(A); nomme.lrt(A'); finespace; figure(0,0,8u,2u); pair P,M,G,Q; P=u*(3,0.5); Q=u*(7.5,0.5); M=1/6[P,Q]; G=2/5[Q,P]; trace segment(P,Q); drawarrow P--M withpen pensquare scaled 1.5bp; drawarrow Q--G withpen pensquare scaled 1.5bp; label.lft(btex Petitville etex,P); nomme.top(G); nomme.top(M); fin; end end