input geometriesyr16; figure(0,0,10u,10u); pair B,R,E,V,N,T; V=u*(1,5); E-V=u*(5,0); R=3/5[E,rotation(V,E,-90)]; B-R=V-E; T=9.6/13[V,E]; N=droite(B,T) intersectionpoint droite(R,E); trace polygone(B,R,E,V); trace chemin(B,N,E); trace codeperp(B,R,E,5); trace codeperp(V,E,N,5); trace codeperp(B,R,E,3); trace appelation(B,R,2mm,btex 13 etex); trace appelation(V,B,2mm,btex 7,2 etex); trace appelation(V,T,-3mm,btex 9,6 etex); nomme.lft(V); nomme.ulft(B); nomme.urt(R); nomme.rt(E); nomme.bot(N); nomme.urt(T); fin; figure(-10u,-10u,12u,10u); pair F,I,G,U,R,E,O; F=u*(0,0); O-F=u*(5,0); I=rotation(O,F,60); R=symetrie(I,O); E=symetrie(I,O,F); U=symetrie(F,O); G=symetrie(F,I,O); trace polygone(F,I,G,U,R,E); trace chemin(F,O,I); trace Codelongueur(F,I,I,O,O,F,4); nomme.top(F); nomme.top(I); nomme.lrt(O); nomme.rt(U); nomme.top(G); nomme.lrt(R); nomme.llft(E); fin; figure(0,0,10u,10u); pair R,C,U,D,E; R=u*(3,1); U=pointarc(cercles(R,3.5u),20); D=5.5/3.5[R,rotation(U,R,90)]; E=3/4.5[R,D]; C=2/3[R,U]; trace polygone(R,U,D); trace segment(E,C); trace codeperp(D,R,U,5); nomme.llft(R); nomme.llft(E); nomme.top(D); nomme.bot(C); nomme.rt(U); fin; figureespace(-10u,-10u,10u,10u); typerepre:="persp"; Initialisation(5,22,20,50); color A,B,C,D,E,F,G,H,S,O; E=(2,0,0); F-E=(0,1.75,0); G-F=(-2,0,0); H-G=E-F; A-E=(0,0,2.5); B-F=A-E; C-G=A-E; D-H=C-G; O=1/2[A,C]; S-O=(0,0,1.65); NbS:=9; Sommet1:=E; Sommet2:=F; Sommet3:=G; Sommet4:=H; Sommet5:=D; Sommet6:=A; Sommet7:=B; Sommet8:=C; Sommet9:=S; NF:=9; Fc[100]:=3;Fc[101]:=9;Fc[102]:=6;Fc[103]:=7; Fc[200]:=3;Fc[201]:=9;Fc[202]:=8;Fc[203]:=7; Fc[300]:=3;Fc[301]:=9;Fc[302]:=8;Fc[303]:=5; Fc[400]:=3;Fc[401]:=9;Fc[402]:=5;Fc[403]:=6; Fc[500]:=4;Fc[501]:=2;Fc[502]:=1;Fc[503]:=4;Fc[504]:=3; Fc[600]:=4;Fc[601]:=7;Fc[602]:=2;Fc[603]:=3;Fc[604]:=8; Fc[700]:=4;Fc[701]:=8;Fc[702]:=3;Fc[703]:=4;Fc[704]:=5; Fc[800]:=4;Fc[801]:=5;Fc[802]:=4;Fc[803]:=1;Fc[804]:=6; Fc[900]:=4;Fc[901]:=6;Fc[902]:=1;Fc[903]:=2;Fc[904]:=7; DessineObjet; nomme.top(S); nomme.lft(A); nomme.lft(E); nomme.lrt(F); nomme.rt(G); nomme.ulft(H); nomme.lrt(B); nomme.rt(C); nomme.ulft(D); nomme.bot(O); drawoptions(dashed evenly); trace segment(D,B); trace segment(A,C); trace segment(S,O); trace codeperp(S,O,C,5); trace appelation(E,F,-3mm,btex 10~cm etex); trace appelation(F,G,-3mm,btex 10,5~cm etex); trace appelation(G,C,-3mm,btex 14~cm etex); finespace; end