0.05 setxyrapport
5 setxunit
7.5 setborder
90 setangle_repere
-5 80 setxrange
-0.5 3 setyrange
5 0.5 settkstep
.5 .5 setsubtkstep
5 0.5 setmkstep
ticks
marks
traceaxes
axesarrow
14 setfontsize
setTimes
/fillstyle {blanc fill} def
/G {50 1.98} def
/G1 {35 1.91} def
/G2 {65 2.04} def
/H {15 1.822} def
15 1.822 dashpoint
G1 G2 droite
/A {xmin xmax add 2 div ymax ymin sub abs 4 div ymax exch sub} def
/B {A 0 20 ptojpoint addv} def
/C {B 0 20 ptojpoint addv} def
/D {xmin xmax add 2 div ymin 0 5 ptojpoint addv} def
[H G G1 G2] points

%% definition de la serie 1
/l1 [25 35 45 55 65 75] def
%% definition de la serie 1
/l2 [1.82 1.93 1.98 2.01 2.09 2.04] def
%% dessin du nuage
gsave 
rouge
l1 l2 fuz { times2 } plot
grestore
noir
(corrélation : ) D bltext
setTimesItalic
(r) show
setTimes
( = ) show
l1 l2 correlation chaine cvs show
(G) G drtext
(G1) G1 drtext
(G2) G2 drtext