input geometriesyr16; input TEX; figure(-u,-u,8u,7u); trace grille(1) withcolor blanc; for k=0 step 2 until 12: trace pp(0,k/2)--pp(8,k/2); label.lft(TEX(""&decimal(k)&""),pp(0,k/2)); endfor; for k=0 step 2 until 8: trace pp(k,0)--pp(k,6); if k<8: label.bot(TEX(""&decimal(14+k/2)&""),pp(k+1,0)); fi; endfor; path bar[]; bar1=polygone(pp(0.75,0),pp(0.75,3.5),pp(1.25,3.5),pp(1.25,0)); bar2=polygone(pp(2.75,0),pp(2.75,3),pp(3.25,3),pp(3.25,0)); bar3=polygone(pp(6.75,0),pp(6.75,5),pp(7.25,5),pp(7.25,0)); for k=1 upto 3: remplis bar[k] withcolor gris; trace bar[k]; endfor; trace appelation(pp(0,-1),pp(8,-1),5mm,btex \^Age etex); trace appelation(pp(0,-1),pp(0,7),5mm,btex Effectifs etex); fin; figure(0,0,10u,10u); pair A,B,C,D,E; D=u*(1,1); E-D=u*(5,0); A-D=u*(0,4); B=3/6.6[A,D]; C=3/6.6[A,E]; trace polygone(A,D,E); trace segment(B,C); trace cotation(B,A,2mm,2mm,btex 3~cm etex); trace cotation(D,A,6mm,2mm,btex 6,6~cm etex); trace cotation(D,E,-2mm,-2mm,btex 8,8~cm etex); trace cotation(A,E,6mm,2mm,btex 11~cm etex); nomme.ulft(A); nomme.urt(C); nomme.lrt(E); nomme.llft(D); nomme.llft(B); fin; typerepre:="persp"; figureespace(-10u,-10u,10u,10u); Initialisation(5,-90,10,100); color O,S; O=(0,0,0); S=(0,0,1); path bcyl,bcone; bcyl=cercles(O,(1,0,0),O,(1,0,0),(0,1,0)); bcone=cercles(O,(1/3,0,0),O,(1/3,0,0),(0,1/3,0)); trace subpath(length bcyl/2,length bcyl) of bcyl; trace (point(length bcyl/2) of bcyl)--((point(length bcyl/2) of bcyl) shifted(Projette(S))); trace (point(length bcyl) of bcyl)--((point(length bcyl) of bcyl) shifted(Projette(S))); trace bcyl shifted(Projette(S)); trace subpath(length bcone/2,length bcone) of bcone dashed evenly; trace (point(0) of bcone)--Projette(S)--(point(length bcone/2) of bcone) dashed evenly; finespace; figure(0,0,10u,10u); pair A,B,C,D,E,F; A=u*(1,1); D-A=u*(6,0); C-D=u*(0,4); B-C=A-D; trace polygone(A,B,C,D); E=1/3[A,D]; F=1/3[C,D]; trace segment(A,C); trace segment(E,F); nomme.llft(A); nomme.bot(E); nomme.lrt(D); nomme.rt(F); nomme.urt(C); nomme.ulft(B); trace appelation(A,B,2mm,btex 9~cm etex); trace appelation(A,E,-3mm,btex 4~cm etex); trace appelation(B,C,2mm,btex 12~cm etex); fin; end