From ba9aeb745c372735ea6034e72e9d96bc60de99e2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Wed, 27 Apr 2005 16:52:49 +0000
Subject: symmetric/asymetric matrix decomposition

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

(limited to 'abs')

diff --git a/abs/mtx_symasym.pd b/abs/mtx_symasym.pd
new file mode 100644
index 0000000..d078cab
--- /dev/null
+++ b/abs/mtx_symasym.pd
@@ -0,0 +1,25 @@
+#N canvas 0 0 450 300 10;
+#X obj 61 66 inlet matrix;
+#X obj 61 255 outlet symmetric;
+#X obj 105 229 outlet assymetric;
+#X obj 105 136 mtx_transpose;
+#X obj 61 93 mtx_* 0.5;
+#X obj 61 229 mtx_+;
+#X obj 105 203 mtx_-;
+#X obj 61 115 t a a a;
+#X obj 105 158 t a a;
+#X text 23 19 mtx_symasym:: decompose a square matrix into a symmetric
+and an assymtric part;
+#X text 240 101 S=0.5*(M+M');
+#X text 240 120 A=0.5*(M-M');
+#X text 240 76 M=S+A;
+#X connect 0 0 4 0;
+#X connect 3 0 8 0;
+#X connect 4 0 7 0;
+#X connect 5 0 1 0;
+#X connect 6 0 2 0;
+#X connect 7 0 5 0;
+#X connect 7 1 6 0;
+#X connect 7 2 3 0;
+#X connect 8 0 5 1;
+#X connect 8 1 6 1;
-- 
cgit v1.2.1