Présentation de 699.jps

/syracuse/bbgraf/tmp/699.jpg
150 setxunit 25 setyunit 7.5 setborder pictpointsOff %% x est dans [ 1 ; 1000], donc on regle le xrange %% entre log (1) et log (1000). (avec .3 de plus pour la legende) %% Le .3 est a ajuster : il correspond a 30% de xunit -0.3 3.3 setxrange 0 15 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 1 1000 setxrange %% Enfin, on redefinit l'origine du repere 1 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 [0 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) [0 3 log_seq] {svrule} apply grestore yticks %% les graduations sur l'axe Ox [0 3 log_seq] {xtick} apply ysubticks /f {setxvar #rpn# ln (x) } def /g {setxvar #rpn# ln (1 / sqrt (x)) } def