Présentation de 3291.jps

/syracuse/bbgraf/tmp/3291.jpg
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 10.5 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 3 4.5 10 6 7 8.5 11 11 4.5 10 2 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 %% dessin droite de regression y en x gsave .75 setlinewidth mixte rouge l1 l2 regyx /d defdroite (régression y en x : ) B bltext setTimesItalic (y) show setTimes ( = ) show d coeffdir chaine cvs show setTimesItalic ( x) show setTimes ( + ) show d ordorig chaine cvs show d droite grestore %% dessin droite de regression x en e gsave .75 setlinewidth continu orange l1 l2 regxy /d defdroite (régression x en y : ) C 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