Présentation de 9001.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 {
   dup log neg
} def
/xscale-1 {
   10 exch exp
} 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] {svrule} apply
[ymin truncate ymax truncate 5 stepto] {shrule} apply

-.1 28.1 setyrange
.01 100 setxrange
[.01 .1 1 10 100] {xscale-1} forall
[-2 2] {svrule} apply