Présentation de xlog_01.jps

50 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 .1 de plus pour la legende)
%% Le .1 est a ajuster : il correspond a 10% de yunit
-2.1 1.1 setyrange
-5 5 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
0.4 setgray
[xmin truncate xmax truncate 1 stepto] {svrule} apply
[-2 1 log_seq] {shrule} apply
grestore
[-2 1 log_seq] {ytick} apply
xmarks
[-2 1 1 stepto] {log_ymark} apply
traceaxes
axesarrow
masque
/f {setxvar
    x Exp
} def
/g {setxvar
    2 x mul Exp
} def
gsave
   bleu
   .75 setlinewidth
   continu
  xmin  xmax {f} Courbe
grestore
gsave
   rouge
   .75 setlinewidth
   mixte
   {g} courbe
grestore


%% la legende pour f(x)
bleu
<tex>
$y = e^x$
</tex>
-2 dup f     %% place au point d'abscisse 2 de la courbe de f
[1.5 dup]    %% grossis 1,5 fois (soit 15 points)
{-2 dup f -1 dup f pangle}   %% l'angle entre les pts d'abscisse -2 et
                             %% -1 de la courbe de f
uctexlabel   %% label centre au dessus du point de ref

rouge
<tex>
$y = e^{2x}$
</tex>
-1.5 dup g [1.5 dup] {-2 dup g -1 dup g pangle} uctexlabel