aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--abs/mtx_symasym.pd25
1 files changed, 25 insertions, 0 deletions
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;