/usr/lib/open-axiom/input/grpthry.input is in open-axiom-test 1.4.1+svn~2626-2ubuntu2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 | -- Input for page PermutationGroupsPage
)clear all
x : PERM INT := [[1,3,5],[7,11,9]]
y : PERM INT := [[3,5,7,9]]
z : PERM INT := [1,3,11]
g1 : PERMGRP INT := [ x , y ]
g2 : PERMGRP INT := [ x , z ]
g3 : PERMGRP INT := [ y , z ]
order g1
degree g3
support g2
orbit (g1, 3)
orbits g3
member? ( y , g2 )
)sh PERMGRP
-- Input for page IrrRepSymPage
)clear all
ptn9 := partitions 9
map(dimIrrRepSym, ptn9)
yt := listYoungTableaus [4,2]; yt :: (LIST TABLEAU I)
r1 := irrRepSymNat([4,2],[1,2,4,5,3,6])
r2 := irrRepSymNat([4,2],[3,2,1,5,6,4])
r3 := irrRepSymNat([4,2],[4,2,1,3,6,5])
(r3 = r1*r2) :: Boolean
irrRepSymNat [4,4,1]
-- Input for page REP1Page
)clear all
permutationRepresentation [2,3,1,4,6,5,11,10,7,8,9]
gm2 := createGenericMatrix 2
symmetricTensors (gm2,2)
gm3 := createGenericMatrix 3
antisymmetricTensors (gm3,2)
tensorProduct(gm2,gm2)
)sh REP1
-- Input for page REP2Page
)clear all
r0 := irrRepSymNat [2,2,2,1,1]; r28 := meatAxe (r0::(LIST MATRIX PF 2))
areEquivalent? (r28.1, r28.2)
meatAxe r28.2
isAbsolutelyIrreducible? r28.2
ma := meatAxe r28.1
isAbsolutelyIrreducible? ma.1
isAbsolutelyIrreducible? ma.2
-- Input for page PermutationsPage
)clear all
px : PERM PF 29 := cycles [[1,3,5],[7,11,9]]
py : PERM PF 29 := cycles [[3,5,7,9]]
pz : PERM PF 29 := cycle [1,3,11]
px * pz
py ** 3
inv px
order px
support py
orbit ( pz , 3 )
py 7
)sh PERM
-- Input for page RepA6Page
)clear all
genA6 : List PERM INT := [cycle [1,2,3],cycle [2,3,4,5,6]]
pRA6 := permutationRepresentation (genA6,6)
sp0 := meatAxe (pRA6::(List Matrix PF 2))
sp1 := meatAxe sp0.1
isAbsolutelyIrreducible? sp1.2
d2211 := irrRepSymNat ([2,2,1,1],genA6)
d2211m2 := (d2211::(List Matrix PF 2)); sp2 := meatAxe d2211m2
isAbsolutelyIrreducible? sp2.1
areEquivalent? (sp2.1, sp1.2)
dA6d16 := tensorProduct(sp2.1,sp1.2); meatAxe dA6d16
isAbsolutelyIrreducible? dA6d16
sp3 := meatAxe (dA6d16 :: (List Matrix FF(2,2)))
isAbsolutelyIrreducible? sp3.1
isAbsolutelyIrreducible? sp3.2
areEquivalent? (sp3.1,sp3.2)
sp0.2
sp1.2
sp2.1
sp3.1
sp3.2
dA6d16
|