blob: 35ac0cc1daffafe0a1394aadd254ab53d695975b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#N canvas 0 0 710 531 10;
#X obj 82 93 mtx_eig;
#X obj 82 66 mtx_rand;
#X obj 82 146 print l_re;
#X obj 128 124 print l_im;
#X msg 82 38 3;
#X obj 221 61 mtx_rand;
#X msg 221 33 3;
#X obj 230 119 mtx_eig v;
#X obj 230 192 print l_re;
#X obj 250 171 print l_im;
#X obj 314 193 mtx_print Q_re;
#X obj 335 171 mtx_print Q_im;
#X obj 230 98 t a a;
#X obj 375 123 mtx_print A;
#X msg 350 56 matrix 2 2 1 1 -1 2;
#X text 61 -33 [mtx_eig] computes (complex valued) eigenvalues \, and
if desired eigenvectors of a matrix.;
#X text 425 21 requires GSL;
#X text 212 276 Franz Zotter \, 2009;
#X text 98 238 Attention: eigenvectors seem to be wrong. Don't know
why!;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 0 0;
#X connect 4 0 1 0;
#X connect 5 0 12 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 7 1 9 0;
#X connect 7 2 10 0;
#X connect 7 3 11 0;
#X connect 12 0 7 0;
#X connect 12 1 13 0;
#X connect 14 0 12 0;
|
