diff options
author | Andreas Müller <andreas.mueller@othello.ch> | 2021-01-19 22:08:40 +0100 |
---|---|---|
committer | Andreas Müller <andreas.mueller@othello.ch> | 2021-01-19 22:08:40 +0100 |
commit | 45794fb198c8fac02b5c82b6ac3f1e17bac1075e (patch) | |
tree | 038f99ee46536f8f46e48358454c5868c429af09 /buch/chapters/40-eigenwerte/beispiele/n.maxima | |
parent | repurposing spectral radius section (diff) | |
download | SeminarMatrizen-45794fb198c8fac02b5c82b6ac3f1e17bac1075e.tar.gz SeminarMatrizen-45794fb198c8fac02b5c82b6ac3f1e17bac1075e.zip |
Permutationen hinzugefügt
Diffstat (limited to 'buch/chapters/40-eigenwerte/beispiele/n.maxima')
-rw-r--r-- | buch/chapters/40-eigenwerte/beispiele/n.maxima | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/buch/chapters/40-eigenwerte/beispiele/n.maxima b/buch/chapters/40-eigenwerte/beispiele/n.maxima new file mode 100644 index 0000000..9ed83b6 --- /dev/null +++ b/buch/chapters/40-eigenwerte/beispiele/n.maxima @@ -0,0 +1,20 @@ +/* + * n.maxima + * + * (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule + */ +A: matrix( + [ 1, 9, -4 ], + [ -1, 3, 0 ], + [ -2, 0, 3 ] +); + +p: expand(charpoly(A,x)); +factor(p); + +A.A; +A.A.A; + +A.A - 5*A; + +A.A.A -7*A.A +16 *A; |