Présentation de 512.jps

/syracuse/bbgraf/tmp/512.jpg
150 setxunit 25 setyunit 7.5 setborder pictpointsOff %% x est dans [ 0.01 ; 1000], donc on regle le xrange %% entre log (0.01) et log (1000). (avec .3 de plus pour la legende) %% Le .3 est a ajuster : il correspond a 30% de xunit -2.3 3.3 setxrange -4 8 setyrange %% on definit maintenant l'echelle sur Ox /xscale {log} def %% ainsi que l'echelle reciproque /xscale-1 {10 ln mul Exp} def %% puis on regle le xrange avec la nouvelle echelle 0.01 1000 setxrange %% Enfin, on redefinit l'origine du repere 0.01 0 setorigine gsave %% niveau de gris du quadrillage horizontal 0.4 setgray %% grillage horizontal [ymin truncate ymax truncate 1 stepto] {shrule} apply %% grillage fin vertical .4 setlinewidth orange [-2 3 1 sub 1 stepto] {log_xbande} apply %% grillage simple vertical %% niveau de gris du quadrillage vertical 0.4 setgray noir %% pour mieux voir (commenter cette ligne pour avoir du gris) [-2 3 log_seq] {svrule} apply grestore yticks ysubticks ymarks %% la numerotation sur l'axe Ox [-2 3 1 stepto] {log_xmark} apply traceaxes axesarrow /f {setxvar #rpn# ln (x) } def /g {setxvar #rpn# ln (1 / sqrt (x)) } def gsave bleu .75 setlinewidth continu xmin 1 {f} Courbe 1 10 {f} Courbe 10 xmax {f} Courbe grestore gsave rouge .75 setlinewidth mixte {g} courbe grestore