Fichier aff_009a.jps — Modifié le 11 Mars 2006 à 11 h 52
-5 8 setxrange
-3 8 setyrange
%.5 .5 setquadrillagestep
quadrillage
tracerepere
marks
1 setlinewidth
-4 3 2 1 droite %% D3
0 -2 2 -2 droite %% D2
-3 0 -1 1 droite %% D1
%% /f {
%% setxvar
%% x dup mul neg
%% x 2 mul add
%% 4 add
%% } def
%%
%% {f} courbe
setTimesItalic
(D) -2 -2 ultext
setTimes
(2) indice
setTimesItalic
(D) 6 5 urtext
setTimes
(1) indice
setTimesItalic
(D) -3 2.7 dltext
setTimes
(3) indice