input geometriesyr16 input LATEX %1 figure(0,0,10u,10u); pair A,B,C,E,F,G,H,L,K; B=u*(1,1); C-B=u*(5,0); A-B=u*(2,3.5); L=projection(A,B,C); H=4/5[B,A]; E=4/5[B,L]; G=1/5[A,C]; F=1/5[L,C]; K=segment(A,L) intersectionpoint segment(H,G); trace polygone(A,B,C); trace chemin(E,H,G,F); trace codeperp(E,F,G,5); trace codeperp(F,G,H,5); trace codeperp(G,H,E,5); trace codeperp(H,E,F,5); trace codeperp(A,L,C,5); trace segment(A,L); nomme.llft(B); nomme.bot(E); nomme.bot(L); nomme.bot(F); nomme.lrt(C); nomme.urt(G); nomme.ulft(H); nomme.top(A); nomme.urt(K); fin; %2 figureespace(-10u,-10u,10u,10u); Initialisation(5,-15,20,200); color A,B,C,D,E,F,G,H; trace Cube(A,B,C,D,H,E,F,G); transparence polygone(A,F,G,D); trace segment(D,G) dashed evenly; trace segment(A,F); label.llft(btex A etex,Projette(A)); label.lrt(btex B etex,Projette(B)); label.rt(btex C etex,Projette(C)); label.ulft(btex D etex,Projette(D)); label.urt(btex G etex,Projette(G)); label.top(btex H etex,Projette(H)); label.llft(btex E etex,Projette(E)); label.lrt(btex F etex,Projette(F)); finespace; input courbescp13 figure(0,0,11u,13u); pair E; origine((1.5,0.5)); unites(0.5,1); draw grille(0.25) withcolor gris; draw axes; for k=1 upto 12: dotlabel.lft(LATEX("\nombre{"&decimal(2000*k)&"}"),pp(0,k)); endfor; for k=1 upto 17: dotlabel.bot(LATEX(""&decimal(k)&""),pp(k,0)); endfor; Legendex.ulft(btex Nombre de voyages etex); legendey(btex Prix \`a payer etex); draw courbe1(0,19,2,0.5x+3); draw courbe2(0,7,2,1.5x); draw courbe3(7,19,2,10.5); E=pp(7,10.5); label.ulft(btex E etex,E); fin; end