next up previous contents
Nächste Seite: Demonstration von Comb, Allpass Aufwärts: Anwendungsbeispiele Vorherige Seite: Demonstration einfacher Filter   Inhalt

Filterbank

Hier wird aus einem weissen Rauschen allmälich ein Akkord ( $c',e\flat',g',d'',f'',b\flat''$) durch verringerung der Filterbandbreite herausgefiltert.


; fbank.sco Filterbank Beispiel

sr = 44100
kr = 4410
ksmps = 10
nchnls = 1

instr 1

ibwstart = p4
ibwend   = p5

asig    rand 1

kbw     expseg  ibwstart,p3/4,ibwstart,3*p3/4,ibwend,p3/4,ibwend

afilt0  reson   asig, cpspch(8.0), cpspch(8.0 + kbw) - cpspch(8.0),2
afilt1  reson   asig, cpspch(8.03),cpspch(8.03 + kbw) - cpspch(8.03),2
afilt2  reson   asig, cpspch(8.07),cpspch(8.07 + kbw) - cpspch(8.07),2
afilt3  reson   asig, cpspch(9.0),cpspch(9.0 + kbw) - cpspch(9.0),2
afilt4  reson   asig, cpspch(9.03),cpspch(9.02 + kbw) - cpspch(9.02),2
afilt5  reson   asig, cpspch(9.07),cpspch(9.05 + kbw) - cpspch(9.05),2
afilt6  reson   asig, cpspch(9.10),cpspch(9.10 + kbw) - cpspch(9.10),2

out 5000*(afilt0+afilt1+afilt2+afilt3+afilt4 + afilt5 + afilt6 )/7

endin

; fbank.sco

i 1 0 20 .12 .0005
e



Thomas Neuhaus
2001-01-14