Présentation de xlog_01.jps

/syracuse/bbgraf/albums/logscale/xlog_01.jpg
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