25 setxunit
7.5 setborder
90 setangle_repere
-2 22 setxrange
-2 4 setyrange
1 1 settkstep
.5 .5 setsubtkstep
1 1 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
/rectwidth .3 def
rouge
/liste [
1 3 4.5 4.5 6 7 7 8 8.5 10 10.5 11 11 11 11.5 12 16 16 18.5 20] def
liste traitement {cplein} plot
/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
|