@@ -2080,22 +2080,23 @@ def QDM_19_6_1_1_1():
2080
2080
"""
2081
2081
from sage .rings .finite_rings .integer_mod_ring import IntegerModRing as AdditiveCyclic
2082
2082
M = [[None , 7 , 13 , 1 , 16 , 9 , 2 ],
2083
- [ 0 , 1 , 15 , 7 , 17 , 6 , 14 ],
2084
- [ 0 , 11 , 10 , 11 , 5 , 4 , 3 ],
2085
- [ 7 ,None , 13 , 16 , 1 , 2 , 9 ],
2086
- [ 1 , 0 , 15 , 17 , 7 , 14 , 6 ],
2087
- [ 11 , 0 , 10 , 5 , 11 , 3 , 4 ]]
2083
+ [ 0 , 1 , 15 , 7 , 17 , 6 , 14 ],
2084
+ [ 0 , 11 , 10 , 11 , 5 , 4 , 3 ],
2085
+ [ 7 ,None , 13 , 16 , 1 , 2 , 9 ],
2086
+ [ 1 , 0 , 15 , 17 , 7 , 14 , 6 ],
2087
+ [ 11 , 0 , 10 , 5 , 11 , 3 , 4 ]]
2088
2088
2089
2089
Mb = []
2090
2090
2091
2091
for R in zip (* M ):
2092
- a ,b , c , d , e , f = R
2093
- Mb .append ([a ,b , c , d , e , f ])
2094
- Mb .append ([b ,c , a , f , d , e ])
2095
- Mb .append ([c ,a , b , e , f , d ])
2092
+ a , b , c , d , e , f = R
2093
+ Mb .append ([a , b , c , d , e , f ])
2094
+ Mb .append ([b , c , a , f , d , e ])
2095
+ Mb .append ([c , a , b , e , f , d ])
2096
2096
2097
2097
return AdditiveCyclic (19 ), Mb
2098
2098
2099
+
2099
2100
def QDM_21_5_1_1_1 ():
2100
2101
r"""
2101
2102
Return a `(21,5;1,1;1)`-quasi-difference matrix.
@@ -4321,18 +4322,22 @@ def BIBD_111_6_1():
4321
4322
"""
4322
4323
from sage .sets .recursively_enumerated_set import RecursivelyEnumeratedSet
4323
4324
from .incidence_structures import IncidenceStructure
4324
- bibd = [(( 0 ,0 ), ( 1 ,0 ), ( 3 ,0 ), ( 7 ,0 ), (17 ,0 ), ( 0 ,1 )),
4325
- (( 0 ,0 ), ( 5 ,0 ), (19 ,1 ), (28 ,1 ), (10 ,2 ), (30 ,2 )),
4326
- (( 5 ,0 ), (33 ,0 ), (13 ,1 ), (34 ,1 ), (19 ,2 ), ( 7 ,2 )),
4327
- (( 9 ,0 ), (27 ,0 ), (16 ,1 ), (11 ,1 ), (12 ,2 ), (36 ,2 )),
4328
- ((10 ,0 ), (23 ,0 ), (26 ,1 ), ( 8 ,1 ), ( 1 ,2 ), ( 6 ,2 )),
4329
- ((13 ,0 ), (24 ,0 ), (19 ,1 ), (18 ,1 ), ( 5 ,2 ), (32 ,2 )),
4330
- ((26 ,0 ), (34 ,0 ), ( 1 ,1 ), ( 7 ,1 ), (10 ,2 ), (33 ,2 ))]
4331
- gens = lambda B : [frozenset (((x * 10 ) % 37 ,(y + 1 ) % 3 ) for x ,y in B ),
4332
- frozenset (((x + 1 ) % 37 , y ) for x ,y in B )]
4333
- bibd = RecursivelyEnumeratedSet ([frozenset (e ) for e in bibd ], successors = gens )
4325
+ bibd = [(( 0 , 0 ), ( 1 , 0 ), ( 3 , 0 ), ( 7 , 0 ), (17 , 0 ), ( 0 , 1 )),
4326
+ (( 0 , 0 ), ( 5 , 0 ), (19 , 1 ), (28 , 1 ), (10 , 2 ), (30 , 2 )),
4327
+ (( 5 , 0 ), (33 , 0 ), (13 , 1 ), (34 , 1 ), (19 , 2 ), ( 7 , 2 )),
4328
+ (( 9 , 0 ), (27 , 0 ), (16 , 1 ), (11 , 1 ), (12 , 2 ), (36 , 2 )),
4329
+ ((10 , 0 ), (23 , 0 ), (26 , 1 ), ( 8 , 1 ), ( 1 , 2 ), ( 6 , 2 )),
4330
+ ((13 , 0 ), (24 , 0 ), (19 , 1 ), (18 , 1 ), ( 5 , 2 ), (32 , 2 )),
4331
+ ((26 , 0 ), (34 , 0 ), ( 1 , 1 ), ( 7 , 1 ), (10 , 2 ), (33 , 2 ))]
4332
+ gens = lambda B : [frozenset (((x * 10 ) % 37 , (y + 1 ) % 3 )
4333
+ for x , y in B ),
4334
+ frozenset (((x + 1 ) % 37 , y )
4335
+ for x , y in B )]
4336
+ bibd = RecursivelyEnumeratedSet ([frozenset (e ) for e in bibd ],
4337
+ successors = gens )
4334
4338
return IncidenceStructure (bibd )._blocks
4335
4339
4340
+
4336
4341
def BIBD_126_6_1 ():
4337
4342
r"""
4338
4343
Return a (126,6,1)-BIBD.
@@ -4382,9 +4387,12 @@ def BIBD_136_6_1():
4382
4387
((0 ,0 ), (11 ,0 ), (17 ,0 ), ( 4 ,2 ), ( 5 ,2 ), (28 ,2 )),
4383
4388
((0 ,0 ), ( 1 ,0 ), ( 0 ,1 ), (16 ,1 ), ( 0 ,2 ), (31 ,2 )),
4384
4389
( inf ,( 0 ,0 ), ( 9 ,0 ), (18 ,0 ), (27 ,0 ), (36 ,0 ))]
4385
- gens = lambda B : [frozenset (((x * 16 ) % 45 ,(y + 1 ) % 3 ) if (x ,y ) != inf else inf for x ,y in B ),
4386
- frozenset (((x + 1 ) % 45 ,y ) if (x ,y ) != inf else inf for x ,y in B )]
4387
- bibd = RecursivelyEnumeratedSet ([frozenset (e ) for e in bibd ], successors = gens )
4390
+ gens = lambda B : [frozenset (((x * 16 ) % 45 ,(y + 1 ) % 3 )
4391
+ if (x , y ) != inf else inf for x , y in B ),
4392
+ frozenset (((x + 1 ) % 45 ,y )
4393
+ if (x , y ) != inf else inf for x , y in B )]
4394
+ bibd = RecursivelyEnumeratedSet ([frozenset (e ) for e in bibd ],
4395
+ successors = gens )
4388
4396
return IncidenceStructure (bibd )._blocks
4389
4397
4390
4398
@@ -4414,11 +4422,15 @@ def BIBD_141_6_1():
4414
4422
( inf ,( 0 ,0 ), ( 7 ,0 ), (14 ,0 ), (21 ,0 ), (28 ,0 )),
4415
4423
( inf ,( 0 ,a ), ( 7 ,a ), (14 ,a ), (21 ,a ), (28 ,a ))]
4416
4424
4417
- gens = lambda B : [frozenset (((x * 16 ) % 35 ,(y + 1 ) % 3 if y != a else a ) if (x ,y ) != inf else inf for x ,y in B ),
4418
- frozenset (((x + 1 ) % 35 , y ) if (x ,y ) != inf else inf for x ,y in B )]
4419
- bibd = RecursivelyEnumeratedSet ([frozenset (e ) for e in bibd ], successors = gens )
4425
+ gens = lambda B : [frozenset (((x * 16 ) % 35 , (y + 1 ) % 3 if y != a else a )
4426
+ if (x , y ) != inf else inf for x , y in B ),
4427
+ frozenset (((x + 1 ) % 35 , y )
4428
+ if (x , y ) != inf else inf for x , y in B )]
4429
+ bibd = RecursivelyEnumeratedSet ([frozenset (e ) for e in bibd ],
4430
+ successors = gens )
4420
4431
return IncidenceStructure (bibd )._blocks
4421
4432
4433
+
4422
4434
def BIBD_171_6_1 ():
4423
4435
r"""
4424
4436
Return a (171,6,1)-BIBD.
@@ -4442,11 +4454,15 @@ def BIBD_171_6_1():
4442
4454
(( 0 ,0 ), (12 ,0 ), ( 0 ,1 ), (27 ,1 ), ( 0 ,2 ), (18 ,2 )),
4443
4455
((37 ,0 ), (42 ,0 ), (31 ,1 ), ( 9 ,1 ), (46 ,2 ), ( 6 ,2 ))]
4444
4456
4445
- gens = lambda B : [frozenset (((x * 7 ) % 57 ,(y + 1 ) % 3 ) for x ,y in B ),
4446
- frozenset (((x + 1 ) % 57 , y ) for x ,y in B )]
4447
- bibd = RecursivelyEnumeratedSet ([frozenset (e ) for e in bibd ], successors = gens )
4457
+ gens = lambda B : [frozenset (((x * 7 ) % 57 , (y + 1 ) % 3 )
4458
+ for x , y in B ),
4459
+ frozenset (((x + 1 ) % 57 , y )
4460
+ for x , y in B )]
4461
+ bibd = RecursivelyEnumeratedSet ([frozenset (e ) for e in bibd ],
4462
+ successors = gens )
4448
4463
return IncidenceStructure (bibd )._blocks
4449
4464
4465
+
4450
4466
def HigmanSimsDesign ():
4451
4467
r"""
4452
4468
Return the Higman-Sims designs, which is a `(176, 50, 14)`-BIBD.
@@ -4535,11 +4551,15 @@ def BIBD_196_6_1():
4535
4551
((0 ,0 ), ( 1 ,0 ), ( 0 ,1 ), (30 ,1 ), ( 0 ,2 ), (18 ,2 )),
4536
4552
((8 ,0 ), (19 ,0 ), (44 ,1 ), (31 ,1 ), (46 ,2 ), (48 ,2 ))]
4537
4553
4538
- gens = lambda B : [frozenset (((x * 30 ) % 49 ,(y + 1 ) % 3 if y != a else a ) for x ,y in B ),
4539
- frozenset (((x + 1 ) % 49 , y ) for x ,y in B )]
4540
- bibd = RecursivelyEnumeratedSet ([frozenset (e ) for e in bibd ], successors = gens )
4554
+ gens = lambda B : [frozenset (((x * 30 ) % 49 , (y + 1 ) % 3 if y != a else a )
4555
+ for x , y in B ),
4556
+ frozenset (((x + 1 ) % 49 , y )
4557
+ for x , y in B )]
4558
+ bibd = RecursivelyEnumeratedSet ([frozenset (e ) for e in bibd ],
4559
+ successors = gens )
4541
4560
return IncidenceStructure (bibd )._blocks
4542
4561
4562
+
4543
4563
def BIBD_201_6_1 ():
4544
4564
r"""
4545
4565
Return a (201,6,1)-BIBD.
@@ -4564,11 +4584,15 @@ def BIBD_201_6_1():
4564
4584
((3 ,1 ), (20 ,1 ), (44 ,1 ), (36 ,2 ), (39 ,2 ), (59 ,2 )),
4565
4585
((0 ,0 ), ( 0 ,1 ), (30 ,1 ), (38 ,1 ), (66 ,1 ), ( 0 ,2 ))]
4566
4586
4567
- gens = lambda B : [frozenset (((x * 29 ) % 67 ,y ) for x ,y in B ),
4568
- frozenset (((x + 1 ) % 67 ,y ) for x ,y in B )]
4569
- bibd = RecursivelyEnumeratedSet ([frozenset (e ) for e in bibd ], successors = gens )
4587
+ gens = lambda B : [frozenset (((x * 29 ) % 67 , y )
4588
+ for x , y in B ),
4589
+ frozenset (((x + 1 ) % 67 , y )
4590
+ for x , y in B )]
4591
+ bibd = RecursivelyEnumeratedSet ([frozenset (e ) for e in bibd ],
4592
+ successors = gens )
4570
4593
return IncidenceStructure (bibd )._blocks
4571
4594
4595
+
4572
4596
def BIBD_79_13_2 ():
4573
4597
r"""
4574
4598
Return a symmetric `(79,13,2)`-BIBD.
0 commit comments