Hola fortuna,
La reducida que me interesa es la de 31 dobles N-1, pero no me funciona el intento de macro..
For t0 = 0 To 1
For t1 = 0 To 1
For t2 = 0 To 1
For t3 = 0 To 1
For t4 = 0 To 1
For t5 = 0 To 1
For t6 = 0 To 1
For t7 = 0 To 1
For t8 = 0 To 1
For t9 = 0 To 1
For t10 = 0 To 1
For t11 = 0 To 1
For t12 = 0 To 1
For t13 = 0 To 1
For t14 = 0 To 1
For t15 = 0 To 1
For t16 = 0 To 1
For t17 = 0 To 1
For t18 = 0 To 1
For t19 = 0 To 1
For t20 = 0 To 1
For t21 = 0 To 1
For t22 = 0 To 1
For t23 = 0 To 1
For t24 = 0 To 1
For t25 = 0 To 1
tr0 = (M(0, 0) * t0 + M(0, 1) * t1 + M(0, 2) * t2 + M(0, 3) * t3 + M(0, 4) * t4 + M(0, 5) * t5 + M(0, 6) * t6 + M(0, 7) * t7 + M(0,
* t8 + M(0, 9) * t9) + M(0, 10) * t10) + M(0, 11) * t11) + M(0, 12) * t12) + M(0, 13) * t13) + M(0, 14) * t14) + M(0, 15) * t15) + M(0, 16) * t16) + M(0, 17) * t17) + M(0, 18) * t18) + M(0, 19) * t19) + M(0, 20) * t20) + M(0, 21) * t21) + M(0, 22) * t22) + M(0, 23) * t23) + M(0, 24) * t24) + M(0, 25) * t25) Mod 2
tr1 = (M(1, 0) * t0 + M(1, 1) * t1 + M(1, 2) * t2 + M(1, 3) * t3 + M(1, 4) * t4 + M(1, 5) * t5 + M(1, 6) * t6 + M(1, 7) * t7 + M(1,
* t8 + M(1, 9) * t9) + M(1, 10) * t10) + M(1, 11) * t11) + M(1, 12) * t12) + M(1, 13) * t13) + M(1, 14) * t14) + M(1, 15) * t15) + M(1, 16) * t16) + M(1, 17) * t17) + M(1, 18) * t18) + M(1, 19) * t19) + M(1, 20) * t20) + M(1, 21) * t21) + M(1, 22) * t22) + M(1, 23) * t23) + M(1, 24) * t24) + M(1, 25) * t25) Mod 2
tr2 = (M(2, 0) * t0 + M(2, 1) * t1 + M(2, 2) * t2 + M(2, 3) * t3 + M(2, 4) * t4 + M(2, 5) * t5 + M(2, 6) * t6 + M(2, 7) * t7 + M(2,
* t8 + M(2, 9) * t9) + M(2, 10) * t10) + M(2, 11) * t11) + M(2, 12) * t12) + M(2, 13) * t13) + M(2, 14) * t14) + M(2, 15) * t15) + M(2, 16) * t16) + M(2, 17) * t17) + M(2, 18) * t18) + M(2, 19) * t19) + M(2, 20) * t20) + M(2, 21) * t21) + M(2, 22) * t22) + M(2, 23) * t23) + M(2, 24) * t24) + M(2, 25) * t25) Mod 2
tr3 = (M(3, 0) * t0 + M(3, 1) * t1 + M(3, 2) * t2 + M(3, 3) * t3 + M(3, 4) * t4 + M(3, 5) * t5 + M(3, 6) * t6 + M(3, 7) * t7 + M(3,
* t8 + M(3, 9) * t9) + M(3, 10) * t10) + M(3, 11) * t11) + M(3, 12) * t12) + M(3, 13) * t13) + M(3, 14) * t14) + M(3, 15) * t15) + M(3, 16) * t16) + M(3, 17) * t17) + M(3, 18) * t18) + M(3, 19) * t19) + M(3, 20) * t20) + M(3, 21) * t21) + M(3, 22) * t22) + M(3, 23) * t23) + M(3, 24) * t24) + M(3, 25) * t25) Mod 2
tr4 = (M(4, 0) * t0 + M(4, 1) * t1 + M(4, 2) * t2 + M(4, 3) * t3 + M(4, 4) * t4 + M(4, 5) * t5 + M(4, 6) * t6 + M(4, 7) * t7 + M(4,
* t8 + M(4, 9) * t9) + M(4, 10) * t10) + M(4, 11) * t11) + M(4, 12) * t12) + M(4, 13) * t13) + M(4, 14) * t14) + M(4, 15) * t15) + M(4, 16) * t16) + M(4, 17) * t17) + M(4, 18) * t18) + M(4, 19) * t19) + M(4, 20) * t20) + M(4, 21) * t21) + M(4, 22) * t22) + M(4, 23) * t23) + M(4, 24) * t24) + M(4, 25) * t25) Mod 2
columna = Q(t0) & Q(t1) & Q(t2) & Q(t3) & Q(t4) & Q(t5) & Q(t6) & Q(t7) & Q(t8) & Q(t9) & Q(t10) & Q(t11) & Q(t12) & Q(t13) & Q(t14) & Q(t15) & Q(t16) & Q(t17) & Q(t18) & Q(t19) & Q(t20) & Q(t21) & Q(t22) & Q(t23) & Q(t24) & Q(t25) & Q(tr0) & Q(tr1) & Q(tr2) & Q(tr3) & Q(tr4)
End If
Print #1, columna
'Print #1, Q(t0); Q(t1); Q(t2); Q(t3); Q(t4); Q(t5); Q(t6); Q(t7); Q(t8); Q(t9); Q(t10); Q(t11); Q(t12); Q(t13); Q(t14); Q(t15); Q(t16); Q(t17); Q(t18); Q(t19); Q(t20); Q(t21); Q(t22); Q(t23); Q(t24); Q(t25); Q(tr1); Q(tr2); Q(tr3); Q(tr4)
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Close #1
Saludos