diff options
| author | Andreas Müller <andreas.mueller@ost.ch> | 2021-02-04 22:56:05 +0100 |
|---|---|---|
| committer | Andreas Müller <andreas.mueller@ost.ch> | 2021-02-04 22:56:05 +0100 |
| commit | 2806f2fc717dd4e56ae9f7e3770e4756a25aa32a (patch) | |
| tree | e2e13e0fe1a4223ed26843848e37c790e8a14d1e /buch/chapters/30-endlichekoerper/rechnungen | |
| parent | Beispiel vollständig (diff) | |
| download | SeminarMatrizen-2806f2fc717dd4e56ae9f7e3770e4756a25aa32a.tar.gz SeminarMatrizen-2806f2fc717dd4e56ae9f7e3770e4756a25aa32a.zip | |
add Gauss inversion
Diffstat (limited to 'buch/chapters/30-endlichekoerper/rechnungen')
| -rw-r--r-- | buch/chapters/30-endlichekoerper/rechnungen/invbeispiel.maxima | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/buch/chapters/30-endlichekoerper/rechnungen/invbeispiel.maxima b/buch/chapters/30-endlichekoerper/rechnungen/invbeispiel.maxima index bc8e967..f227f3a 100644 --- a/buch/chapters/30-endlichekoerper/rechnungen/invbeispiel.maxima +++ b/buch/chapters/30-endlichekoerper/rechnungen/invbeispiel.maxima @@ -39,19 +39,22 @@ t: inv_mod(T[1,1], 7); T[1]: mod(t * T[1], 7); T[2]: mod(T[2] - T[2,1]*T[1], 7); T[3]: mod(T[3] - T[3,1]*T[1], 7); +T; t: inv_mod(T[2,2], 7); T[2]: mod(t * T[2], 7); T[3]: mod(T[3] - T[3,2] * T[2], 7); +T; t: inv_mod(T[3,3], 7); T[3]: mod(t * T[3], 7); +T; T[2]: mod(T[2] - T[2,3] * T[3], 7); T[1]: mod(T[1] - T[1,3] * T[3], 7); +T; T[1]: mod(T[1] - T[1,2] * T[2], 7); - T; C: matrix( |