25 setxunit
100 setyunit
7.5 setborder
pictpointsOff
%% y est dans [ 0.01 ; 10], donc on regle le yrange
%% entre log (0.01) et log (10). (avec .3 de plus pour la legende)
%% Le .3 est a ajuster : il correspond a 30% de yunit
-2.3 1.3 setyrange
-10 10 setxrange
%% on definit maintenant l'echelle sur Oy
/yscale {log} def
%% ainsi que l'echelle reciproque
/yscale-1 {10 ln mul Exp} def
%% puis on regle le yrange avec la nouvelle echelle
0.01 10 setyrange
%% Enfin, on redefinit l'origine du repere
0 0.01 setorigine
gsave
%% niveau de gris du quadrillage vertical
0.4 setgray
%% grillage vertical
[xmin truncate xmax truncate 1 stepto] {svrule} apply
%% grillage simple horizontal
%% niveau de gris du quadrillage horizontal
0.4 setgray
noir %% pour mieux voir (commenter cette ligne pour avoir du gris)
[-2 1 log_seq] {shrule} apply
grestore
%% les graduations sur l'axe Oy
[-2 1 log_seq] {ytick} apply
xmarks
%% la numerotation sur l'axe Oy
[-2 1 1 stepto] {log_ymark} apply
traceaxes
axesarrow
masque
/f {setxvar
#rpn# Exp (x)
} def
/g {setxvar
#rpn# Exp (2*x)
} def
gsave
bleu
.75 setlinewidth
continu
xmin xmax {f} Courbe
grestore
gsave
rouge
.75 setlinewidth
mixte
{g} courbe
grestore
|