aboutsummaryrefslogtreecommitdiff
path: root/abs/mtx_cinverse.pd
blob: f374c87678176c168a008ecf70820409c8689484 (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
#N canvas 544 483 588 201 10;
#X obj 83 28 inlet realA;
#X obj 168 28 inlet imagA;
#X obj 83 93 mtx_inverse;
#X obj 369 164 outlet instability_detection;
#X obj 83 165 outlet real;
#X obj 281 164 outlet imag;
#N canvas 0 0 652 418 mtx_cplx_to_real_hermitian 0;
#X obj 351 32 inlet imag;
#X obj 87 35 inlet real;
#X obj 101 364 outlet;
#X obj 351 52 t a a;
#X obj 418 52 mtx_size;
#X obj 418 72 * 2;
#X obj 469 72 * 2;
#X obj 418 92 pack;
#X obj 418 113 mtx_zeros;
#X obj 117 318 mtx_fill;
#X obj 87 55 t b a;
#X msg 175 141 matrix 1 1;
#X obj 117 119 t a b a b;
#X obj 136 189 pack 1 f f;
#X msg 136 209 matrix \$2 \$3;
#X obj 101 344 mtx;
#X obj 480 52 + 1;
#X obj 391 52 + 1;
#X obj 269 147 t a b a b;
#X obj 327 168 f;
#X obj 288 189 f;
#X msg 327 189 matrix \$1 1;
#X msg 288 209 matrix 1 \$1;
#X obj 226 209 mtx_* -1;
#X connect 0 0 3 0;
#X connect 1 0 10 0;
#X connect 3 0 18 0;
#X connect 3 1 4 0;
#X connect 4 0 5 0;
#X connect 4 0 17 0;
#X connect 4 1 6 0;
#X connect 4 1 16 0;
#X connect 5 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 8 0;
#X connect 8 0 9 1;
#X connect 9 0 15 1;
#X connect 10 0 15 0;
#X connect 10 1 12 0;
#X connect 11 0 9 2;
#X connect 12 0 9 0;
#X connect 12 1 13 0;
#X connect 12 2 9 0;
#X connect 12 3 11 0;
#X connect 13 0 14 0;
#X connect 14 0 9 2;
#X connect 15 0 2 0;
#X connect 16 0 13 2;
#X connect 16 0 19 1;
#X connect 17 0 13 1;
#X connect 17 0 20 1;
#X connect 18 0 23 0;
#X connect 18 1 20 0;
#X connect 18 2 9 0;
#X connect 18 3 19 0;
#X connect 19 0 21 0;
#X connect 20 0 22 0;
#X connect 21 0 9 2;
#X connect 22 0 9 2;
#X connect 23 0 9 0;
#X restore 83 59 pd mtx_cplx_to_real_hermitian;
#N canvas 0 0 450 300 mtx_real_hermitian_to_cplx 0;
#X obj 170 18 inlet;
#X obj 170 272 outlet real;
#X obj 253 272 outlet imag;
#X obj 226 47 mtx_size;
#X obj 277 68 / 2;
#X obj 226 69 / 2;
#X obj 254 112 + 1;
#X obj 254 132 pack;
#X msg 254 163 \$1 1 end \$2;
#X obj 253 191 mtx_slice;
#X obj 170 47 t a a a;
#X obj 170 189 mtx_slice;
#X msg 176 163 1 1 \$1 \$2;
#X obj 176 142 pack;
#X connect 0 0 10 0;
#X connect 3 0 5 0;
#X connect 3 1 4 0;
#X connect 4 0 7 1;
#X connect 4 0 13 1;
#X connect 5 0 6 0;
#X connect 5 0 13 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 1;
#X connect 9 0 2 0;
#X connect 10 0 11 0;
#X connect 10 1 9 0;
#X connect 10 2 3 0;
#X connect 11 0 1 0;
#X connect 12 0 11 1;
#X connect 13 0 12 0;
#X restore 83 122 pd mtx_real_hermitian_to_cplx;
#X connect 0 0 6 0;
#X connect 1 0 6 1;
#X connect 2 0 7 0;
#X connect 2 1 3 0;
#X connect 6 0 2 0;
#X connect 7 0 4 0;
#X connect 7 1 5 0;