Présentation de 9004.jps

10 setborder
556 setwidth

28.4527 setyunit %% 10 mm

-.446 28.446 setyrange

%% Ces valeurs correspondent à log(0.01) - quelque chose et log(100) + quelque chose

-2.1 2.1 setxrange
%% On passe à l'échelle logarithmique inversée

/xscale {
   log abs 10 mul
} def

0 28 setyrange
.4 setlinewidth
[1 -1 -1 stepto] {log_xbande} apply
[ymin truncate ymax truncate 1 stepto] {shrule} apply
25 shrule

orange
.7 setlinewidth
[.01 .1 1 10 100] {
   dup xscale
} forall
[-2 2] {svrule} apply

-.1 28.1 setyrange
.01 100 setxrange