Fichier 434.jps — Modifié le 11 Mars 2006 à 10 h 55

434.pdf
Source
15 setxunit
7.5 setborder
90 setangle_repere
-2 22 setxrange
-2 20 setyrange
1 1 settkstep
.5 .5 setsubtkstep
1 1 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
14 setfontsize
setTimes
/fillstyle {blanc fill} def
/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
%% definition de la serie 1
/l1 [16 11.5 8.5 8 16 7 11 3 4.5 10 6 7 18.5 11 11 4.5 20 12 1 16 7 10.5 11 3 4.5 10 6 7 18.5 11 11 4.5 20 6 1.5 8 8 6 7 1.5 11 3 4.5 10 6 7 8.5 11 11 4.5 10 2 1  11 3 4.5 10 6 7 18.5 11 11 4.5 20 12 1 16 7 10.5 11 3 4.5 10  11 3 4.5 10 6 7 18.5 11 11 4.5 20 12  12 1 
 11 3 4.5 10 6 7 18.5 11 11 4.5 20 12 1  10.5 11 3 4.5 10 6 7 18.5 11 11 4.5 20 12 1 
 11 3 4.5 10 6 7 18.5 11 11 4.5 20 12 1 16 7 10.5 11 3 4.5 10 6 7 18.5 11 11 4.5 20 12 1 
 11 3 4.5 10 6 7 18.5 11 11 4.5 20 12 1 ] def
%% definition de la serie 1
/l2 [6 1.5 8 8 6 7 1.5 11 6 1.5 8 8 6 7 1.5 11 3 4.5 10 6 7 8.5 11 11 4.5 10 2 1  11 3 4.5 10 6 7 18.5 11 11 4.5 20 12 1 16 7 10.5 11 3 4.5 10  11 3 4.5 10 6 7 18.5 11 11 4.5 20 12  3 4.5 10 6 7 8.5 11 11 4.5 10 2 1  11 3 4.5 10 6 7 18.5 11 11 4.5 20 12 1 16 7 10.5 11 3 4.5 10  11 3 4.5 10 6 7 18.5 11 11 4.5 20 12 1 16 7 10.5 11 3 4.5 10 6 7 18.5 11 11 4.5 20 12 1 
 11 3 4.5 10 6 7 18.5 11 11 4.5 20 12 1 6 7 18.5 11 11 4.5 20 12 1 
 11 3 4.5 10 6 7 18.5 11 11 4.5 20 12 1 
] def
%% dessin du nuage
gsave 
rouge
l1 l2 fuz { times2 } plot
grestore
%% dessin droite de Mayer
gsave 
.75 setlinewidth
pointilles
bleu
l1 l2 Mayer
/d defdroite
(Mayer : ) A bltext
setTimesItalic
(y) show
setTimes
( = ) show
d coeffdir chaine cvs show
setTimesItalic
( x) show
setTimes
( + ) show
d ordorig chaine cvs show

d
droite
grestore
noir
(corrélation : ) D bltext
setTimesItalic
(r) show
setTimes
( = ) show
l1 l2 correlation chaine cvs show