10 setborder
822 setheight

28.4527 setxunit %% 10 mm
-.271 19.271 setxrange

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

.009 105 setyrange
0 .01 setorigine

orange
.7 setlinewidth
[.01 .1 1 10 100] {shrule} apply
[xmin truncate xmax truncate 5 stepto] {svrule} apply

-.1 19.1 setxrange
.01 100 setyrange
[-2 2 log_seq] {shrule} apply

0 19 setxrange
.4 setlinewidth
[-2 1 1 stepto] {log_ybande} apply
[xmin truncate xmax truncate 1 stepto] {svrule} apply
26 svrule