blob: afad9be5345ddce38d10ad4f26c3bb184bb50ff2 (
plain)
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
#N canvas 547 150 672 515 10;
#X text 457 17 updated for;
#X obj 545 17 iemmatrix 0.2;
#X obj 594 43 matrix;
#X text 464 42 see also help for;
#X msg 11 124 bang;
#X obj 11 191 mtx_cumsum;
#X obj 11 169 mtx_ones;
#X obj 11 213 mtx_- 1;
#X obj 49 255 mtx_* 0;
#X floatatom 155 202 5 0 0 0 - - -;
#X obj 187 255 / 8;
#X obj 49 278 t a a;
#X text 266 443 see also:;
#X text 46 34 real ifft in each matrix row;
#X text 7 60 you can calculate real inverse ffts in column direction
\; matrix has to have 2^(k-1)+1 columns \; a 2^k columns matrix is
the result \;;
#X msg 11 147 1 9;
#X obj 49 307 mtx_cos;
#X obj 104 307 mtx_sin;
#X text 199 203 <-- scroll here to select delay;
#X obj 49 411 mtx_print rifft;
#X obj 49 389 mtx_int;
#X obj 103 255 * -3.14159;
#X text 89 15 [mtx_rifft];
#X obj 262 463 mtx_rfft;
#X obj 49 336 mtx_rifft;
#X obj 49 362 mtx_+ 0.5;
#X obj 155 223 t b f;
#X connect 4 0 15 0;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 11 0;
#X connect 9 0 26 0;
#X connect 10 0 21 0;
#X connect 11 0 16 0;
#X connect 11 1 17 0;
#X connect 15 0 6 0;
#X connect 16 0 24 0;
#X connect 17 0 24 1;
#X connect 20 0 19 0;
#X connect 21 0 8 1;
#X connect 24 0 25 0;
#X connect 25 0 20 0;
#X connect 26 0 4 0;
#X connect 26 1 10 0;
|
