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_polyval.pd | 74 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 74 insertions(+)
 create mode 100644 abs/mtx_polyval.pd

(limited to 'abs/mtx_polyval.pd')

diff --git a/abs/mtx_polyval.pd b/abs/mtx_polyval.pd
new file mode 100644
index 0000000..d63045d
--- /dev/null
+++ b/abs/mtx_polyval.pd
@@ -0,0 +1,74 @@
+#N canvas 96 236 810 668 10;
+#X obj 50 32 inlet;
+#X obj 310 34 inlet;
+#X text 354 32 coeffs;
+#X text 94 32 values;
+#X obj 50 60 mtx_:;
+#X obj 310 64 t a a;
+#X obj 342 86 mtx_size;
+#X msg 123 52 matrix 1 2 1 2;
+#X obj 273 547 mtx;
+#X obj 82 112 mtx_size;
+#X obj 272 245 pack f 4;
+#X obj 53 358 mtx;
+#X obj 53 379 mtx_.*;
+#X obj 103 379 t a;
+#X msg 92 316 1 \$1;
+#X obj 92 337 mtx_ones;
+#X obj 53 231 until;
+#X obj 53 273 f;
+#X obj 82 273 + 1;
+#X obj 115 437 list split 3;
+#X obj 155 459 list prepend;
+#X msg 236 437 row \$1;
+#X obj 155 480 list trim;
+#X msg 272 268 size \$1 \$2;
+#X obj 92 357 t a a b;
+#X msg 148 357 1;
+#X obj 53 293 t b f;
+#X msg 71 252 2;
+#X obj 53 210 t f b;
+#X obj 53 188 - 1;
+#X obj 53 169 f 2;
+#X obj 50 86 t b a;
+#X obj 286 588 mtx_print;
+#X connect 0 0 4 0;
+#X connect 1 0 5 0;
+#X connect 4 0 31 0;
+#X connect 5 1 6 0;
+#X connect 6 1 10 1;
+#X connect 6 1 30 1;
+#X connect 7 0 4 0;
+#X connect 8 0 32 0;
+#X connect 9 1 10 0;
+#X connect 9 1 14 0;
+#X connect 10 0 23 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 12 1;
+#X connect 13 0 19 0;
+#X connect 14 0 15 0;
+#X connect 15 0 24 0;
+#X connect 16 0 17 0;
+#X connect 17 0 18 0;
+#X connect 17 0 26 0;
+#X connect 18 0 17 1;
+#X connect 19 1 20 0;
+#X connect 20 0 22 0;
+#X connect 21 0 20 1;
+#X connect 22 0 8 0;
+#X connect 23 0 8 0;
+#X connect 24 0 12 1;
+#X connect 24 1 19 0;
+#X connect 24 2 25 0;
+#X connect 25 0 21 0;
+#X connect 26 0 11 0;
+#X connect 26 1 21 0;
+#X connect 27 0 17 1;
+#X connect 28 0 16 0;
+#X connect 28 1 27 0;
+#X connect 29 0 28 0;
+#X connect 30 0 29 0;
+#X connect 31 0 29 0;
+#X connect 31 1 9 0;
+#X connect 31 1 11 1;
-- 
cgit v1.2.1