diff options
| author | Franz Zotter <fzotter@users.sourceforge.net> | 2010-06-21 21:07:54 +0000 |
|---|---|---|
| committer | Franz Zotter <fzotter@users.sourceforge.net> | 2010-06-21 21:07:54 +0000 |
| commit | 810388c19a126701120e2fdb3c716fc87de7e282 (patch) | |
| tree | 266be4ec76d4dbfefb79af6c724b192a1cc84f2c /abs/mtx_roots.pd | |
| parent | 3555fedb614de2daace01be13226cbdcd5178093 (diff) | |
added polynomial root finder
svn path=/trunk/externals/iem/iemmatrix/; revision=13684
Diffstat (limited to 'abs/mtx_roots.pd')
| -rw-r--r-- | abs/mtx_roots.pd | 56 |
1 files changed, 56 insertions, 0 deletions
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; |