iemabs/maverage~.pd


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#N canvas 167 77 540 340 10;

#X text 28 56 ~~in~~;

#X obj 30 71 inlet~;

#X obj 30 248 outlet~;

#X text 28 262 ~~out~~;

#X obj 78 92 inlet;

#X text 91 77 average-time <float> [ms];

#X text 157 168 changing the average-time resets the calculation the first average-time milliseconds !!;

#X obj 30 208 delwrite~ \$0-avrg_del \$1;

#X obj 78 138 delread~ \$0-avrg_del \$2;

#X text 191 208 1.arg: max. average-time <float> [ms] \; 2.arg: average-time <float> [ms];

#X obj 78 113 t f f;

#X text 80 11 moving average filter with IIR-solution;

#X text 209 42 N = 0.001 * average-time_ms * samplerate;

#X text 185 27 y[n] = (x[n] + x[n-1] + x[n-2] +...+ x[n-N]) / N;

#X text 20 284 (c) musil@iem.kug.ac.at;

#X text 62 297 IEM KUG;

#X text 37 309 graz \, austria 2001;

#X obj 30 165 mov_avrg_kern~ \$2;

#X text 10 10 maverage~;

#X connect 1 0 7 0;

#X connect 1 0 17 0;

#X connect 4 0 10 0;

#X connect 8 0 17 1;

#X connect 10 0 8 0;

#X connect 10 1 17 2;

#X connect 17 0 2 0;