Fichier mayer_01.jps — Modifié le 10 Décembre 2006 à 18 h 08

mayer_01.pdf
Source
%% reglage du format de l'image
250 setwidth

%% taille de la fenetre
-1 23 setxrange
-1 6.5 setyrange

%% trace du repere
traceaxes
axesarrow

/linearc .5 def
/fillstyle {.85 setgray fill} def
1 1 8.7 4 frame*
9.3 3 22 6 frame*
%% le tableau des x
[2 4 6 8 10 12 15 20]

%% le tableau des y
[.83 1.34 1.63 2.29 2.44 2.93 4.06 4.48] {1 add} apply

2 copy Mayer
/G2 defpoint
/G1 defpoint

fuz	   %% fusion des tableaux pour obtenir un tableau de points
points	   %% que l'on represente

G1 G2 droite

setTimesItalic
(x) xmax 0 (-7 0) dltext
(y) 0 ymax (0 -7) dltext

bleu
G1 times2
G2 times2


(G) G1 dctext
setTimes
(1) indice
setTimesItalic
(G) G2 drtext
setTimes
(2) indice