buch/chapters/40-eigenwerte/beispiele/jp.maxima


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

/*
 * jp.maxima -- potenzen von Jordan-Blöcken
 *
 * (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule
 */

A: matrix(
[lambda,     1,     0,     0,     0,     0 ],
[     0,lambda,     1,     0,     0,     0 ],
[     0,     0,lambda,     1,     0,     0 ],
[     0,     0,     0,lambda,     1,     0 ],
[     0,     0,     0,     0,lambda,     1 ],
[     0,     0,     0,     0,     0,lambda ]
);
B: A.A;
B: B.A;
B: B.A;
B: B.A;
B: B.A;