Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- For[i = 1, i <= 8, i++,
- For[j = 1, j <= 8, j++,
- For[k = 1, k <= 8, k++,
- If[SU3f[i, j, k] == 0,
- If[Sum[SU3f[l, r, n]*M[[i, l]]*M[[j, r]]*M[[k, n]], {l, 1, 8}, {r,
- 1, 8}, {n, 1, 8}] == 0, B = B + 1]]]]]
Add Comment
Please, Sign In to add comment