200 setxunit
200 setyunit
7.5 setborder
pictpointsOff
%% y est dans [ 0.1 ; 100], donc on regle le yrange
%% entre log (0.1) et log (100). (avec .1 de plus pour la legende)
%% Le .1 est a ajuster : il correspond a 30% de yunit
-1.1 2.1 setyrange
%% x est dans [ 0.1 ; 100], donc on regle le xrange
%% entre log (0.1) et log (100). (avec .1 de plus pour la legende)
%% Le .1 est a ajuster : il correspond a 30% de xunit
-1.1 2.1 setxrange
%% on definit maintenant les echelle sur Ox et Oy
/xscale {log} def
/yscale {log} def
%% ainsi que les echelles reciproques
/xscale-1 {10 ln mul Exp} def
/yscale-1 {10 ln mul Exp} def
%% puis on regle les xrange et yrange avec la nouvelle echelle
0.1 100 setyrange
0.1 100 setxrange
%% Enfin, on redefinit l'origine du repere
0.1 0.1 setorigine
%% la numerotation sur l'axe Ox
[-1 2 1 stepto] {log_xmark} apply
%% les graduations sur l'axe Oy
[-1 2 log_seq] {ytick} apply
%% la numerotation sur l'axe Oy
[-1 2 1 stepto] {log_ymark} apply
traceaxes
axesarrow
masque
gsave
%% grillage fin horizontal
.4 setlinewidth
orange
[-1 2 1 sub 1 stepto] {log_ybande} apply
%% grillage simple horizontal
noir
[-1 2 log_seq] {shrule} apply
%% grillage fin vertical
.4 setlinewidth
orange
[-2 3 1 sub 1 stepto] {log_xbande} apply
%% grillage simple vertical
noir
[-2 3 log_seq] {svrule} apply
grestore
/f {setxvar
x Exp
} def
/g {setxvar
x neg Exp
} def
gsave
bleu
1.2 setlinewidth
continu
xmin 1 {f} Courbe
1 10 {f} Courbe
10 xmax {f} Courbe
grestore
gsave
rouge
1.75 setlinewidth
mixte
xmin 1 {g} Courbe
1 10 {g} Courbe
grestore
%% la legende pour y = f (x)
bleu
<tex>
$y = e^x$
</tex>
1.1 dup f %% on la place au point d'abscisse 1.1 de C_f
[2.5 dup] %% avec une fonte en 10 points grossie 2.5 fois
drtexlabel %% en bas a droite (down right) du point considere
%% la legende pour y = g (x)
rouge
<tex>
$y = e^{-x}$
</tex>
1.02 dup g %% on la place au point d'abscisse 1.02 de C_g
[2.5 dup] %% avec une fonte en 10 points grossie 2.5 fois
urtexlabel %% en haut a droite (up right) du point considere
|