"Source: Text/Group/GrpPC.text";
"Line: 6366";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Group/GrpPC.text, line: 6366
// Example: H70E45 ()
print "Example: H70E45";
ei := GetEchoInput();
SetEchoInput(true);
G := SmallGroup(3^6, 440);
#DerivedSubgroup(G) eq 3^2;
IsElementaryAbelian(DerivedSubgroup(G));
Genus(G);
H := SmallGroup(3^6, 469);
#DerivedSubgroup(H) eq 3^2;
IsElementaryAbelian(DerivedSubgroup(H));
Genus(H);
s := pCentralTensor(G, 1, 1);
t := pCentralTensor(H, 1, 1);
C_G := Centroid(s);
C_H := Centroid(t);
C_G;
C_H;
Dimension(C_G);
Dimension(C_H);
WedderburnDecomposition(C_G);
IsSimple(C_H);
SetEchoInput(ei);
