%% syntaxe : a b log_seq : genere une sequence pour une echelle
%% logarithmique de graduations entre 10^a et 10^b
%% syntaxe : a b log_seq
%% --> 10^a 2.10^a 3.10^a ... 9.10^a 10^(a+1) 2.10^(a+1) ... 9.10^(a+1) ... 9.10^b
/log_seq {
5 dict begin
/b exch def
/a exch def
/j 0 def
b a sub {
/k 10 a j add exp def
/i 1 def
9 {
k i mul
/i i 1 add store
} repeat
/j j 1 add store
} repeat
k i mul
end
} def
|