aboutsummaryrefslogtreecommitdiff
path: root/abs/mtx_win_besseli0.pd
diff options
context:
space:
mode:
authorFranz Zotter <fzotter@users.sourceforge.net>2010-02-11 11:46:21 +0000
committerFranz Zotter <fzotter@users.sourceforge.net>2010-02-11 11:46:21 +0000
commit2a01f32186dacf4a970b4189c43e140a8832813f (patch)
tree4134d683f9d89f31fff861734dd7cfbf11acd018 /abs/mtx_win_besseli0.pd
parent68729718fce729bfdca438af1ac26971baf64218 (diff)
added a kaiser window to the mtx_window abstraction.
svn path=/trunk/externals/iem/iemmatrix/; revision=13168
Diffstat (limited to 'abs/mtx_win_besseli0.pd')
-rw-r--r--abs/mtx_win_besseli0.pd146
1 files changed, 146 insertions, 0 deletions
diff --git a/abs/mtx_win_besseli0.pd b/abs/mtx_win_besseli0.pd
new file mode 100644
index 0000000..abcd590
--- /dev/null
+++ b/abs/mtx_win_besseli0.pd
@@ -0,0 +1,146 @@
+#N canvas 442 0 1152 729 12;
+#X obj 184 130 mtx_< 2.5;
+#X obj 385 142 mtx_>= 2.5;
+#X obj 385 165 mtx_find;
+#X obj 184 152 mtx_find;
+#X obj 307 251 mtx_index;
+#X obj 106 236 mtx_index;
+#X obj 106 343 mtx_fill;
+#X obj 82 427 mtx;
+#X obj 80 41 t b a a a;
+#X obj 567 198 mtx_zeros;
+#X obj 567 151 mtx_size;
+#X obj 567 175 pack;
+#N canvas 0 0 897 561 smallx 0;
+#X obj 240 -115 mtx_.^ 2;
+#X obj 240 -73 mtx_+ 8.92003e-06;
+#X obj 240 -93 mtx_* 0.249877;
+#X obj 240 277 mtx_+;
+#X obj 272 -48 mtx_.^ 4;
+#X obj 304 1 mtx_.^ 6;
+#X obj 338 47 mtx_.^ 8;
+#X obj 370 98 mtx_.^ 10;
+#X obj 402 144 mtx_.^ 12;
+#X obj 272 -26 mtx_* -0.0153664;
+#X obj 304 23 mtx_* 0.00152453;
+#X obj 338 69 mtx_* -0.000134196;
+#X obj 370 120 mtx_* 7.76875e-06;
+#X obj 402 166 mtx_* -2.04329e-07;
+#X obj 272 256 mtx_+;
+#X obj 304 236 mtx_+;
+#X obj 338 217 mtx_+;
+#X obj 370 196 mtx_+;
+#X obj 240 -158 t a a a a a a;
+#X obj 240 302 mtx_exp;
+#X obj 241 -181 inlet;
+#X obj 240 333 outlet;
+#X connect 0 0 2 0;
+#X connect 1 0 3 0;
+#X connect 2 0 1 0;
+#X connect 3 0 19 0;
+#X connect 4 0 9 0;
+#X connect 5 0 10 0;
+#X connect 6 0 11 0;
+#X connect 7 0 12 0;
+#X connect 8 0 13 0;
+#X connect 9 0 14 0;
+#X connect 10 0 15 0;
+#X connect 11 0 16 0;
+#X connect 12 0 17 0;
+#X connect 13 0 17 1;
+#X connect 14 0 3 1;
+#X connect 15 0 14 1;
+#X connect 16 0 15 1;
+#X connect 17 0 16 1;
+#X connect 18 0 0 0;
+#X connect 18 1 4 0;
+#X connect 18 2 5 0;
+#X connect 18 3 6 0;
+#X connect 18 4 7 0;
+#X connect 18 5 8 0;
+#X connect 19 0 21 0;
+#X connect 20 0 18 0;
+#X restore 106 260 pd smallx;
+#X obj 307 105 t a a;
+#X obj 106 102 t a a;
+#N canvas 295 16 806 381 bigx 0;
+#X obj 227 -132 inlet;
+#X obj 226 132 outlet;
+#X text 391 -110 exp(x)./sqrt(2*pi*x).*(1+1./(8*x));
+#X obj 277 23 mtx_.^ 0.5;
+#X obj 226 46 mtx_./;
+#X obj 226 -25 mtx_exp;
+#X obj 455 20 mtx_+ 1;
+#X obj 455 -2 mtx_.^ -1;
+#X obj 455 -24 mtx_* 8;
+#X obj 226 80 mtx_.*;
+#X obj 226 -49 t a a;
+#X obj 337 -47 atan;
+#X obj 337 -24 * 8;
+#X obj 337 -93 loadbang;
+#X obj 277 -1 mtx_* 1;
+#X obj 226 -109 t a a;
+#X msg 337 -70 1;
+#X connect 0 0 15 0;
+#X connect 3 0 4 1;
+#X connect 4 0 9 0;
+#X connect 5 0 4 0;
+#X connect 6 0 9 1;
+#X connect 7 0 6 0;
+#X connect 8 0 7 0;
+#X connect 9 0 1 0;
+#X connect 10 0 5 0;
+#X connect 10 1 14 0;
+#X connect 11 0 12 0;
+#X connect 12 0 14 1;
+#X connect 13 0 16 0;
+#X connect 14 0 3 0;
+#X connect 15 0 10 0;
+#X connect 15 1 8 0;
+#X connect 16 0 11 0;
+#X restore 307 275 pd bigx;
+#X obj 80 18 inlet;
+#X obj 82 456 outlet;
+#X obj 463 165 mtx_size;
+#X obj 307 225 spigot;
+#X obj 237 177 mtx_size;
+#X obj 106 204 spigot;
+#X obj 184 177 t a a;
+#X obj 184 205 spigot;
+#X obj 385 223 spigot;
+#X connect 0 0 3 0;
+#X connect 1 0 2 0;
+#X connect 2 0 18 0;
+#X connect 2 0 24 0;
+#X connect 3 0 22 0;
+#X connect 4 0 15 0;
+#X connect 5 0 12 0;
+#X connect 6 0 7 1;
+#X connect 7 0 17 0;
+#X connect 8 0 7 0;
+#X connect 8 1 14 0;
+#X connect 8 2 13 0;
+#X connect 8 3 10 0;
+#X connect 9 0 6 1;
+#X connect 10 0 11 0;
+#X connect 10 1 11 1;
+#X connect 11 0 9 0;
+#X connect 12 0 6 0;
+#X connect 13 0 19 0;
+#X connect 13 1 1 0;
+#X connect 14 0 21 0;
+#X connect 14 1 0 0;
+#X connect 15 0 6 0;
+#X connect 16 0 8 0;
+#X connect 18 1 19 1;
+#X connect 18 1 24 1;
+#X connect 19 0 4 0;
+#X connect 20 1 21 1;
+#X connect 20 1 23 1;
+#X connect 21 0 5 0;
+#X connect 22 0 23 0;
+#X connect 22 1 20 0;
+#X connect 23 0 5 1;
+#X connect 23 0 6 2;
+#X connect 24 0 6 2;
+#X connect 24 0 4 1;