V10 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
|