initial ci of sparse coefficients FIR filter

svn path=/trunk/externals/iemlib/; revision=14521

1 files changed, 88 insertions, 0 deletions

diff --git a/iemlib1/sparse_FIR~-help.pd b/iemlib1/sparse_FIR~-help.pd
new file mode 100644
index 0000000..3eb7ba2
--- /dev/null
+++ b/iemlib1/sparse_FIR~-help.pd
@@ -0,0 +1,88 @@
+#N canvas 156 22 842 608 10;
+#X floatatom 4 133 5 0 0 0 - - -;
+#X text 32 96 % cpu;
+#X obj 4 93 dsp;
+#X obj 4 73 tgl 15 0 empty empty dsp_ON/OFF 2 -8 0 10 -225271 -42246
+-90881 1 1;
+#X floatatom 183 494 7 0 0 0 - - -;
+#X obj 112 373 dac~;
+#X obj 112 347 gainvu~ 300;
+#X obj 174 369 vu 15 120 empty empty 8 -8 0 10 -66577 -1 1 0;
+#X obj 294 216 vsl 15 128 0 127 0 1 empty empty gain -7 -8 0 10 -225271
+-42246 -90881 7500 1;
+#X obj 113 95 noise~;
+#X floatatom 173 512 7 0 0 0 - - -;
+#X floatatom 17 113 5 0 0 0 - - -;
+#X text 170 567 IEM KUG;
+#X text 146 555 musil;
+#X text 182 555 @;
+#X text 190 555 iem.at;
+#X text 153 577 Graz \, Austria;
+#X floatatom 142 323 5 0 0 0 - - -;
+#X obj 113 179 sparse_FIR~ 256;
+#X msg 177 112 size 256;
+#X msg 367 535 0 1 1 1;
+#X msg 367 556 0 1 40 -1 80 1 120 -1 160 1;
+#X msg 369 312 0 1 10 1 20 1 30 1 40 1 50 1 60 1 70 1 80 1;
+#X obj 707 38 t b b;
+#X msg 767 101 set;
+#X msg 668 101 add2 \$1 \$2;
+#X obj 707 18 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X msg 176 137 order 384;
+#X msg 366 342 matrix 9 2 0 1 10 1 20 1 30 1 40 1 50 1 60 1 70 1 80
+1;
+#X msg 363 371 matrix 2 9 0 1 10 1 20 1 30 1 40 1 50 1 60 1 70 1 80
+1;
+#X text 103 544 (c) Thomas Musil 2000 - 2010;
+#X text 17 16 sparse_FIR~;
+#X msg 370 581 0 0;
+#X msg 370 502 0 -0.1 1 -0.18 2 -0.1 3 0.15 4 0.4 5 0.7 6 0.4 7 0.15
+8 -0.1 9 -0.18 10 -0.1;
+#X msg 510 126 0 0.04 1 0.04 2 0.04 3 0.04 4 0.04 5 0.04 6 0.04 7 0.04
+8 0.04 9 0.04 10 0.04 11 0.04 12 0.04 13 0.04 14 0.04 15 0.04 16 0.04
+17 0.04 18 0.04 19 0.04 20 0.04 21 0.04 22 0.04 23 0.04 24 0.04 25
+0.04 26 0.04 27 0.04 28 0.04 29 0.04;
+#X obj 668 81 pack 0 0.04;
+#X obj 668 59 for++ 0 29;
+#X text 366 228 A list of alternating index- and value- doubles will
+change the coefficients of convolution. The number of pairs should
+be less than the order of FIR.;
+#X text 367 276 A matrix message will do the same.;
+#X obj 568 93 loadbang;
+#X text 134 16 convolve a signal with a coefficent list of non zero
+index/value pairs. All values between the determined values will be
+set to zero and won't be calculated (sparse).;
+#X text 227 182 1.arg: <float> maximum convolution-length or order
+;
+#X text 176 93 will change the max. order of FIR filter.;
+#X connect 2 0 0 0;
+#X connect 2 1 11 0;
+#X connect 3 0 2 0;
+#X connect 6 0 5 0;
+#X connect 6 0 5 1;
+#X connect 6 1 17 0;
+#X connect 6 2 7 0;
+#X connect 7 0 10 0;
+#X connect 7 1 4 0;
+#X connect 8 0 6 1;
+#X connect 9 0 18 0;
+#X connect 18 0 6 0;
+#X connect 19 0 18 0;
+#X connect 20 0 18 0;
+#X connect 21 0 18 0;
+#X connect 22 0 18 0;
+#X connect 23 0 36 0;
+#X connect 23 1 24 0;
+#X connect 24 0 34 0;
+#X connect 25 0 34 0;
+#X connect 26 0 23 0;
+#X connect 27 0 18 0;
+#X connect 28 0 18 0;
+#X connect 29 0 18 0;
+#X connect 32 0 18 0;
+#X connect 33 0 18 0;
+#X connect 34 0 18 0;
+#X connect 35 0 25 0;
+#X connect 36 0 35 0;
+#X connect 39 0 34 0;