reset data Codewords_vec; reset data Codewords_fgh; let index := 0; for{master in 1..1344} for{slave in 1..1344, (g1,g2,g3,g4,g5,g6) in Codewords[master,slave]} { let index := index + 1; let Codewords_vec[master,index,1] := g1; let Codewords_vec[master,index,2] := g2; let Codewords_vec[master,index,3] := g3; let Codewords_vec[master,index,4] := g4; let Codewords_vec[master,index,5] := g5; let Codewords_vec[master,index,6] := g6; } for{master in 1..1,slave_g in 1..1680} { printf "%d",slave_g; reset data f,g; for{i in 1..6} { let f[i] := codes6vec[master,i]; let g[i] := Codewords_vec[master,slave_g,i]; } for{slave_h in slave_g+1..1680} { reset data h; for{i in 1..6} { let h[i] := Codewords_vec[master,slave_h,i]; } if forall{i in 1..6,j in i+1..6} op_xor[ op_reverse[g[i],g[j]], op_reverse[h[i],h[j]] ] != 0 then ; else continue; printf "."; if forall{i in 1..6, j in i+1..6, k in j+1..6} # for any three op_xor[ op_reverse[ op_xor[op_reverse[g[i],g[j]],11], op_xor[op_reverse[g[i],g[k]],11] ], op_reverse[ op_xor[op_reverse[h[i],h[j]],11], op_xor[op_reverse[h[i],h[k]],11] ] ] != 0 then ; else continue; printf "+"; let Codewords_fgh := Codewords_fgh union {(master,slave_g,slave_h)}; } printf "\n"; } display Codewords_fgh > a23_3-out-Codewords_fgh.txt; close a23_3-out-Codewords_fgh.txt; display card(Codewords_fgh); end;