"Source: Text/Algebra/AlgBas.text";
"Line: 869";
"Date: Fri Sep 26 12:10:11 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgBas.text, line: 869
// Example: H94E5 ()
print "Example: H94E5";
ei := GetEchoInput();
SetEchoInput(true);
FA<e1,e2,a,b> := FreeAlgebra(GF(3),4);
MM:= [a*b*a, b*a*b];
BS3 := BasicAlgebra(FA, MM, 2, [<1,2>,<2,1>]);
BS3;
DimensionsOfProjectiveModules(BS3);
gg := CyclicGroup(3);
BC3 := BasicAlgebra(gg,GF(3));
BC3;
A := TensorProduct(BS3,BC3);
A;
DimensionsOfProjectiveModules(A);
SetEchoInput(ei);
