Akm[k_,m_]:=Piecewise[{{(Efx3fx3 + Efxy2z2fxy2z2 + Efxyzfxyz + Efy3fy3 + Efyz2x2fyz2x2 + Efz3fz3 + Efzx2y2fzx2y2)/7, k == 0 && m == 0}, {0, (k != 2 && k != 4 && k != 6) || (k != 4 && k != 6 && m != -2 && m != -1 && m != 0 && m != 1 && m != 2) || (k != 6 && m != -4 && m != -3 && m != -2 && m != -1 && m != 0 && m != 1 && m != 2 && m != 3 && m != 4) || (m != -6 && m != -5 && m != -4 && m != -3 && m != -2 && m != -1 && m != 0 && m != 1 && m != 2 && m != 3 && m != 4 && m != 5 && m != 6)}, {(5*((-I)*(Sqrt[6]*Efx3fy3 + Sqrt[10]*Efx3fyz2x2 + 5*Sqrt[6]*Efxy2z2fyz2x2 + 4*Sqrt[10]*Efxyzfz3 - Sqrt[10]*Efy3fxy2z2) + 2*(Sqrt[6]*Efx3fx3 + Sqrt[10]*Efx3fxy2z2 - Sqrt[6]*Efy3fy3 + Sqrt[10]*Efy3fyz2x2 - 2*Sqrt[10]*Efz3fzx2y2)))/56, k == 2 && m == -2}, {(5*(-(Sqrt[6]*Efx3fz3) + Sqrt[10]*Efx3fzx2y2 - 5*Sqrt[6]*Efxy2z2fzx2y2 - 4*Sqrt[10]*Efxyzfy3 - Sqrt[10]*Efz3fxy2z2 - I*(4*Sqrt[10]*Efxyzfx3 + Sqrt[6]*Efy3fz3 + Sqrt[10]*Efy3fzx2y2 + 5*Sqrt[6]*Efyz2x2fzx2y2 - Sqrt[10]*Efz3fyz2x2)))/56, k == 2 && m == -1}, {(-5*(Efx3fx3 - Sqrt[15]*Efx3fxy2z2 + Efy3fy3 + Sqrt[15]*Efy3fyz2x2 - 2*Efz3fz3))/14, k == 2 && m == 0}, {(5*(Sqrt[6]*Efx3fz3 - Sqrt[10]*Efx3fzx2y2 + 5*Sqrt[6]*Efxy2z2fzx2y2 + 4*Sqrt[10]*Efxyzfy3 + Sqrt[10]*Efz3fxy2z2 - I*(4*Sqrt[10]*Efxyzfx3 + Sqrt[6]*Efy3fz3 + Sqrt[10]*Efy3fzx2y2 + 5*Sqrt[6]*Efyz2x2fzx2y2 - Sqrt[10]*Efz3fyz2x2)))/56, k == 2 && m == 1}, {(5*(I*(Sqrt[6]*Efx3fy3 + Sqrt[10]*Efx3fyz2x2 + 5*Sqrt[6]*Efxy2z2fyz2x2 + 4*Sqrt[10]*Efxyzfz3 - Sqrt[10]*Efy3fxy2z2) + 2*(Sqrt[6]*Efx3fx3 + Sqrt[10]*Efx3fxy2z2 - Sqrt[6]*Efy3fy3 + Sqrt[10]*Efy3fyz2x2 - 2*Sqrt[10]*Efz3fzx2y2)))/56, k == 2 && m == 2}, {(3*(3*Sqrt[5]*Efx3fx3 + 2*Sqrt[3]*Efx3fxy2z2 - (8*I)*Sqrt[3]*Efx3fyz2x2 - 3*Sqrt[5]*Efxy2z2fxy2z2 - 4*Sqrt[5]*Efxyzfxyz + (8*I)*Sqrt[5]*Efxyzfzx2y2 - (8*I)*Sqrt[3]*Efy3fxy2z2 + 3*Sqrt[5]*Efy3fy3 - 2*Sqrt[3]*Efy3fyz2x2 - 3*Sqrt[5]*Efyz2x2fyz2x2 + 4*Sqrt[5]*Efzx2y2fzx2y2))/(8*Sqrt[14]), k == 4 && m == -4}, {(-3*(3*Sqrt[5]*Efx3fz3 + Sqrt[3]*Efx3fzx2y2 + Sqrt[5]*Efxy2z2fzx2y2 + I*Sqrt[3]*Efxyzfx3 + I*Sqrt[5]*Efxyzfxy2z2 - Sqrt[3]*Efxyzfy3 + Sqrt[5]*Efxyzfyz2x2 - (3*I)*Sqrt[5]*Efy3fz3 + I*Sqrt[3]*Efy3fzx2y2 - I*Sqrt[5]*Efyz2x2fzx2y2 - 3*Sqrt[3]*Efz3fxy2z2 - (3*I)*Sqrt[3]*Efz3fyz2x2))/(4*Sqrt[7]), k == 4 && m == -3}, {(3*(-3*Sqrt[10]*Efx3fx3 + 2*Sqrt[6]*Efx3fxy2z2 + 7*Sqrt[10]*Efxy2z2fxy2z2 + (4*I)*(3*Sqrt[10]*Efx3fy3 - 2*Sqrt[6]*Efx3fyz2x2 + Sqrt[10]*Efxy2z2fyz2x2 - Sqrt[6]*Efxyzfz3 + 2*Sqrt[6]*Efy3fxy2z2) + 3*Sqrt[10]*Efy3fy3 + 2*Sqrt[6]*Efy3fyz2x2 - 7*Sqrt[10]*Efyz2x2fyz2x2 - 4*Sqrt[6]*Efz3fzx2y2))/56, k == 4 && m == -2}, {(3*(-3*Sqrt[5]*Efx3fz3 - 9*Sqrt[3]*Efx3fzx2y2 - Sqrt[5]*Efxy2z2fzx2y2 + Sqrt[3]*Efxyzfy3 + 7*Sqrt[5]*Efxyzfyz2x2 - 5*Sqrt[3]*Efz3fxy2z2 + I*(Sqrt[3]*Efxyzfx3 - 7*Sqrt[5]*Efxyzfxy2z2 - 3*Sqrt[5]*Efy3fz3 + 9*Sqrt[3]*Efy3fzx2y2 - Sqrt[5]*Efyz2x2fzx2y2 + 5*Sqrt[3]*Efz3fyz2x2)))/28, k == 4 && m == -1}, {(3*(9*Efx3fx3 - 2*Sqrt[15]*Efx3fxy2z2 + 7*Efxy2z2fxy2z2 - 28*Efxyzfxyz + 9*Efy3fy3 + 2*Sqrt[15]*Efy3fyz2x2 + 7*Efyz2x2fyz2x2 + 24*Efz3fz3 - 28*Efzx2y2fzx2y2))/56, k == 4 && m == 0}, {(3*(3*Sqrt[5]*Efx3fz3 + 9*Sqrt[3]*Efx3fzx2y2 + Sqrt[5]*Efxy2z2fzx2y2 - Sqrt[3]*Efxyzfy3 - 7*Sqrt[5]*Efxyzfyz2x2 + 5*Sqrt[3]*Efz3fxy2z2 + I*(Sqrt[3]*Efxyzfx3 - 7*Sqrt[5]*Efxyzfxy2z2 - 3*Sqrt[5]*Efy3fz3 + 9*Sqrt[3]*Efy3fzx2y2 - Sqrt[5]*Efyz2x2fzx2y2 + 5*Sqrt[3]*Efz3fyz2x2)))/28, k == 4 && m == 1}, {(3*(-3*Sqrt[10]*Efx3fx3 + 2*Sqrt[6]*Efx3fxy2z2 + 7*Sqrt[10]*Efxy2z2fxy2z2 - (4*I)*(3*Sqrt[10]*Efx3fy3 - 2*Sqrt[6]*Efx3fyz2x2 + Sqrt[10]*Efxy2z2fyz2x2 - Sqrt[6]*Efxyzfz3 + 2*Sqrt[6]*Efy3fxy2z2) + 3*Sqrt[10]*Efy3fy3 + 2*Sqrt[6]*Efy3fyz2x2 - 7*Sqrt[10]*Efyz2x2fyz2x2 - 4*Sqrt[6]*Efz3fzx2y2))/56, k == 4 && m == 2}, {(3*(3*Sqrt[5]*Efx3fz3 + Sqrt[3]*Efx3fzx2y2 + Sqrt[5]*Efxy2z2fzx2y2 - Sqrt[3]*Efxyzfy3 + Sqrt[5]*Efxyzfyz2x2 - 3*Sqrt[3]*Efz3fxy2z2 - I*(Sqrt[3]*Efxyzfx3 + Sqrt[5]*Efxyzfxy2z2 - 3*Sqrt[5]*Efy3fz3 + Sqrt[3]*Efy3fzx2y2 - Sqrt[5]*Efyz2x2fzx2y2 - 3*Sqrt[3]*Efz3fyz2x2)))/(4*Sqrt[7]), k == 4 && m == 3}, {(3*(3*Sqrt[5]*Efx3fx3 + 2*Sqrt[3]*Efx3fxy2z2 + (8*I)*Sqrt[3]*Efx3fyz2x2 - 3*Sqrt[5]*Efxy2z2fxy2z2 - 4*Sqrt[5]*Efxyzfxyz - (8*I)*Sqrt[5]*Efxyzfzx2y2 + (8*I)*Sqrt[3]*Efy3fxy2z2 + 3*Sqrt[5]*Efy3fy3 - 2*Sqrt[3]*Efy3fyz2x2 - 3*Sqrt[5]*Efyz2x2fyz2x2 + 4*Sqrt[5]*Efzx2y2fzx2y2))/(8*Sqrt[14]), k == 4 && m == 4}, {(13*Sqrt[11/7]*(5*Sqrt[3]*Efx3fx3 - 6*Sqrt[5]*Efx3fxy2z2 - (10*I)*Sqrt[3]*Efx3fy3 - (6*I)*Sqrt[5]*Efx3fyz2x2 + 3*Sqrt[3]*Efxy2z2fxy2z2 + (6*I)*Sqrt[3]*Efxy2z2fyz2x2 + (6*I)*Sqrt[5]*Efy3fxy2z2 - 5*Sqrt[3]*Efy3fy3 - 6*Sqrt[5]*Efy3fyz2x2 - 3*Sqrt[3]*Efyz2x2fyz2x2))/160, k == 6 && m == -6}, {(13*Sqrt[11/7]*(Sqrt[15]*Efx3fzx2y2 - 3*Efxy2z2fzx2y2 + I*Sqrt[15]*Efxyzfx3 - (3*I)*Efxyzfxy2z2 + Sqrt[15]*Efxyzfy3 + 3*Efxyzfyz2x2 - I*Sqrt[15]*Efy3fzx2y2 - (3*I)*Efyz2x2fzx2y2))/40, k == 6 && m == -5}, {(-13*(15*Efx3fx3 + 2*Sqrt[15]*Efx3fxy2z2 - (8*I)*Sqrt[15]*Efx3fyz2x2 - 15*Efxy2z2fxy2z2 + 24*Efxyzfxyz - (48*I)*Efxyzfzx2y2 - (8*I)*Sqrt[15]*Efy3fxy2z2 + 15*Efy3fy3 - 2*Sqrt[15]*Efy3fyz2x2 - 15*Efyz2x2fyz2x2 - 24*Efzx2y2fzx2y2))/(80*Sqrt[14]), k == 6 && m == -4}, {(13*(2*Sqrt[15]*Efx3fz3 - 9*Efx3fzx2y2 - 3*Sqrt[15]*Efxy2z2fzx2y2 - (9*I)*Efxyzfx3 - (3*I)*Sqrt[15]*Efxyzfxy2z2 + 9*Efxyzfy3 - 3*Sqrt[15]*Efxyzfyz2x2 - (2*I)*Sqrt[15]*Efy3fz3 - (9*I)*Efy3fzx2y2 + (3*I)*Sqrt[15]*Efyz2x2fzx2y2 - 6*Efz3fxy2z2 - (6*I)*Efz3fyz2x2))/(40*Sqrt[7]), k == 6 && m == -3}, {(13*(5*Sqrt[15]*Efx3fx3 + 34*Efx3fxy2z2 + (2*I)*Sqrt[15]*Efx3fy3 - (26*I)*Efx3fyz2x2 + 3*Sqrt[15]*Efxy2z2fxy2z2 - (14*I)*Sqrt[15]*Efxy2z2fyz2x2 + (64*I)*Efxyzfz3 + (26*I)*Efy3fxy2z2 - 5*Sqrt[15]*Efy3fy3 + 34*Efy3fyz2x2 - 3*Sqrt[15]*Efyz2x2fyz2x2 + 64*Efz3fzx2y2))/(160*Sqrt[7]), k == 6 && m == -2}, {(13*(-5*Sqrt[42]*Efx3fz3 + 2*Sqrt[70]*Efx3fzx2y2 + 2*Sqrt[42]*Efxy2z2fzx2y2 + Sqrt[70]*Efxyzfy3 - 3*Sqrt[42]*Efxyzfyz2x2 - 5*Sqrt[70]*Efz3fxy2z2 + I*(Sqrt[70]*Efxyzfx3 + 3*Sqrt[42]*Efxyzfxy2z2 - 5*Sqrt[42]*Efy3fz3 - 2*Sqrt[70]*Efy3fzx2y2 + 2*Sqrt[42]*Efyz2x2fzx2y2 + 5*Sqrt[70]*Efz3fyz2x2)))/280, k == 6 && m == -1}, {(-13*(25*Efx3fx3 + 14*Sqrt[15]*Efx3fxy2z2 + 39*Efxy2z2fxy2z2 - 24*Efxyzfxyz + 25*Efy3fy3 - 14*Sqrt[15]*Efy3fyz2x2 + 39*Efyz2x2fyz2x2 - 80*Efz3fz3 - 24*Efzx2y2fzx2y2))/560, k == 6 && m == 0}, {(13*(5*Sqrt[42]*Efx3fz3 - 2*Sqrt[70]*Efx3fzx2y2 - 2*Sqrt[42]*Efxy2z2fzx2y2 - Sqrt[70]*Efxyzfy3 + 3*Sqrt[42]*Efxyzfyz2x2 + 5*Sqrt[70]*Efz3fxy2z2 + I*(Sqrt[70]*Efxyzfx3 + 3*Sqrt[42]*Efxyzfxy2z2 - 5*Sqrt[42]*Efy3fz3 - 2*Sqrt[70]*Efy3fzx2y2 + 2*Sqrt[42]*Efyz2x2fzx2y2 + 5*Sqrt[70]*Efz3fyz2x2)))/280, k == 6 && m == 1}, {(13*(5*Sqrt[15]*Efx3fx3 + 34*Efx3fxy2z2 - (2*I)*Sqrt[15]*Efx3fy3 + (26*I)*Efx3fyz2x2 + 3*Sqrt[15]*Efxy2z2fxy2z2 + (14*I)*Sqrt[15]*Efxy2z2fyz2x2 - (64*I)*Efxyzfz3 - (26*I)*Efy3fxy2z2 - 5*Sqrt[15]*Efy3fy3 + 34*Efy3fyz2x2 - 3*Sqrt[15]*Efyz2x2fyz2x2 + 64*Efz3fzx2y2))/(160*Sqrt[7]), k == 6 && m == 2}, {(-13*(2*Sqrt[15]*Efx3fz3 - 9*Efx3fzx2y2 - 3*Sqrt[15]*Efxy2z2fzx2y2 + (9*I)*Efxyzfx3 + (3*I)*Sqrt[15]*Efxyzfxy2z2 + 9*Efxyzfy3 - 3*Sqrt[15]*Efxyzfyz2x2 + (2*I)*Sqrt[15]*Efy3fz3 + (9*I)*Efy3fzx2y2 - (3*I)*Sqrt[15]*Efyz2x2fzx2y2 - 6*Efz3fxy2z2 + (6*I)*Efz3fyz2x2))/(40*Sqrt[7]), k == 6 && m == 3}, {(-13*(15*Efx3fx3 + 2*Sqrt[15]*Efx3fxy2z2 + (8*I)*Sqrt[15]*Efx3fyz2x2 - 15*Efxy2z2fxy2z2 + 24*Efxyzfxyz + (48*I)*Efxyzfzx2y2 + (8*I)*Sqrt[15]*Efy3fxy2z2 + 15*Efy3fy3 - 2*Sqrt[15]*Efy3fyz2x2 - 15*Efyz2x2fyz2x2 - 24*Efzx2y2fzx2y2))/(80*Sqrt[14]), k == 6 && m == 4}, {(-13*Sqrt[11/7]*(Sqrt[15]*Efx3fzx2y2 - 3*Efxy2z2fzx2y2 - I*Sqrt[15]*Efxyzfx3 + (3*I)*Efxyzfxy2z2 + Sqrt[15]*Efxyzfy3 + 3*Efxyzfyz2x2 + I*Sqrt[15]*Efy3fzx2y2 + (3*I)*Efyz2x2fzx2y2))/40, k == 6 && m == 5}}, (13*Sqrt[11/7]*(5*Sqrt[3]*Efx3fx3 - 6*Sqrt[5]*Efx3fxy2z2 + (10*I)*Sqrt[3]*Efx3fy3 + (6*I)*Sqrt[5]*Efx3fyz2x2 + 3*Sqrt[3]*Efxy2z2fxy2z2 - (6*I)*Sqrt[3]*Efxy2z2fyz2x2 - (6*I)*Sqrt[5]*Efy3fxy2z2 - 5*Sqrt[3]*Efy3fy3 - 6*Sqrt[5]*Efy3fyz2x2 - 3*Sqrt[3]*Efyz2x2fyz2x2))/160]