File: ctblfuns.tst

package info (click to toggle)
gap 4r4p12-2
  • links: PTS
  • area: main
  • in suites: squeeze, wheezy
  • size: 29,584 kB
  • ctags: 7,113
  • sloc: ansic: 98,786; sh: 3,299; perl: 2,263; makefile: 498; asm: 63; awk: 6
file content (38 lines) | stat: -rw-r--r-- 1,315 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#############################################################################
##
#W  ctblfuns.tst               GAP Library                      Thomas Breuer
##
#H  @(#)$Id: ctblfuns.tst,v 1.6.2.4 2005/08/29 14:50:35 gap Exp $
##
#Y  Copyright (C)  1998,  Lehrstuhl D fuer Mathematik,  RWTH Aachen,  Germany
##
##  To be listed in testall.g
##

gap> START_TEST("$Id: ctblfuns.tst,v 1.6.2.4 2005/08/29 14:50:35 gap Exp $");

gap> S4:= SymmetricGroup( 4 );
Sym( [ 1 .. 4 ] )
gap> V4:= Group( (1,2)(3,4), (1,3)(2,4) );
Group([ (1,2)(3,4), (1,3)(2,4) ])
gap> irr:= Irr( V4 );
[ Character( CharacterTable( Group([ (1,2)(3,4), (1,3)(2,4) ]) ), 
    [ 1, 1, 1, 1 ] ), Character( CharacterTable( Group(
    [ (1,2)(3,4), (1,3)(2,4) ]) ), [ 1, -1, -1, 1 ] ), 
  Character( CharacterTable( Group([ (1,2)(3,4), (1,3)(2,4) ]) ), 
    [ 1, -1, 1, -1 ] ), Character( CharacterTable( Group(
    [ (1,2)(3,4), (1,3)(2,4) ]) ), [ 1, 1, -1, -1 ] ) ]
gap> List( irr, x -> InertiaSubgroup( S4, x ) );
[ Sym( [ 1 .. 4 ] ), Group([ (1,4)(2,3), (1,3)(2,4), (1,2,4,3) ]),
  Group([ (1,4)(2,3), (1,3)(2,4), (1,4,3,2) ]),
  Group([ (1,4)(2,3), (1,3)(2,4), (1,2) ]) ]
gap> List( last, Size );
[ 24, 8, 8, 8 ]

gap> STOP_TEST( "ctblfuns.tst", 23200000 );


#############################################################################
##
#E