blob: 746f42a04e4445a0420efdd6b225c620ba201926 (
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
#N canvas 106 40 882 682 10;
#X obj 18 44 dsp;
#X obj 18 14 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X floatatom 18 100 5 0 0 0 - - -;
#X floatatom 33 74 5 0 0 0 - - -;
#X obj 46 322 sig~ 1;
#X obj 96 353 sig~ 2;
#X obj 145 377 sig~ 4;
#X obj 195 402 sig~ 8;
#X obj 234 431 sig~ 16;
#X obj 47 488 unsig~;
#X floatatom 47 512 5 0 0 0 - - -;
#X obj 245 491 unsig~;
#X floatatom 245 515 5 0 0 0 - - -;
#X obj 298 442 any;
#X msg 298 154 bundle 0 0 0 0 0;
#X msg 298 180 bundle 1 1 1 1 1;
#X msg 298 201 bundle 2 2 2 2 2;
#X msg 298 227 bundle 1 0 0 0 0;
#X msg 298 247 bundle 0 1 0 0 0;
#X msg 298 267 bundle 0 0 1 0 0;
#X msg 298 287 bundle 0 0 0 1 0;
#X msg 298 307 bundle 0 0 0 0 1;
#X msg 298 333 bundle 2 0 0 0 0;
#X msg 298 353 bundle 0 2 0 0 0;
#X msg 298 373 bundle 0 0 2 0 0;
#X msg 298 393 bundle 0 0 0 2 0;
#X msg 298 413 bundle 0 0 0 0 2;
#X obj 432 442 pp element;
#X obj 432 419 pack 0 0;
#X obj 432 397 f;
#X floatatom 475 368 4 1 5 0 - - -;
#X floatatom 445 368 4 0 2 0 - - -;
#X obj 422 375 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 706 15 SIG_OUT = A * SIG_IN;
#X text 234 14 multiplies a n-dimensional signal-in-vector with a dynamic
static (like sig~) signal-matrix to a n-dimensional signal-out-vector
;
#X text 725 33 A is quadratic;
#X text 662 50 dim(SIG_OUT) = dim(SIG_IN) = n;
#X text 234 51 each matrix-column has only one one \, the other elements
are zero;
#X text 301 475 2.arg <float> Nr. of outlets = rows;
#X text 301 464 1.arg <float> Nr. of inlets = columns;
#X text 517 336 message "element";
#X text 531 365 2.) item <float> column_index (1 .. nr_columns);
#X text 531 353 1.) item <float> row_index (0 .. nr_rows);
#X text 446 111 message "bundle";
#X text 556 381 where the single one of the column will be placed;
#X text 557 393 if (row-index == 0) -> the column has only zeros;
#X text 449 126 (nr_inlets = nr_columns) <float> row-indices (0 ..
nr_row);
#X text 454 162 if (row-index == 0) -> the column has only zeros;
#X text 453 150 where the single one of each column will be placed
;
#N canvas 176 206 818 475 block_______________________ 0;
#X obj 564 88 block~ 128 2;
#X obj 48 29 inlet~;
#X obj 51 260 outlet~;
#X obj 103 30 inlet~;
#X obj 159 29 inlet~;
#X obj 214 30 inlet~;
#X obj 272 30 inlet~;
#X obj 246 257 outlet~;
#X obj 51 209 spec2_matrix_bundle_stat~ 5 2;
#X obj 350 30 inlet;
#X obj 586 308 for++ 0 127 0.1;
#X obj 586 332 moses 64;
#X msg 586 359 1 \$1;
#X msg 637 358 0 \$1;
#X obj 586 287 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 586 267 loadbang;
#X obj 540 240 table \$0_rect 128;
#X obj 586 385 tabwrite \$0_rect;
#X obj 64 57 tabreceive~ \$0_rect;
#X obj 48 79 *~;
#X obj 116 81 tabreceive~ \$0_rect;
#X obj 100 103 *~;
#X obj 170 103 tabreceive~ \$0_rect;
#X obj 154 125 *~;
#X obj 220 124 tabreceive~ \$0_rect;
#X obj 204 146 *~;
#X obj 270 146 tabreceive~ \$0_rect;
#X obj 254 168 *~;
#X connect 1 0 19 0;
#X connect 3 0 21 0;
#X connect 4 0 23 0;
#X connect 5 0 25 0;
#X connect 6 0 27 0;
#X connect 8 0 2 0;
#X connect 8 1 7 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 12 0 17 0;
#X connect 13 0 17 0;
#X connect 14 0 10 0;
#X connect 15 0 14 0;
#X connect 18 0 19 1;
#X connect 19 0 8 0;
#X connect 20 0 21 1;
#X connect 21 0 8 1;
#X connect 22 0 23 1;
#X connect 23 0 8 2;
#X connect 24 0 25 1;
#X connect 25 0 8 3;
#X connect 26 0 27 1;
#X connect 27 0 8 4;
#X restore 48 463 pd block_______________________;
#X text 50 13 spec2_matrix_bundle_stat~;
#X text 90 575 IEM KUG;
#X text 74 563 musil;
#X text 104 563 @;
#X text 110 563 iem.at;
#X text 73 585 Graz \, Austria;
#X text 25 552 (c) Thomas Musil 2000 - 2006;
#X text 234 83 it calculates matrix only with (blocksize/2 + 1) samples
per signalvector;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 0 0;
#X connect 4 0 49 0;
#X connect 5 0 49 1;
#X connect 6 0 49 2;
#X connect 7 0 49 3;
#X connect 8 0 49 4;
#X connect 9 0 10 0;
#X connect 11 0 12 0;
#X connect 13 0 49 5;
#X connect 14 0 13 0;
#X connect 15 0 13 0;
#X connect 16 0 13 0;
#X connect 17 0 13 0;
#X connect 18 0 13 0;
#X connect 19 0 13 0;
#X connect 20 0 13 0;
#X connect 21 0 13 0;
#X connect 22 0 13 0;
#X connect 23 0 13 0;
#X connect 24 0 13 0;
#X connect 25 0 13 0;
#X connect 26 0 13 0;
#X connect 28 0 27 0;
#X connect 29 0 28 0;
#X connect 30 0 28 1;
#X connect 31 0 29 1;
#X connect 32 0 29 0;
#X connect 49 0 9 0;
#X connect 49 1 11 0;
|
