Fichier graph.mp (figure 1) — Modifié le 29 Mars 2008 à 15 h 37

Pour compiler ce fichier, utiliser les macros de transparence.mp.
Source

verbatimtex
%&latex
\documentclass{article}
\usepackage{amsmath}
\usepackage[latin1]{inputenc}
\usepackage[charter]{mathdesign}
\usepackage{xcolor}
\begin{document}
etex

input transparence;
color purple, rouge, rose, bleu;
purple= red+ 0.9green;
rouge= 0.75 red + 0.25 blue;
rose =0.3 red + blue;
bleu= 0.125 red + 0.875 green ;
u:=1cm;
dy:=0.1u;
dx:=8/9*u;

beginfig(1);
path courbe[], vert;
pair A[],B[],C[],D[],Y[];
vert:=(15*dx,-0.5*dy)--(15*dx,100*dy);

%axes
drawarrow (0,0)--(16*dx,0);
drawarrow (0,0)--(0,110*dy);

A1:=(0*dx,100*dy);
A2:=(5*dx,60.5*dy);
A3:=(10*dx,41.5*dy);
A4:=(15*dx,20.1*dy);
courbe1:=A1--A2--A3--A4;
courbe2:=(0*dx,100*dy)--(5*dx,58.9*dy)--(10*dx,38.6*dy)--(15*dx,17.1*dy);
courbe3:=(0*dx,100*dy)--(5*dx,62.1*dy)--(10*dx,44.4*dy)--(15*dx,23.1*dy);
colorie(buildcycle (courbe2, courbe3, vert),purple,0.3);

B1:=(0*dx,100*dy);
B2:=(5*dx,50*dy);
B3:=(10*dx,15.5*dy);
B4:=(15*dx,3.6*dy);
courbe4:=B1--B2--B3--B4;
courbe5:=(0*dx,100*dy)--(5*dx,35*dy)--(10*dx,14.05*dy)--(15*dx,2.7*dy);
courbe6:=(0*dx,100*dy)--(5*dx,65*dy)--(10*dx,17*dy)--(15*dx,4.5*dy){1,0};
colorie(buildcycle (courbe5, courbe6, vert),rouge,0.1);

C1:=(0*dx,100*dy);
C2:=(5*dx,99.5*dy);
C3:=(10*dx,80.2*dy);
C4:=(15*dx,99.3*dy);
courbe7:=C1--C2--C3--C4;
courbe8:=(0*dx,100*dy)--(5*dx,100*dy)--(10*dx,90.7*dy)--(15*dx,100*dy);
courbe9:=(0*dx,100*dy)--(5*dx,99.1*dy)--(10*dx,69.7*dy)--(15*dx,98.6*dy);
colorie(buildcycle (courbe8, courbe9, vert),rose,0.1);

D1:=(0*dx,100*dy);
D2:=(5*dx,91*dy);
D3:=(10*dx,91.4*dy);
D4:=(15*dx,91*dy);
courbe10:=D1--D2--D3--D4;
courbe11:=(0*dx,100*dy)--(5*dx,100*dy)--(10*dx,100*dy)--(15*dx,100*dy);
courbe12:=(0*dx,100*dy)--(5*dx,82.1*dy)--(10*dx,82.8*dy)--(15*dx,82.1*dy);
colorie(buildcycle (courbe11, courbe12, vert),bleu,0.1);

Y1:=(0*dx,100*dy);
Y2:=(5*dx,93.9*dy);
Y3:=(10*dx,87.3*dy);
Y4:=(15*dx,87.3*dy);
courbe13:=Y1--Y2--Y3--Y4;
courbe14:=(0*dx,100*dy)--(5*dx,99.5*dy)--(10*dx,97*dy)--(15*dx,95.1*dy);
courbe15:=(0*dx,100*dy)--(5*dx,88.3*dy)--(10*dx,77.6*dy)--(15*dx,79.5*dy);
colorie(buildcycle (courbe14, courbe15, vert),red,0.1);

pickup pencircle scaled 1.3pt;
draw courbe1 withcolor purple;
for i:=1 upto 4:
dotlabel.top(btex  etex, A[i]);
endfor;
draw courbe4 withcolor rouge;
for i:=1 upto 4:
dotlabel.top(btex etex, B[i]);
endfor;
draw courbe7 withcolor rose;
for i:=1 upto 4:
dotlabel.top(btex etex, C[i]);
endfor;
draw courbe10 withcolor bleu;
for i:=1 upto 4:
dotlabel.top(btex etex, D[i]);
endfor;
draw courbe13 withcolor red;
for i:=1 upto 4:
dotlabel.top(btex etex, Y[i]);
endfor;

label(btex Souche $Y$ etex, (16.4*dx,73*dy));
draw (17.4*dx,73*dy)--(18*dx,73*dy) withcolor red;
label(btex Ecart type etex, (16.5*dx,69*dy));
colorie((17.4*dx,68*dy)--(17.4*dx,70*dy)--(18*dx,70*dy)--(18*dx,68*dy)--cycle,red,0.3);
label(btex Souche $A$ etex, (16.4*dx,64*dy));
draw (17.4*dx,64*dy)--(18*dx,64*dy) withcolor purple;
label(btex Ecart type etex, (16.5*dx,60*dy));
colorie((17.4*dx,59*dy)--(17.4*dx,61*dy)--(18*dx,61*dy)--(18*dx,59*dy)--cycle,purple,0.3);
label(btex Souche $B$ etex, (16.4*dx,55*dy));
draw (17.4*dx,55*dy)--(18*dx,55*dy) withcolor rouge;
label(btex Ecart type etex, (16.5*dx,51*dy));
colorie((17.4*dx,50*dy)--(17.4*dx,52*dy)--(18*dx,52*dy)--(18*dx,50*dy)--cycle,rouge,0.1);
label(btex Souche $C$ etex, (16.4*dx,46*dy));
draw (17.4*dx,46*dy)--(18*dx,46*dy) withcolor rose;
label(btex Ecart type etex, (16.5*dx,42*dy));
colorie((17.4*dx,41*dy)--(17.4*dx,43*dy)--(18*dx,43*dy)--(18*dx,41*dy)--cycle,rose,0.1);
label(btex Souche $D$ etex, (16.4*dx,37*dy));
draw (17.4*dx,37*dy)--(18*dx,37*dy) withcolor bleu;
label(btex Ecart type etex, (16.5*dx,33*dy));
colorie((17.4*dx,32*dy)--(17.4*dx,34*dy)--(18*dx,34*dy)--(18*dx,32*dy)--cycle,bleu,0.1);
for i:=1 upto 3:
dotlabel.bot(decimal (i*5), (i*5*dx,0));
endfor;
for i:=1 upto 10:
dotlabel.lft(decimal (i*10), (0,i*10*dy));
endfor;
label.top(btex \begin{tabular}{c}Croissance \\des bactéries en \% \end{tabular} etex, (0,110*dy));
label.rt(btex \begin{tabular}{c}Temps d'exposition\\ aux U-V en s\end{tabular} etex, (16*dx,0));
endfig;

end.