Édition de 223.jps

[ retour ] Édition de 223.jps.

50 setxyrapport
20 setxunit
7.5 setborder
90 setangle_repere
-0.9 12.9 setxrange
-50 590 setyrange
1 100 settkstep
1 100 setsubtkstep
1 100 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
12 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 [1 2 3 4 5 6 7 8 9 10 11 12
] def
%% definition de la serie 1
/l2 [300 450 130 200 280 410 200 250 320 500 210 250] def
%% dessin du nuage
gsave 
rouge
l1 l2 fuz { point } plot
grestore

(Trimestre) 12.5 25 cltext

(Chiffre) 0.2 550 crtext

(0) 0 0 dltext

bleu

/E {4 270} def
E point
/F {5 265} def
F point
/G {6 255} def
G point
/H {7 273} def
H point
/I {8 285} def
I point
/J {9 295} def
J point
/K {10 318} def
K point
/L {11 320} def
L point
/M {12 320} def
M point

%[E F G H I J K L M] (-) ligne

vert
/N {6 270} def
/P {10.5 313} def
(G1) N uctext
(G2) P dctext

N point
P point

N P /d defdroite
d droite

Tapez les 3 lettres : AWE