How to construct — based on physics-type notation — a magical simplex $\mathcal{W}$ of bipartite qutrits?
Posted by Paul B. Slater, at mathematica.stackexchange.com,
I have a short Mathematica program: S[0] = {1, 0, 0}; S[1] = {0, 1, 0}; S[2] = {0, 0, 1}; Omega[0, 0] = (1/Sqrt[3]) Sum[Kroneck…