From 812a80acf52275699afb285db46aa76be03006c2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20M=C3=BCller?= <andreas.mueller@othello.ch>
Date: Mon, 18 Jan 2021 21:01:26 +0100
Subject: add more stuff about spectral radius

---
 buch/chapters/40-eigenwerte/uebungsaufgaben/4003.maxima | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 buch/chapters/40-eigenwerte/uebungsaufgaben/4003.maxima

(limited to 'buch/chapters/40-eigenwerte/uebungsaufgaben/4003.maxima')

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);
+
-- 
cgit v1.2.1