Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/GAP/pkg/repndecomp/old_tst/   (Algebra von RWTH Aachen Version 4.15.1©)  Datei vom 12.8.2025 mit Größe 526 B image not shown  

Quelle  BlockDiagonalRepresentation.tst   Sprache: unbekannt

 
gap> G := SmallGroup(56, 3);;
gap> irreps := IrreducibleRepresentations(G);;
gap> rho := DirectSumOfRepresentations([irreps[1], irreps[2], irreps[5]]);;
gap> # rho is already block diagonal, so shouldn't change
gap> BlockDiagonalRepresentation(rho) = rho;
true
gap> # now scramble the basis a bit and check if we find the original
gap> A := [ [ 1, 0, -1, -1 ], [ -1, 1, -1, 1 ], [ -2, -1, -2, 0 ], [ -1, 2, -2, -1 ] ];;
gap> tau := ComposeHomFunction(rho, x -> A^-1 * x * A);;
gap> BlockDiagonalRepresentation(tau) = rho;
true

[ Dauer der Verarbeitung: 0.18 Sekunden  (vorverarbeitet)  ]