"Source: Text/Algebra/AlgMat.text";
"Line: 2640";
"Date: Wed Sep 19 23:00:01 2018";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Algebra/AlgMat.text, line: 2640
// Example: H90E10 ()
print "Example: H90E10";
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);
