0.25 setxyrapport
20 setxunit
7.5 setborder
90 setangle_repere
-2 20 setxrange
-2 6 setyrange
1 1 settkstep
.5 .5 setsubtkstep
1 1 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
unites
/rectwidth .3 def
rouge
/liste [ 2 2 4 5 5 5 7 7 7 7 8 8 8 8 8 10 10 10 10 11 11 11 12 12 12 12 14 14 17 19] def
liste traitement {baton1} plot
gsave
0.75 setlinewidth
continu
vert
liste traitement ligne
grestore
/n 20 string def
liste length n cvs 
setTimesItalic
   (n : ) xmin xmax add 5 div ymin utext
setTimes
   n show
/moy 20 string def
liste moyenne 100 mul round 100 div moy cvs 
setTimesItalic
   (moyenne : ) show
setTimes
   moy show
/ecart 20 string def
liste ecarttype 100 mul round 100 div ecart cvs 
setSymbol
   (  s : ) show
setTimes
   ecart show