From 5939ab8670923408f4e4c9095be9417f888aac43 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20M=C3=BCller?= <andreas.mueller@ost.ch>
Date: Thu, 2 Sep 2021 20:51:38 +0200
Subject: norm J_2(\lambda) example

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

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

diff --git a/buch/chapters/40-eigenwerte/jnorm.maxima b/buch/chapters/40-eigenwerte/jnorm.maxima
new file mode 100644
index 0000000..d4c349b
--- /dev/null
+++ b/buch/chapters/40-eigenwerte/jnorm.maxima
@@ -0,0 +1,6 @@
+J: matrix([a+b*%i, 1], [0, a+b*%i]);
+v: matrix([cos(t)],[sin(t)]);
+w: J.v;
+n: expand(transpose(conjugate(w)).w);
+d: expand(diff(n,t));
+
-- 
cgit v1.2.1