"Source: Text/Algebra/AlgBas.text";
"Line: 869";
"Date: Thu Jun 16 15:34:16 2016";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Algebra/AlgBas.text, line: 869
// Example: H92E5 ()
print "Example: H92E5";
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);
