From 95a5b90c683bb257dbf3fb8e3bc43ef348e4c7fb Mon Sep 17 00:00:00 2001
From: Franz Zotter <fzotter@users.sourceforge.net>
Date: Tue, 5 Sep 2006 12:50:05 +0000
Subject: a lot of complex valued matrix computation abstractions: complex
 matrix inverse via real valued hermitian matrix, complex-valued division,
 complex absolute square, complex multiplication...

and linear and logarithmic sweep abstractions.

svn path=/trunk/externals/iem/iemmatrix/; revision=5871
---
 abs/mtx_cinverse.pd | 109 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 109 insertions(+)
 create mode 100644 abs/mtx_cinverse.pd

(limited to 'abs/mtx_cinverse.pd')

diff --git a/abs/mtx_cinverse.pd b/abs/mtx_cinverse.pd
new file mode 100644
index 0000000..f374c87
--- /dev/null
+++ b/abs/mtx_cinverse.pd
@@ -0,0 +1,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;
-- 
cgit v1.2.1