blob: 581a04f9263a5836f0bd69d65c6c1684f1a73406 (
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
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
|
#N canvas 79 32 976 685 10;
#X obj 87 360 mtx_mul;
#X obj 157 360 mtx_*;
#X obj 88 163 mtx_add;
#X obj 167 166 mtx_+;
#X obj 155 134 mtx_diag 1 2 3 4 5;
#X obj 88 134 mtx_ones 5;
#X obj 88 111 t b b;
#X obj 88 185 mtx_print;
#X msg 88 92 bang;
#X text 142 165 ==;
#X obj 305 134 mtx_eye 4;
#X obj 305 159 mtx_add 10;
#X msg 305 107 bang;
#X obj 305 186 mtx_print;
#X floatatom 374 101 4 0 0 0 - - -;
#X obj 374 119 t b f;
#X obj 392 160 mtx_+ 10;
#X text 371 161 ==;
#X obj 87 394 mtx_print;
#X msg 87 270 bang;
#X obj 133 332 mtx_diag 1 2;
#X obj 87 297 t b b;
#X obj 87 332 mtx_+ 3;
#X text 137 361 ==;
#X obj 87 314 mtx_eye 3 2;
#X obj 249 399 mtx_print;
#X obj 249 292 t b f;
#X floatatom 249 274 4 0 0 0 - - -;
#X msg 249 315 4 2 1 3;
#X obj 249 335 mtx_diag;
#X obj 249 363 mtx_mul 2;
#X obj 328 363 mtx_* 2;
#X obj 393 363 mtx_.* 2;
#X text 310 363 ==;
#X text 376 364 ==;
#X obj 522 366 mtx_.*;
#X obj 522 401 mtx_print;
#X obj 522 304 mtx_diag 1 2 3;
#X obj 553 322 mtx_ones 3;
#X obj 522 283 t b b;
#X msg 522 264 bang;
#X obj 553 341 mtx_* 2;
#X text 80 214 add 2 matrices;
#X text 274 218 add an offset to a matrix;
#X text 70 423 multiply 2 matrices;
#X text 245 422 multiply a matrix with a scalar;
#X text 506 425 multiply 2 matrices element by element;
#X text 50 24 matrix arithmetic;
#X obj 88 599 mtx_print;
#X obj 88 492 t b f;
#X floatatom 88 474 4 0 0 0 - - -;
#X msg 88 515 4 2 1 3;
#X obj 88 535 mtx_diag;
#X obj 323 600 mtx_print;
#X obj 323 503 mtx_diag 1 2 3;
#X obj 354 521 mtx_ones 3;
#X obj 354 540 mtx_* 2;
#X text 44 622 divide a matrix by a scalar;
#X obj 88 563 mtx_./ 2;
#X obj 323 565 mtx_./;
#X text 267 624 divide 2 matrices element by element;
#X obj 323 482 t b b f;
#X floatatom 323 463 4 0 0 0 - - -;
#X obj 550 141 mtx_diag 1 2 3 4 5;
#X obj 483 141 mtx_ones 5;
#X obj 483 118 t b b;
#X obj 483 192 mtx_print;
#X msg 483 99 bang;
#X text 537 172 ==;
#X obj 700 141 mtx_eye 4;
#X msg 700 114 bang;
#X obj 700 193 mtx_print;
#X floatatom 769 108 4 0 0 0 - - -;
#X obj 769 126 t b f;
#X text 762 168 ==;
#X obj 483 170 mtx_sub;
#X obj 562 173 mtx_-;
#X obj 779 169 mtx_sub 10;
#X obj 700 166 mtx_- 10;
#X text 481 221 subtract 2 matrices;
#X text 669 225 subtract an offset from a matrix;
#X text 600 27 part of iemmatrix;
#X obj 737 28 iemmatrix;
#X obj 568 609 mtx_print;
#X obj 568 502 t b f;
#X floatatom 568 484 4 0 0 0 - - -;
#X msg 568 525 4 2 1 3;
#X obj 568 545 mtx_diag;
#X obj 763 610 mtx_print;
#X obj 763 513 mtx_diag 1 2 3;
#X obj 794 531 mtx_ones 3;
#X obj 794 550 mtx_* 2;
#X obj 763 492 t b b f;
#X floatatom 763 473 4 0 0 0 - - -;
#X obj 568 573 mtx_.^ 2;
#X obj 763 575 mtx_.^;
#X text 546 638 matrix-elements^f;
#X text 720 636 elementA(i \, j)^elementB(i \, j);
#X connect 0 0 18 0;
#X connect 2 0 7 0;
#X connect 4 0 2 1;
#X connect 5 0 2 0;
#X connect 6 0 5 0;
#X connect 6 1 4 0;
#X connect 8 0 6 0;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 10 0;
#X connect 14 0 15 0;
#X connect 15 0 10 0;
#X connect 15 1 11 1;
#X connect 19 0 21 0;
#X connect 20 0 0 1;
#X connect 21 0 24 0;
#X connect 21 1 20 0;
#X connect 22 0 0 0;
#X connect 24 0 22 0;
#X connect 26 0 28 0;
#X connect 26 1 30 1;
#X connect 27 0 26 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 25 0;
#X connect 35 0 36 0;
#X connect 37 0 35 0;
#X connect 38 0 41 0;
#X connect 39 0 37 0;
#X connect 39 1 38 0;
#X connect 40 0 39 0;
#X connect 41 0 35 1;
#X connect 49 0 51 0;
#X connect 49 1 58 1;
#X connect 50 0 49 0;
#X connect 51 0 52 0;
#X connect 52 0 58 0;
#X connect 54 0 59 0;
#X connect 55 0 56 0;
#X connect 56 0 59 1;
#X connect 58 0 48 0;
#X connect 59 0 53 0;
#X connect 61 0 54 0;
#X connect 61 1 55 0;
#X connect 61 2 56 1;
#X connect 62 0 61 0;
#X connect 63 0 75 1;
#X connect 64 0 75 0;
#X connect 65 0 64 0;
#X connect 65 1 63 0;
#X connect 67 0 65 0;
#X connect 69 0 78 0;
#X connect 70 0 69 0;
#X connect 72 0 73 0;
#X connect 73 0 69 0;
#X connect 73 1 78 1;
#X connect 75 0 66 0;
#X connect 78 0 71 0;
#X connect 84 0 86 0;
#X connect 84 1 94 1;
#X connect 85 0 84 0;
#X connect 86 0 87 0;
#X connect 87 0 94 0;
#X connect 89 0 95 0;
#X connect 90 0 91 0;
#X connect 91 0 95 1;
#X connect 92 0 89 0;
#X connect 92 1 90 0;
#X connect 92 2 91 1;
#X connect 93 0 92 0;
#X connect 94 0 83 0;
#X connect 95 0 88 0;
|
