glen/loops
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

update to LOOPS 3.4.0

Browse source 
These are simply the changes as distributed.
This commit is contained in:
Glen Whitney 2017-10-29 23:54:13 -04:00
parent 7e8b3b5562
commit f64208f12f
58 changed files with 17724 additions and 29097 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tst/bol.tst
View file

@ -19,7 +19,7 @@ gap> IsomorphismLoops(B,LeftBolLoop(15,1));
gap> Q := RightBolLoop(15,1);;
gap> AssociatedRightBruckLoop( Q );
<right Bol loop of order 15>
<right Bruck loop of order 15>
# TESTING EXACT GROUP FACTORIZATIONS

2
tst/core_methods.tst
View file

@ -2,7 +2,7 @@
##
#W core_methods.tst Testing core methods G. P. Nagy / P. Vojtechovsky
##
#H @(#)$Id: core_methods.tst, v 3.3.0 2016/10/26 gap Exp $
#H @(#)$Id: core_methods.tst, v 3.4.0 2017/10/26 gap Exp $
##
#Y Copyright (C) 2004, G. P. Nagy (University of Szeged, Hungary),
#Y P. Vojtechovsky (University of Denver, USA)

7
tst/iso.tst
View file

@ -2,7 +2,7 @@
##
#W iso.tst Testing isomorphisms G. P. Nagy / P. Vojtechovsky
##
#H @(#)$Id: iso.tst, v 3.2.0 2016/06/02 gap Exp $
#H @(#)$Id: iso.tst, v 3.4.0 2017/10/26 gap Exp $
##
#Y Copyright (C) 2004, G. P. Nagy (University of Szeged, Hungary),
#Y P. Vojtechovsky (University of Denver, USA)
@ -34,6 +34,11 @@ Group([ (1,2,3), (1,3,2) ])
gap> Q := DirectProduct( MoufangLoop( 32, 5 ) );;
gap> Qp := IsomorphicCopyByPerm( Q, (2,3,4)(17,20) );;
gap> Qq := LoopIsomorph( Q, (2,3,4)(17,20) );;
gap> Qp = Qq;
false
gap> CayleyTable( Qp ) = CayleyTable( Qq );
true
gap> IsomorphismLoops( Q, Qp );
(2,3,4)(18,23)(19,25)(21,27)(22,28)(24,30)(26,31)(29,32)
gap> LoopsUpToIsomorphism( [Q,Qp] );

54
tst/lib.tst
View file

@ -2,7 +2,7 @@
##
#W lib.tst Testing libraries of loops G. P. Nagy / P. Vojtechovsky
##
#H @(#)$Id: lib.tst, v 3.3.0 2016/10/26 gap Exp $
#H @(#)$Id: lib.tst, v 3.4.0 2017/10/26 gap Exp $
##
#Y Copyright (C) 2004, G. P. Nagy (University of Szeged, Hungary),
#Y P. Vojtechovsky (University of Denver, USA)
@ -156,19 +156,34 @@ gap> LCCLoop(6,3); LCCLoop(25,119);
# CC LOOPS
gap> DisplayLibraryInfo("CC");
The library contains all nonassociative CC loops of order less than 28
The library contains all CC loops of order
2<=2^k<=64, 3<=3^k<=81, 5<=5^k<=125, 7<=7^k<=343,
all nonassociative CC loops of order less than 28,
and all nonassociative CC loops of order p^2 and 2*p for any odd prime p.
------
Extent of the library:
2 loops of order 8
1 loop of order 2
1 loop of order 3
2 loops of order 4
1 loop of order 5
1 loop of order 7
7 loops of order 8
5 loops of order 9
3 loops of order 12
28 loops of order 16
42 loops of order 16
7 loops of order 18
3 loops of order 20
1 loop of order 21
14 loops of order 24
55 loops of order 27
3 loops of order p^2 for every odd prime p,
5 loops of order 25
60 loops of order 27
437 loops of order 32
5 loops of order 49
14854 loops of order 64
5406 loops of order 81
84 loops of order 125
122 loops of order 343
3 loops of order p^2 for every prime p>7,
1 loop of order 2*p for every odd prime p
true
@ -233,10 +248,7 @@ gap> CodeLoop( 64, 80 );
gap> DisplayLibraryInfo("automorphic");
The library contains:
- all nonassociative automorphic loops of order less than 16,
- all commutative automorphic loops of order 3, 9, 27, 81,
- all commutative automorphic loops of order 243 that are central
extensions of Z_3 by F, where F is not the elem. ab. 3-group.
Note: Abelian groups are included among the commutative loops.
- all commutative automorphic loops of order 3, 9, 27, 81.
------
Extent of the library:
1 loop of order 3
@ -249,7 +261,6 @@ Extent of the library:
2 loops of order 15
7 loops of order 27
72 loops of order 81
118451 loops of order 243
true
gap> AutomorphicLoop(15,2);
@ -258,7 +269,24 @@ gap> AutomorphicLoop(15,2);
gap> AutomorphicLoop(27,1);
<automorphic loop 27/1>
gap> AutomorphicLoop(243,100);
<automorphic loop 243/100>
gap> AutomorphicLoop(81,10);
<automorphic loop 81/10>
# RIGHT BRUCK LOOPS
gap> DisplayLibraryInfo("right Bruck");
The library contains all right Bruck loops of orders 3, 9, 27 and 81.
------
Extent of the library:
1 loop of order 3
2 loops of order 9
7 loops of order 27
72 loops of order 81
true
gap> RightBruckLoop(81,3);
<right Bruck loop 81/3>
gap> STOP_TEST( "lib.tst", 10000000 );

12
tst/testall.g
View file

@ -2,15 +2,15 @@
##
#W testall.g Testing LOOPS G. P. Nagy / P. Vojtechovsky
##
#H @(#)$Id: testall.g, v 3.0.0 2015/06/15 gap Exp $
#H @(#)$Id: testall.g, v 3.4.0 2017/10/26 gap Exp $
##
#Y Copyright (C) 2004, G. P. Nagy (University of Szeged, Hungary),
#Y P. Vojtechovsky (University of Denver, USA)
##
dirs := DirectoriesPackageLibrary( "loops", "tst" );
ReadTest( Filename( dirs, "core_methods.tst" ) );
ReadTest( Filename( dirs, "nilpot.tst" ) );
ReadTest( Filename( dirs, "iso.tst" ) );
ReadTest( Filename( dirs, "lib.tst" ) );
ReadTest( Filename( dirs, "bol.tst" ) );
Test( Filename( dirs, "core_methods.tst" ), rec( compareFunction := "uptowhitespace" ) );
Test( Filename( dirs, "nilpot.tst" ), rec( compareFunction := "uptowhitespace" ) );
Test( Filename( dirs, "iso.tst" ), rec( compareFunction := "uptowhitespace" ) );
Test( Filename( dirs, "lib.tst" ), rec( compareFunction := "uptowhitespace" ) );
Test( Filename( dirs, "bol.tst" ), rec( compareFunction := "uptowhitespace" ) );