Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/GAP/pkg/modisom/gap/grpalg/   (Algebra von RWTH Aachen Version 4.15.1©)  Datei vom 23.8.2024 mit Größe 589 B image not shown  

Quelle  head.gi   Sprache: unbekannt

 


BindGlobal( "HaveIsomorphicModularGroupAlgebras", function(G, H)
    local p, TG, TH, CG, CH;
    if Size(G) <> Size(H) then return false; fi;
    if RankPGroup(G) <> RankPGroup(H) then return false; fi;
    p := PrimePGroup(G);
    TG := TableByWeightedBasisOfRad( GroupRing(GF(p), G ) );
    TH := TableByWeightedBasisOfRad( GroupRing(GF(p), H ) );
    if TG.wgs <> TH.wgs then return false; fi;
    if CompareTables(TG, TH) then return true; fi;
    CG := CanoFormWithAutGroupOfTable(TG).cano;
    CH := CanoFormWithAutGroupOfTable(TH).cano;
    return CompareTables(CG, CH);
end );

[ Dauer der Verarbeitung: 0.3 Sekunden  (vorverarbeitet)  ]