#N canvas 536 250 728 456 10;
#X obj 178 234 osc~ 100;
#X msg 186 257 clear;
#X obj 205 301 sig~;
#X obj 242 302 sig~;
#X obj 279 302 sig~;
#X obj 177 332 cpole~ 0.9 0.4;
#X msg 188 279 set 0.6 0.8;
#X text 324 283 where y[n] is the output \, x[n] the input \, and a[n]
the filter coefficient (all complex numbers). The filter is unstable
if/when |a[n]|>1.;
#X text 324 325 The transfer function is H(Z) = 1/(1 - aZ^-1).;
#X text 132 125 complex one-pole (recursive) filter \, raw;
#X text 323 236 The action of [cpole~] is:;
#X text 206 170 [cpole~] filters a complex audio signal (first two
inlets) via a one-pole filter \, whose coefficients are controlled
by creation arguments or by another complex audio signal (remaining
two inlets).;
#X text 329 262 y[n] = x[n] + a[n] * y[n-1];
#X connect 0 0 5 0;
#X connect 1 0 5 0;
#X connect 2 0 5 1;
#X connect 3 0 5 2;
#X connect 4 0 5 3;
#X connect 6 0 5 0;
