10 setborder
556 setwidth

28.4527 setyunit %% 10 mm
-.446 28.446 setyrange

%% ces valeurs correspondent a log (0.01) - qquechose et log (100) + qquechose
-2.1 2.1 setxrange
%% on passe a l'echelle logarithmique
/xscale {
   log
} def
/xscale-1 {
   10 ln mul Exp 
} def

.009 105 setxrange
.01 0 setorigine

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
[-2 2 log_seq] {svrule} apply

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