me-uncc/ITCS-4182
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add times and refactor folder structure

Browse Source
This commit is contained in:
David Allemang
2019-12-11 10:23:57 -05:00
parent d8806a573b
commit 395ee99c4b
19 changed files with 171 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
gap/B7.gap Normal file
View File

@@ -0,0 +1,33 @@
f := FreeGroup( 7 );
g := f / [ f.1^2,
f.2^2,
f.3^2,
f.4^2,
f.5^2,
f.6^2,
f.7^2,
( f.1*f.2 )^4,
( f.1*f.3 )^2,
( f.1*f.4 )^2,
( f.1*f.5 )^2,
( f.1*f.6 )^2,
( f.1*f.7 )^2,
( f.2*f.3 )^3,
( f.2*f.4 )^2,
( f.2*f.5 )^2,
( f.2*f.6 )^2,
( f.2*f.7 )^2,
( f.3*f.4 )^3,
( f.3*f.5 )^2,
( f.3*f.6 )^2,
( f.3*f.7 )^2,
( f.4*f.5 )^3,
( f.4*f.6 )^2,
( f.4*f.7 )^2,
( f.5*f.6 )^3,
( f.5*f.7 )^2,
( f.6*f.7 )^3,
];
tab := CosetTable( g, TrivialSubgroup(g));
time;

26
gap/E6.gap Normal file
View File

@@ -0,0 +1,26 @@
f := FreeGroup( 6 );
g := f / [ f.1^2,
f.2^2,
f.3^2,
f.4^2,
f.5^2,
f.6^2,
( f.1*f.2 )^3,
( f.2*f.3 )^3,
( f.3*f.4 )^3,
( f.3*f.5 )^3,
( f.5*f.6 )^3,
( f.1*f.3 )^2,
( f.1*f.4 )^2,
( f.1*f.5 )^2,
( f.1*f.6 )^2,
( f.2*f.4 )^2,
( f.2*f.5 )^2,
( f.2*f.6 )^2,
( f.3*f.6 )^2,
( f.4*f.5 )^2,
( f.4*f.6 )^2,
];
tab := CosetTable( g, Subgroup(g, [ ]));
time;

15
gap/H4.gap Normal file
View File

@@ -0,0 +1,15 @@
f := FreeGroup( 4 );
g := f / [ f.1^2,
f.2^2,
f.3^2,
f.4^2,
( f.1*f.2 )^5,
( f.2*f.3 )^3,
( f.3*f.4 )^3,
( f.1*f.3 )^2,
( f.1*f.4 )^2,
( f.2*f.4 )^2
];
tab := CosetTable( g, Subgroup(g, [ ]));
time;