|
LoadPackage( "MatricesForHomalg" );
R := HomalgRingOfIntegers( );
M := HomalgMatrix( "[ \
1, 3, 4, \
0, 1, 8, \
0, 0, 1 \
]", 3, 3, R );
N := LeftInverse( M );
Id := HomalgIdentityMatrix( 3, R );
zz := HomalgZeroMatrix( 3, 3, R );
A := UnionOfColumns( Id, -M );
B := UnionOfRows( 2 * M, Id );
C := A * B;
D := C - M;
[ Dauer der Verarbeitung: 0.18 Sekunden
(vorverarbeitet)
]
|