Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/GAP/pkg/examplesforhomalg/examples/   (Algebra von RWTH Aachen Version 4.15.1©)  Datei vom 5.9.2023 mit Größe 522 B image not shown  

Quelle  JordanNormalForm.g   Sprache: unbekannt

 
LoadPackage( "RingsForHomalg" );

LoadPackage( "Modules" );

R := HomalgFieldOfRationalsInDefaultCAS( ) * "d";

m := HomalgMatrix( "[ \
 2,-1, 1,-1,-1, \
-1, 2,-1, 1, 0, \
-1, 1, 0, 1, 1, \
 1,-1, 1, 0, 0, \
 0, 1, 0, 1, 1  \
]", 5, 5, R );

d := Indeterminates( R )[1];

M := LeftPresentation( m - HomalgScalarMatrix( d, NumberRows( m ) ) );

n := HomalgMatrix( "[ \
 3, 4, 3, \
-1, 0,-1, \
 1, 2, 3  \
]", 3, 3, R );

d := Indeterminates( R )[1];

N := LeftPresentation( n - HomalgScalarMatrix( d, NumberRows( n ) ) );

[ Dauer der Verarbeitung: 0.13 Sekunden  (vorverarbeitet)  ]