//////// Here is 18 dim + Z^6 //////////////// //////// Here is 18 dim + Z^6 //////////////// //////// Here is 18 dim + Z^6 //////////////// //////////// E8 /////////// S:=StandardLattice(8); L:=CoordinateLattice(Neighbour(S, S![1,1,1,1,1,1,1,1],2)); E8:=L; //////////// D12 /////////// S:=StandardLattice(12); L:=CoordinateLattice(Neighbour(S, S![4,1,1,1,1,1,1,1,1,1,1,1],3)); D12:=L; //////////// E7^2 /////////// S:=StandardLattice(14); L:=CoordinateLattice(Neighbour(S, S![6,6,6,6,1,1,1,2,2,2,2,2,2,2],5)); E72:=L; //////////// A15 /////////// S:=StandardLattice(15); L:=CoordinateLattice(Neighbour(S, S![4,4,1,1,1,1,1,1,1,1,1,1,1,1,1],3)); A15:=L; //////////// E8^2 /////////// E82:=DirectSum(E8,E8); //////////// D16 /////////// S:=StandardLattice(16); L:=CoordinateLattice(Neighbour(S, S![1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1],2)); D16:=L; //////////// D8^2 /////////// S:=StandardLattice(16); L:=CoordinateLattice(Neighbour(S, S![6,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2],5)); D82:=L; ///////////// Z1:=StandardLattice(1); Z2:=StandardLattice(2); Z4:=StandardLattice(4); Z8:=StandardLattice(8); L1:=StandardLattice(16); L2:=DirectSum(E8,Z8); L3:=DirectSum(D12,Z4); L4:=DirectSum(E72,Z2); L5:=DirectSum(A15,Z1); L16:=[L1,L2,L3,L4,L5,E82,D16,D82]; ////////////////// 16 dim /////////////////// ////////////////// 16 dim /////////////////// ////////////////// 16 dim /////////////////// ////////////////// 17 dim //////////////// ////////////////// 17 dim //////////////// ////////////////// 17 dim //////////////// //////////// A11E6 /////////// S:=StandardLattice(17); L:=CoordinateLattice(Neighbour(S, S![6,6,6,6,1,1,1,1,1,1,1,2,2,2,2,2,2],5)); A11E6:=L; L17:=[DirectSum(L16[i],Z1): i in [1..#L16]] cat [A11E6]; ////////////////// 17 dim //////////////// ////////////////// 17 dim //////////////// ////////////////// 17 dim //////////////// ////////////////// 18 dim /////////////////// ////////////////// 18 dim /////////////////// ////////////////// 18 dim /////////////////// S:=StandardLattice(18); L181:=CoordinateLattice(Neighbour(S, S![1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1],3)); L182:=CoordinateLattice(Neighbour(S, S![8,8,8,8,8,1,1,1,1,1,2,3,3,3,3,3,3,3],7)); L183:=CoordinateLattice(Neighbour(S, S![8,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,3,3],7)); L184:=CoordinateLattice(Neighbour(S, S![6,6,6,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2],5)); L18:=[DirectSum(L17[i],Z1): i in [1..#L17]] cat [L181,L182,L183,L184]; L18Z6:=[DirectSum(x,StandardLattice(6)): x in L18]; ////////////////// 18 dim /////////////// ////////////////// 18 dim /////////////// ////////////////// 18 dim /////////////// //////// Here is 18 dim + Z^6 //////////////// //////// Here is 18 dim + Z^6 //////////////// //////// Here is 18 dim + Z^6 //////////////// //////// Here is 19 dim + Z^5 //////////////// //////// Here is 19 dim + Z^5 //////////////// //////// Here is 19 dim + Z^5 //////////////// ////////////////// 19 dim (min=2) /////////////////// ////////////////// 19 dim (min=2) /////////////////// ////////////////// 19 dim (min=2) /////////////////// S:=StandardLattice(19); L1:=CoordinateLattice(Neighbour(S, S![12,12,12,12,1,1,2,2,2,2,2,2,4,4,16,16,16,5,5],11)); L2:=CoordinateLattice(Neighbour(S, S![6,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2],5)); L3:=CoordinateLattice(Neighbour(S, S![8,8,8,8,8,1,1,1,2,2,2,2,2,2,3,3,3,3,3],7)); L:=[L1,L2,L3]; L19Z5:=[DirectSum(x,StandardLattice(5)): x in L]; //////// Here is 19 dim + Z^5 //////////////// //////// Here is 19 dim + Z^5 //////////////// //////// Here is 19 dim + Z^5 //////////////// //////// Here is 20 dim + Z^4 //////////////// //////// Here is 20 dim + Z^4 //////////////// //////// Here is 20 dim + Z^4 //////////////// ////////////////// 20 dim (min=2) /////////////////// ////////////////// 20 dim (min=2) /////////////////// ////////////////// 20 dim (min=2) /////////////////// S:=StandardLattice(20); L1:=CoordinateLattice(Neighbour(S, S![6,6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1],5)); L3:=CoordinateLattice(Neighbour(S, S![8,1,1,1,1,1,1,1,1,1,1,1,3,3,3,3,3,3,3,3],7)); L4:=CoordinateLattice(Neighbour(S, S![12,12,1,1,1,1,1,13,13,2,2,2,2,15,4,4,4,4,4,4],11)); L5:=CoordinateLattice(Neighbour(S, S![6,6,1,1,1,1,1,1,1,1,1,1,1,1,1,7,2,2,2,2],5)); L6:=CoordinateLattice(Neighbour(S, S![12,12,1,1,1,1,1,1,13,2,2,3,3,3,3,3,16,5,5,5],11)); L7:=CoordinateLattice(Neighbour(S, S![8,1,1,1,1,1,1,1,1,1,1,9,9,2,3,3,3,3,3,3],7)); L8:=CoordinateLattice(Neighbour(S, S![12,12,1,1,1,1,2,2,2,2,2,2,3,3,5,5,5,5,5,5],11)); L9:=CoordinateLattice(Neighbour(S, S![1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2],5)); L10:=CoordinateLattice(Neighbour(S, S![8,1,1,1,1,1,1,1,2,2,2,2,2,10,3,3,3,3,3,3],7)); L11:=CoordinateLattice(Neighbour(S, S![12,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5],11)); L12:=CoordinateLattice(Neighbour(S, S![12,12,12,1,1,1,2,2,2,2,2,3,3,3,3,16,5,5,5,5],11)); //////////// L2 /////////// S:=StandardLattice(8); E8:=CoordinateLattice(Neighbour(S,S![1,1,1,1,1,1,1,1],2)); S:=StandardLattice(12); D12:=CoordinateLattice(Neighbour(S,S![4,1,1,1,1,1,1,1,1,1,1,1],3)); L2:=DirectSum(E8,D12); //////////// L2 /////////// L:=[L1,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12]; L20Z4:=[DirectSum(x,StandardLattice(4)): x in L]; //////// Here is 20 dim + Z^4 //////////////// //////// Here is 20 dim + Z^4 //////////////// //////// Here is 20 dim + Z^4 //////////////// //////// Here is 21 dim + Z^3 //////////////// //////// Here is 21 dim + Z^3 //////////////// //////// Here is 21 dim + Z^3 //////////////// ////////////////// 21 dim (min=2) /////////////////// ////////////////// 21 dim (min=2) /////////////////// ////////////////// 21 dim (min=2) /////////////////// S:=StandardLattice(21); L1:=CoordinateLattice(Neighbour(S, S![4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1],3)); L2:=CoordinateLattice(Neighbour(S, S![8,8,1,1,1,1,1,1,1,1,1,1,1,1,10,3,3,3,3,3,3],7)); L3:=CoordinateLattice(Neighbour(S, S![8,1,1,1,1,1,1,1,1,1,1,9,2,2,2,2,2,2,2,2,3],7)); L4:=CoordinateLattice(Neighbour(S, S![6,6,6,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2],5)); L5:=CoordinateLattice(Neighbour(S, S![12,12,1,1,1,1,1,1,2,2,2,2,2,2,4,5,5,5,5,5,5],11)); L6:=CoordinateLattice(Neighbour(S, S![8,1,1,1,1,1,1,1,1,1,2,2,2,2,2,3,3,3,3,3,3],7)); L7:=CoordinateLattice(Neighbour(S, S![8,8,8,1,1,1,1,1,1,9,2,2,2,2,2,2,2,3,3,3,3],7)); L8:=CoordinateLattice(Neighbour(S, S![12,1,1,1,1,1,1,1,2,2,2,2,2,14,3,15,5,5,5,5,5],11)); L9:=CoordinateLattice(Neighbour(S, S![1,1,1,1,1,1,1,2,2,2,2,2,2,2,3,3,3,3,3,3,3],7)); L10:=CoordinateLattice(Neighbour(S, S![12,12,12,1,1,1,2,2,2,2,2,3,3,3,3,3,4,16,5,5,5],11)); L11:=CoordinateLattice(Neighbour(S, S![12,12,1,1,1,2,2,2,2,2,3,3,3,3,4,4,4,16,5,5,5],11)); L12:=CoordinateLattice(Neighbour(S, S![1,1,1,1,15,2,2,3,3,3,3,4,4,4,4,5,5,5,19,6,6],13)); ///////////// L:=[L1,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12]; L21Z3:=[DirectSum(x,StandardLattice(3)): x in L]; //////// Here is 21 dim + Z^3 //////////////// //////// Here is 21 dim + Z^3 //////////////// //////// Here is 21 dim + Z^3 //////////////// //////// Here is 22 dim + Z^2 //////////////// //////// Here is 22 dim + Z^2 //////////////// //////// Here is 22 dim + Z^2 //////////////// S:=StandardLattice(22); L1:=CoordinateLattice(Neighbour(S, S![12,12,1,1,1,1,1,1,1,1,1,1,1,1,3,5,5,5,5,5,5,5],11)); L3:=CoordinateLattice(Neighbour(S, S![12,12,12,1,1,1,1,1,1,1,2,3,3,4,4,4,4,4,4,4,4,4],11)); L4:=CoordinateLattice(Neighbour(S, S![6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2],5)); L5:=CoordinateLattice(Neighbour(S, S![12,12,12,1,1,1,1,1,1,1,3,3,3,3,3,4,4,4,4,4,4,5],11)); L6:=CoordinateLattice(Neighbour(S, S![14,14,14,14,1,1,1,1,15,2,2,2,2,3,3,18,5,5,5,5,5,5],13)); L7:=CoordinateLattice(Neighbour(S, S![8,1,1,1,1,1,1,1,1,1,1,1,1,2,2,3,3,3,3,3,3,3],7)); L8:=CoordinateLattice(Neighbour(S, S![12,1,1,1,1,1,1,1,2,2,3,3,3,3,3,3,5,5,5,5,5,5],11)); L9:=CoordinateLattice(Neighbour(S, S![6,6,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2],5)); L10:=CoordinateLattice(Neighbour(S, S![14,14,14,14,1,1,15,15,2,2,2,16,3,3,3,3,5,5,5,5,5,5],13)); L11:=CoordinateLattice(Neighbour(S, S![8,8,8,1,1,1,1,1,1,1,1,1,9,2,2,2,2,3,3,3,3,3],7)); L12:=CoordinateLattice(Neighbour(S, S![12,12,1,1,1,1,1,1,1,1,3,3,3,3,3,3,3,5,5,5,5,5],11)); L13:=CoordinateLattice(Neighbour(S, S![14,1,1,1,1,1,1,1,1,1,15,2,2,2,2,5,5,6,6,6,6,6],13)); L14:=CoordinateLattice(Neighbour(S, S![14,1,1,1,1,1,15,2,2,2,3,3,3,3,4,5,5,5,5,5,5,6],13)); L15:=CoordinateLattice(Neighbour(S, S![12,12,1,1,1,1,1,1,2,2,2,2,2,2,3,4,4,5,5,5,5,5],11)); L16:=CoordinateLattice(Neighbour(S, S![1,1,1,1,1,1,1,1,1,1,2,2,2,2,3,3,3,3,3,3,3,3],7)); L17:=CoordinateLattice(Neighbour(S, S![8,8,1,1,1,1,1,1,1,9,2,2,2,2,2,2,3,3,3,3,3,3],7)); L18:=CoordinateLattice(Neighbour(S, S![12,12,12,1,1,1,1,1,2,2,2,2,3,3,3,3,3,4,4,5,5,5],11)); L19:=CoordinateLattice(Neighbour(S, S![12,12,12,1,1,1,2,2,2,2,2,3,3,3,3,3,4,4,4,4,4,5],11)); L20:=CoordinateLattice(Neighbour(S, S![12,12,12,1,1,1,1,1,2,2,2,2,2,3,3,3,4,4,16,5,5,5],11)); L21:=CoordinateLattice(Neighbour(S, S![12,1,1,1,1,1,1,13,2,2,2,2,2,2,3,3,3,5,5,5,5,16],11)); L22:=CoordinateLattice(Neighbour(S, S![1, 1, 1, 1, 2, 2, 2, 2, 20, 3, 4, 4, 4, 4, 5, 5, 6, 7, 25, 8, 8, 8],17)); L23:=CoordinateLattice(Neighbour(S, S![1, 1, 1, 1, 1, 1, 13, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 5, 5, 5, 5],11)); L24:=CoordinateLattice(Neighbour(S, S![12, 1, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 16, 5, 5, 5, 5],11)); L25:=CoordinateLattice(Neighbour(S, S![1, 1, 1, 1, 1, 13, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 16, 5, 5],11)); L26:=CoordinateLattice(Neighbour(S, S![14, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6],13)); L27:=CoordinateLattice(Neighbour(S, S![1, 1, 1, 19, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 7, 7, 25, 8, 8],17)); L28:=CoordinateLattice(Neighbour(S, S![24,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11],23)); //// L2 ///// S:=StandardLattice(8); E8:=CoordinateLattice(Neighbour(S,S![1,1,1,1,1,1,1,1],2)); S:=StandardLattice(14); E72:=CoordinateLattice(Neighbour(S,S![6,6,6,6,1,1,1,2,2,2,2,2,2,2],5)); L2:=DirectSum(E8,E72); //// L2 ///// L:=[L1,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13,L14,L15, L16,L17,L18,L19,L20,L21,L22,L23,L24,L25,L26,L27,L28]; L22Z2:=[DirectSum(x,StandardLattice(2)): x in L]; //////// Here is 22 dim + Z^2 //////////////// //////// Here is 22 dim + Z^2 //////////////// //////// Here is 22 dim + Z^2 //////////////// //////// Here is 23 dim + Z //////////////// //////// Here is 23 dim + Z //////////////// //////// Here is 23 dim + Z //////////////// ////////////////// 23 dim (min=2,3) /////////////////// ////////////////// 23 dim (min=2,3) /////////////////// ////////////////// 23 dim (min=2,3) /////////////////// S:=StandardLattice(23); L2:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7, 7, 2, 2 ],5)); L3:=CoordinateLattice(Neighbour(S, S![ 8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 9, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2 ],7)); L4:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 13, 2, 2, 2, 2, 15, 15, 4, 4, 4, 4, 4 ],11)); L5:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 13, 2, 2, 2, 2, 2, 16, 5, 5, 5, 5, 5, 5 ],11)); L6:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 1, 15, 3, 3, 3, 3, 3, 3, 4, 19, 6, 6, 6, 6, 6 ],13)); L7:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 9, 2, 10, 3, 3, 3, 3, 3 ],7)); L8:=CoordinateLattice(Neighbour(S, S![ 12, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, 3, 16, 5, 5, 5, 5, 5 ],11)); L9:=CoordinateLattice(Neighbour(S, S![ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2 ],5)); L10:=CoordinateLattice(Neighbour(S, S![ 12, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 14, 3, 3, 3, 3, 16, 5, 5, 5 ],11)); L11:=CoordinateLattice(Neighbour(S, S![ 12, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 15, 4 ],11)); L12:=CoordinateLattice(Neighbour(S, S![ 12, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 3, 5, 5, 5, 5, 5, 5, 5 ],11)); L13:=CoordinateLattice(Neighbour(S, S![ 8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 10, 3, 3, 3, 3, 3, 3 ],7)); L14:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 9, 2, 2, 2, 2, 2, 2, 2, 2, 2, 10, 3, 3 ],7)); L15:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 21, 4, 4, 4, 4, 5, 6, 6, 25, 8, 8, 8 ],17)); L16:=CoordinateLattice(Neighbour(S, S![ 14, 1, 1, 1, 1, 1, 15, 2, 2, 2, 2, 2, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5 ],13)); L17:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 13, 2, 2, 2, 2, 2, 2, 4, 4, 4, 16, 5, 5, 5, 5 ],11)); L18:=CoordinateLattice(Neighbour(S, S![ 1,1,1,1,1,1,1,1,1,2,3,3,3,3,3,3,5,5,5,5,5,5,5 ],11)); L19:=CoordinateLattice(Neighbour(S, S![ 8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3 ],7)); L20:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 13, 2, 2, 2, 2, 3, 3, 5, 5, 5, 5, 5, 5 ],11)); L21:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 20, 4, 4, 4, 4, 4, 5, 7, 7, 25, 8, 8, 8 ],17)); L22:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 14, 3, 3, 3, 16, 5, 5, 5, 5 ],11)); L23:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 13, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 16, 5, 5, 5, 5 ],11)); L24:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 14, 3, 3, 4, 4, 4, 4, 4, 4, 5 ],11)); L25:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 14, 4, 16, 5, 5, 5, 5 ],11)); L26:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 10, 3, 3, 3, 3, 3, 3, 3 ],7)); L27:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 1, 13, 2, 2, 3, 3, 3, 3, 3, 4, 4, 5, 5, 5, 5 ],11)); L28:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 14, 3, 3, 3, 3, 3, 3, 16, 5, 5, 5 ],11)); L29:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 13, 2, 2, 2, 2, 2, 3, 3, 4, 4, 4, 5, 5, 5, 5 ],11)); L30:=CoordinateLattice(Neighbour(S, S![ 18, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 4, 4, 22, 5, 5, 5, 24, 7, 7, 7, 7 ],17)); L31:=CoordinateLattice(Neighbour(S, S![ 12, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5 ],11)); L32:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 1, 13, 2, 2, 2, 2, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5 ],11)); L33:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 21, 5, 6, 25, 8, 8, 8, 8 ],17)); L34:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 14, 3, 3, 3, 4, 16, 5, 5, 5 ],11)); L35:=CoordinateLattice(Neighbour(S, S![ 12, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 5, 5, 5, 5, 5 ],11)); L36:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 13, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5 ],11)); L37:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 1, 13, 2, 2, 2, 2, 3, 3, 3, 4, 4, 4, 4, 4, 16, 5, 5 ],11)); L38:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 2, 2, 2, 2, 20, 3, 3, 3, 4, 4, 5, 5, 5, 5, 7, 25, 8, 8, 8 ],17)); L39:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 1, 15, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 5, 19, 6 ],13)); L40:=CoordinateLattice(Neighbour(S, S![ 14, 1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 6, 6, 6, 6 ],13)); L41:=CoordinateLattice(Neighbour(S, S![ 14, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 5, 5, 5, 6, 6, 6, 6 ],13)); L42:=CoordinateLattice(Neighbour(S, S![ 1,1,1,1,1,1,2,2,2,2,2,3,3,3,4,4,4,4,5,5,5,5,5 ],11)); L43:=CoordinateLattice(Neighbour(S, S![ 14, 1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 19, 6, 6 ],13)); L44:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 1, 15, 2, 2, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 19, 6, 6 ],13)); L45:=CoordinateLattice(Neighbour(S, S![ 18, 1, 1, 1, 2, 2, 2, 3, 3, 4, 4, 4, 4, 5, 5, 6, 6, 7, 7, 7, 7, 8, 8 ],17)); L46:=CoordinateLattice(Neighbour(S, S![ 1, 1, 1, 1, 2, 2, 2, 2, 20, 3, 3, 4, 4, 4, 4, 5, 5, 5, 7, 7, 8, 8, 8 ],17)); L47:=CoordinateLattice(Neighbour(S, S![ 20, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 5, 5, 6, 6, 6, 7, 7, 8, 8, 8, 9, 9 ],19)); L48:=CoordinateLattice(Neighbour(S, S![ 1, 1, 2, 2, 3, 3, 4, 4, 34, 5, 6, 6, 7, 7, 8, 8, 9, 9, 11, 13, 13, 43, 14 ],29)); L49:=CoordinateLattice(Neighbour(S, S![ 48,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23 ],47)); //// L1 ///// S:=StandardLattice(8); E8:=CoordinateLattice(Neighbour(S,S![1,1,1,1,1,1,1,1],2)); S:=StandardLattice(15); A15:=CoordinateLattice(Neighbour(S,S![4,4,1,1,1,1,1,1,1,1,1,1,1,1,1],3)); L1:=DirectSum(E8,A15); //// L1 ///// L:=[L1,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13,L14,L15,L16,L17,L18,L19,L20, L21,L22,L23,L24,L25,L26,L27,L28,L29,L30,L31,L32,L33,L34,L35,L36,L37,L38, L39,L40,L41,L42,L43,L44,L45,L46,L47,L48,L49]; L23Z1:=[DirectSum(x,StandardLattice(1)): x in L]; //////////////////////// L24min1:=L18Z6 cat L19Z5 cat L20Z4 cat L21Z3 cat L22Z2 cat L23Z1; #L24min1;