diff options
author | Andreas Müller <andreas.mueller@othello.ch> | 2021-01-18 21:01:26 +0100 |
---|---|---|
committer | Andreas Müller <andreas.mueller@othello.ch> | 2021-01-18 21:01:26 +0100 |
commit | 812a80acf52275699afb285db46aa76be03006c2 (patch) | |
tree | d603bf9c54cd29909551d1cb7f5fd7b66c64ca4e /buch/chapters/40-eigenwerte/uebungsaufgaben/4003.maxima | |
parent | neue Sachen zur linearen Algebra (diff) | |
download | SeminarMatrizen-812a80acf52275699afb285db46aa76be03006c2.tar.gz SeminarMatrizen-812a80acf52275699afb285db46aa76be03006c2.zip |
add more stuff about spectral radius
Diffstat (limited to '')
-rw-r--r-- | buch/chapters/40-eigenwerte/uebungsaufgaben/4003.maxima | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/buch/chapters/40-eigenwerte/uebungsaufgaben/4003.maxima b/buch/chapters/40-eigenwerte/uebungsaufgaben/4003.maxima new file mode 100644 index 0000000..bbbc045 --- /dev/null +++ b/buch/chapters/40-eigenwerte/uebungsaufgaben/4003.maxima @@ -0,0 +1,16 @@ +/* + * 4003.maxima - algebraische Lösung von Aufgabe 4003 + * + * (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule + */ + +A: matrix( + [ -13, 5, -29, 29 ], + [ -27, 11, -51, 51 ], + [ -3, 1, -2, 5 ], + [ -6, 2, -10, 13 ]); + +p: expand(charpoly(A,x)); +tex(p); +factor(p); + |