Édition du fichier 512.jps

Retour

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

Tapez les 3 lettres : AWE