aUCBLogo Demos and Tests / filterbanktest

to filterbank f_min f_max Schritte Ueberlapp

   decade = ((log10 f_max) - log10 f_min)/(Schritte-1)   ;lg (Breite des Frequenz-Fensters)
   lg_Ueberlapp = (1/2+Ueberlapp/100)*:decade      ;lg Ueberlapp

   (print "Frequenzbereich: f_min ".. f_max ", Schritte "Schritte, Ueberlapp "% "Ueberlapp)
   (print "Nr. "Mittenfrequenz "Tiefpass "Hochpass "Breite)

   repeat 10
   [   lg_f =  decade*(repcount-1) + log10 f_min   ;lg (Mittenfrequenz)

      f         = 10^ lg_f         ;Mittenfrequenz
      f_sub = 10^(lg_f - lg_Ueberlapp)   ;untere Cut-off-Frequenz
      f_sup = 10^(lg_f + lg_Ueberlapp)   ; obere Cut-off-Frequenz

      (print form repcount 3 0  form f 10 1  form f_sub 10 1  form f_sup 8 1  form (f_sup-f_sub) 7 1)
   ]
   print "
end

to filterbanktest
   filterbank 10 250 10 25   ;Frequenzbereich: 10..300 MHz, 10 Schritte, 25% Frequenz-Ueberlapp
   filterbank 10 300 10 20
   filterbank 10 350 10 15
end