From 810388c19a126701120e2fdb3c716fc87de7e282 Mon Sep 17 00:00:00 2001
From: Franz Zotter <fzotter@users.sourceforge.net>
Date: Mon, 21 Jun 2010 21:07:54 +0000
Subject: added polynomial root finder

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

(limited to 'abs/mtx_roots.pd')

diff --git a/abs/mtx_roots.pd b/abs/mtx_roots.pd
new file mode 100644
index 0000000..2b3f2fa
--- /dev/null
+++ b/abs/mtx_roots.pd
@@ -0,0 +1,56 @@
+#N canvas 0 0 586 346 10;
+#N canvas 296 357 512 426 companion_matrix 0;
+#X obj 28 236 mtx_eye;
+#X obj -109 219 mtx;
+#X obj 179 87 list length;
+#X obj 28 214 f;
+#X obj 115 192 f;
+#X obj 29 21 inlet;
+#X obj -67 351 outlet;
+#X obj 115 234 mtx_zeros;
+#X obj -109 262 mtx_* -1;
+#X obj 46 193 - 2;
+#X obj -110 178 - 1;
+#X obj 179 110 moses 3;
+#X obj -207 177 list split 1;
+#X msg -57 218 \$1;
+#X obj -109 240 mtx_./ 1;
+#X obj 28 46 t l b b l;
+#X obj -68 314 mtx_concat col;
+#X msg -109 198 size 1 \$1;
+#X msg 115 213 \$1 1;
+#X obj 28 281 mtx_concat row;
+#X connect 0 0 19 0;
+#X connect 1 0 14 0;
+#X connect 2 0 11 0;
+#X connect 3 0 0 0;
+#X connect 4 0 18 0;
+#X connect 5 0 15 0;
+#X connect 7 0 19 1;
+#X connect 8 0 16 0;
+#X connect 9 0 3 1;
+#X connect 9 0 4 1;
+#X connect 10 0 17 0;
+#X connect 11 1 10 0;
+#X connect 11 1 9 0;
+#X connect 12 1 1 0;
+#X connect 13 0 14 1;
+#X connect 14 0 8 0;
+#X connect 15 0 12 0;
+#X connect 15 1 3 0;
+#X connect 15 2 4 0;
+#X connect 15 3 2 0;
+#X connect 15 3 13 0;
+#X connect 16 0 6 0;
+#X connect 17 0 1 0;
+#X connect 18 0 7 0;
+#X connect 19 0 16 1;
+#X restore 100 135 pd companion_matrix;
+#X obj 100 47 inlet;
+#X obj 100 159 mtx_eig;
+#X obj 182 223 outlet im;
+#X obj 76 221 outlet re;
+#X connect 0 0 2 0;
+#X connect 1 0 0 0;
+#X connect 2 0 4 0;
+#X connect 2 1 3 0;
-- 
cgit v1.2.1