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