#N canvas 536 250 728 456 10;
#X floatatom 283 130 0 0 0 0 - - -;
#X obj 227 43 osc~ 100;
#X msg 242 75 clear;
#X msg 244 101 set 1;
#X text 294 101 <-- set internal state;
#X text 294 44 <-- signal to filter;
#X text 313 131 <-- filter coefficient (may be a signal);
#X text 313 153 <-- creation argument initializes filter coefficient
;
#X text 294 75 <-- clear internal state to zero;
#X obj 226 153 rpole~ 0.9;
#X text 142 -41 real one-pole (recursive) filter \, raw;
#X text 181 -6 [rpole~] filters an audio signal (left inlet) via a
one-pole real filter \, whose coefficient is controlled by a creation
argument or by an audio signal (right inlet).;
#X text 239 200 y[n] = y[n-1] + a[n] * x[n];
#X text 180 252 The transfer function is H(Z) = 1/(1 - aZ^-1).;
#X text 180 220 where y[n] is the output \, x[n] the input \, and a[n]
the filter coefficient. The filter is unstable if/when |a[n]|>1.;
#X text 180 178 The action of [rpole~] is:;
#X connect 0 0 9 1;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 9 0;
