diff options
author | Andreas Müller <andreas.mueller@ost.ch> | 2021-02-04 22:20:47 +0100 |
---|---|---|
committer | Andreas Müller <andreas.mueller@ost.ch> | 2021-02-04 22:20:47 +0100 |
commit | 683fd0ccda929459f5dadedb49373ef820aa2bef (patch) | |
tree | 26bb9105c4d7ee3f40335bc7b799fe8fd9ab81e4 /buch/chapters/30-endlichekoerper/rechnungen/multiplikation.maxima | |
parent | typo (diff) | |
download | SeminarMatrizen-683fd0ccda929459f5dadedb49373ef820aa2bef.tar.gz SeminarMatrizen-683fd0ccda929459f5dadedb49373ef820aa2bef.zip |
Rechnen in der Körpererweiterung
Diffstat (limited to 'buch/chapters/30-endlichekoerper/rechnungen/multiplikation.maxima')
-rw-r--r-- | buch/chapters/30-endlichekoerper/rechnungen/multiplikation.maxima | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/buch/chapters/30-endlichekoerper/rechnungen/multiplikation.maxima b/buch/chapters/30-endlichekoerper/rechnungen/multiplikation.maxima new file mode 100644 index 0000000..e09f848 --- /dev/null +++ b/buch/chapters/30-endlichekoerper/rechnungen/multiplikation.maxima @@ -0,0 +1,38 @@ +/* + * multiplikation.maxima + * + * (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule + */ + +Malpha: matrix( +[ 0, 0, 0, 0, 0, 0, -m0 ], +[ 1, 0, 0, 0, 0, 0, -m1 ], +[ 0, 1, 0, 0, 0, 0, -m2 ], +[ 0, 0, 1, 0, 0, 0, -m3 ], +[ 0, 0, 0, 1, 0, 0, -m4 ], +[ 0, 0, 0, 0, 1, 0, -m5 ], +[ 0, 0, 0, 0, 0, 1, -m6 ] +); + +Malpha2: expand(Malpha . Malpha); +Malpha3: expand(Malpha . Malpha2); +Malpha4: expand(Malpha . Malpha3); +Malpha5: expand(Malpha . Malpha4); +Malpha6: expand(Malpha . Malpha5); +Malpha7: expand(Malpha . Malpha6); +Malpha8: expand(Malpha . Malpha7); + +p: m0 * identfor(Malpha) ++ m1 * Malpha ++ m2 * Malpha2 ++ m3 * Malpha3 ++ m4 * Malpha4 ++ m5 * Malpha5 ++ m6 * Malpha6 ++ Malpha7; +expand(p); + + +m(X) := m0 + m1*X + m2*X^2 + m3*X^3 + m4*X^4 + m5*X^5 + m6*X^6 + X^7; + +invert(Malpha); |