"Source: Text/Algebra/AlgMat.text";
"Line: 2727";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgMat.text, line: 2727
// Example: H92E11 ()
print "Example: H92E11";
ei := GetEchoInput();
SetEchoInput(true);
a1 := KMatrixSpace(GF(3),3,3)![0,1,0,0,0,1,-1,0,1];
a2 := KMatrixSpace(GF(3),2,2)![0,1,-1,0];
z1 := KMatrixSpace(GF(3),5,5)!0;
z2 := InsertBlock(z1,a1,1,1);
z2;
z3 := InsertBlock(z1,a2,4,4);
z3[1][4] := 1;
z3;
A := MatrixAlgebra<GF(3),5|z2,z3>;
SimpleQuotientAlgebras(A);
PrimitiveIdempotents(A);
CartanMatrix(A);
SetEchoInput(ei);
