Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/GAP/tst/teststandard/   (Algebra von RWTH Aachen Version 4.15.1©)  Datei vom 18.9.2025 mit Größe 546 B image not shown  

Quelle  algebra.tst   Sprache: unbekannt

 
#@local f, gens, a, q, dec
gap> START_TEST( "algebra.tst" );

# 'CentralIdempotentsOfAlgebra' need not require 'IsAlgebraWithOne'.
gap> f:= GF(2);;
gap> gens:= GeneratorsOfGroup( SymmetricGroup( 4 ) );;
gap> a:= AlgebraWithOne( f, List( gens, x -> PermutationMat( x, 4, f ) ) );;
gap> q:= a / RadicalOfAlgebra( a );;
gap> dec:= DirectSumDecomposition( q );;
gap> Length( dec );
2
gap> ForAny( dec, IsAlgebraWithOne );
false
gap> List( dec, One );
[ fail, fail ]
gap> List( dec, CentralIdempotentsOfAlgebra );;

#
gap> STOP_TEST( "algebra.tst" );

[ Dauer der Verarbeitung: 0.22 Sekunden  (vorverarbeitet)  ]