Akm[k_,m_]:=Piecewise[{{(Eappxyz + Eappy3 + Eappyz2x2 + Eapx3 + Eapxy2z2 + Eapz3 + Eapzx2y2)/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*(-(Sqrt[6]*Eappy3) + Sqrt[6]*Eapx3 + Sqrt[10]*(Mappy3yz2x2 + Mapx3xy2z2 - 2*Mapz3zx2y2)))/28, k == 2 && (m == -2 || m == 2)}, {(-5*(4*Sqrt[10]*Mappxyzy3 - Sqrt[10]*Mapx3zx2y2 + Sqrt[6]*Mapz3x3 + Sqrt[10]*Mapz3xy2z2 + 5*Sqrt[6]*Mapzx2y2xy2z2))/56, k == 2 && m == -1}, {(-5*(Eappy3 + Eapx3 - 2*Eapz3 + Sqrt[15]*Mappy3yz2x2 - Sqrt[15]*Mapx3xy2z2))/14, k == 2 && m == 0}, {(5*(4*Sqrt[10]*Mappxyzy3 - Sqrt[10]*Mapx3zx2y2 + Sqrt[6]*Mapz3x3 + Sqrt[10]*Mapz3xy2z2 + 5*Sqrt[6]*Mapzx2y2xy2z2))/56, k == 2 && m == 1}, {(-3*(4*Sqrt[5]*Eappxyz - 3*Sqrt[5]*Eappy3 + 3*Sqrt[5]*Eappyz2x2 - 3*Sqrt[5]*Eapx3 + 3*Sqrt[5]*Eapxy2z2 - 4*Sqrt[5]*Eapzx2y2 + 2*Sqrt[3]*Mappy3yz2x2 - 2*Sqrt[3]*Mapx3xy2z2))/(8*Sqrt[14]), k == 4 && (m == -4 || m == 4)}, {(3*Sqrt[3]*Mappxyzy3 - 3*(Sqrt[5]*Mappxyzyz2x2 + Sqrt[3]*Mapx3zx2y2 + 3*Sqrt[5]*Mapz3x3 - 3*Sqrt[3]*Mapz3xy2z2 + Sqrt[5]*Mapzx2y2xy2z2))/(4*Sqrt[7]), k == 4 && m == -3}, {(3*(3*Sqrt[10]*Eappy3 - 7*Sqrt[10]*Eappyz2x2 - 3*Sqrt[10]*Eapx3 + 7*Sqrt[10]*Eapxy2z2 + 2*Sqrt[6]*Mappy3yz2x2 + 2*Sqrt[6]*Mapx3xy2z2 - 4*Sqrt[6]*Mapz3zx2y2))/56, k == 4 && (m == -2 || m == 2)}, {(3*(Sqrt[3]*Mappxyzy3 + 7*Sqrt[5]*Mappxyzyz2x2 - 9*Sqrt[3]*Mapx3zx2y2 - 3*Sqrt[5]*Mapz3x3 - 5*Sqrt[3]*Mapz3xy2z2 - Sqrt[5]*Mapzx2y2xy2z2))/28, k == 4 && m == -1}, {(-3*(28*Eappxyz - 9*Eappy3 - 7*Eappyz2x2 - 9*Eapx3 - 7*Eapxy2z2 - 24*Eapz3 + 28*Eapzx2y2 - 2*Sqrt[15]*Mappy3yz2x2 + 2*Sqrt[15]*Mapx3xy2z2))/56, k == 4 && m == 0}, {(-3*(Sqrt[3]*Mappxyzy3 + 7*Sqrt[5]*Mappxyzyz2x2 - 9*Sqrt[3]*Mapx3zx2y2 - 3*Sqrt[5]*Mapz3x3 - 5*Sqrt[3]*Mapz3xy2z2 - Sqrt[5]*Mapzx2y2xy2z2))/28, k == 4 && m == 1}, {(3*(-(Sqrt[3]*Mappxyzy3) + Sqrt[5]*Mappxyzyz2x2 + Sqrt[3]*Mapx3zx2y2 + 3*Sqrt[5]*Mapz3x3 - 3*Sqrt[3]*Mapz3xy2z2 + Sqrt[5]*Mapzx2y2xy2z2))/(4*Sqrt[7]), k == 4 && m == 3}, {(-13*Sqrt[11/7]*(5*Sqrt[3]*Eappy3 + 3*Sqrt[3]*Eappyz2x2 - 5*Sqrt[3]*Eapx3 - 3*Sqrt[3]*Eapxy2z2 + 6*Sqrt[5]*Mappy3yz2x2 + 6*Sqrt[5]*Mapx3xy2z2))/160, k == 6 && (m == -6 || m == 6)}, {(13*Sqrt[11/7]*(Sqrt[15]*Mappxyzy3 + 3*Mappxyzyz2x2 + Sqrt[15]*Mapx3zx2y2 - 3*Mapzx2y2xy2z2))/40, k == 6 && m == -5}, {(-13*(24*Eappxyz + 15*Eappy3 - 15*Eappyz2x2 + 15*Eapx3 - 15*Eapxy2z2 - 24*Eapzx2y2 - 2*Sqrt[15]*Mappy3yz2x2 + 2*Sqrt[15]*Mapx3xy2z2))/(80*Sqrt[14]), k == 6 && (m == -4 || m == 4)}, {(13*(9*Mappxyzy3 - 3*Sqrt[15]*Mappxyzyz2x2 - 9*Mapx3zx2y2 + 2*Sqrt[15]*Mapz3x3 - 6*Mapz3xy2z2 - 3*Sqrt[15]*Mapzx2y2xy2z2))/(40*Sqrt[7]), k == 6 && m == -3}, {(-13*(5*Sqrt[15]*Eappy3 + 3*Sqrt[15]*Eappyz2x2 - 5*Sqrt[15]*Eapx3 - 3*Sqrt[15]*Eapxy2z2 - 34*Mappy3yz2x2 - 34*Mapx3xy2z2 - 64*Mapz3zx2y2))/(160*Sqrt[7]), k == 6 && (m == -2 || m == 2)}, {(13*(Sqrt[70]*Mappxyzy3 - 3*Sqrt[42]*Mappxyzyz2x2 + 2*Sqrt[70]*Mapx3zx2y2 - 5*Sqrt[42]*Mapz3x3 - 5*Sqrt[70]*Mapz3xy2z2 + 2*Sqrt[42]*Mapzx2y2xy2z2))/280, k == 6 && m == -1}, {(13*(24*Eappxyz - 25*Eappy3 - 39*Eappyz2x2 - 25*Eapx3 - 39*Eapxy2z2 + 80*Eapz3 + 24*Eapzx2y2 + 14*Sqrt[15]*Mappy3yz2x2 - 14*Sqrt[15]*Mapx3xy2z2))/560, k == 6 && m == 0}, {(-13*(Sqrt[70]*Mappxyzy3 - 3*Sqrt[42]*Mappxyzyz2x2 + 2*Sqrt[70]*Mapx3zx2y2 - 5*Sqrt[42]*Mapz3x3 - 5*Sqrt[70]*Mapz3xy2z2 + 2*Sqrt[42]*Mapzx2y2xy2z2))/280, k == 6 && m == 1}, {(-13*(9*Mappxyzy3 - 3*Sqrt[15]*Mappxyzyz2x2 - 9*Mapx3zx2y2 + 2*Sqrt[15]*Mapz3x3 - 6*Mapz3xy2z2 - 3*Sqrt[15]*Mapzx2y2xy2z2))/(40*Sqrt[7]), k == 6 && m == 3}}, (-13*Sqrt[11/7]*(Sqrt[15]*Mappxyzy3 + 3*Mappxyzyz2x2 + Sqrt[15]*Mapx3zx2y2 - 3*Mapzx2y2xy2z2))/40]