Akm[k_,m_]:=Piecewise[{{(Eappx3 + Eappxy2z2 + Eappxyz + Eapy3 + Eapyz2x2 + 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]*Eappx3 - Sqrt[6]*Eapy3 + Sqrt[10]*(Mappx3xy2z2 + Mapy3yz2x2 - 2*Mapz3zx2y2)))/28, k == 2 && (m == -2 || m == 2)}, {((-5*I)/56)*(4*Sqrt[10]*Mappxyzx3 + Sqrt[6]*Mapy3z3 + Sqrt[10]*Mapy3zx2y2 + 5*Sqrt[6]*Mapyz2x2zx2y2 - Sqrt[10]*Mapz3yz2x2), k == 2 && (m == -1 || m == 1)}, {(-5*(Eappx3 + Eapy3 - 2*Eapz3 - Sqrt[15]*Mappx3xy2z2 + Sqrt[15]*Mapy3yz2x2))/14, k == 2 && m == 0}, {(3*(3*Sqrt[5]*Eappx3 - 3*Sqrt[5]*Eappxy2z2 - 4*Sqrt[5]*Eappxyz + 3*Sqrt[5]*Eapy3 - 3*Sqrt[5]*Eapyz2x2 + 4*Sqrt[5]*Eapzx2y2 + 2*Sqrt[3]*Mappx3xy2z2 - 2*Sqrt[3]*Mapy3yz2x2))/(8*Sqrt[14]), k == 4 && (m == -4 || m == 4)}, {(((-3*I)/4)*(Sqrt[3]*Mappxyzx3 + Sqrt[5]*Mappxyzxy2z2 - 3*Sqrt[5]*Mapy3z3 + Sqrt[3]*Mapy3zx2y2 - Sqrt[5]*Mapyz2x2zx2y2 - 3*Sqrt[3]*Mapz3yz2x2))/Sqrt[7], k == 4 && (m == -3 || m == 3)}, {(-3*(3*Sqrt[10]*Eappx3 - 7*Sqrt[10]*Eappxy2z2 - 3*Sqrt[10]*Eapy3 + 7*Sqrt[10]*Eapyz2x2 - 2*Sqrt[6]*Mappx3xy2z2 - 2*Sqrt[6]*Mapy3yz2x2 + 4*Sqrt[6]*Mapz3zx2y2))/56, k == 4 && (m == -2 || m == 2)}, {((3*I)/28)*(Sqrt[3]*Mappxyzx3 - 7*Sqrt[5]*Mappxyzxy2z2 - 3*Sqrt[5]*Mapy3z3 + 9*Sqrt[3]*Mapy3zx2y2 - Sqrt[5]*Mapyz2x2zx2y2 + 5*Sqrt[3]*Mapz3yz2x2), k == 4 && (m == -1 || m == 1)}, {(3*(9*Eappx3 + 7*Eappxy2z2 - 28*Eappxyz + 9*Eapy3 + 7*Eapyz2x2 + 24*Eapz3 - 28*Eapzx2y2 - 2*Sqrt[15]*Mappx3xy2z2 + 2*Sqrt[15]*Mapy3yz2x2))/56, k == 4 && m == 0}, {(13*Sqrt[11/7]*(5*Sqrt[3]*Eappx3 + 3*Sqrt[3]*Eappxy2z2 - 5*Sqrt[3]*Eapy3 - 3*Sqrt[3]*Eapyz2x2 - 6*Sqrt[5]*Mappx3xy2z2 - 6*Sqrt[5]*Mapy3yz2x2))/160, k == 6 && (m == -6 || m == 6)}, {((13*I)/40)*Sqrt[11/7]*(Sqrt[15]*Mappxyzx3 - 3*Mappxyzxy2z2 - Sqrt[15]*Mapy3zx2y2 - 3*Mapyz2x2zx2y2), k == 6 && (m == -5 || m == 5)}, {(-13*(15*Eappx3 - 15*Eappxy2z2 + 24*Eappxyz + 15*Eapy3 - 15*Eapyz2x2 - 24*Eapzx2y2 + 2*Sqrt[15]*Mappx3xy2z2 - 2*Sqrt[15]*Mapy3yz2x2))/(80*Sqrt[14]), k == 6 && (m == -4 || m == 4)}, {(((-13*I)/40)*(9*Mappxyzx3 + 3*Sqrt[15]*Mappxyzxy2z2 + 2*Sqrt[15]*Mapy3z3 + 9*Mapy3zx2y2 - 3*Sqrt[15]*Mapyz2x2zx2y2 + 6*Mapz3yz2x2))/Sqrt[7], k == 6 && (m == -3 || m == 3)}, {(13*(5*Sqrt[15]*Eappx3 + 3*Sqrt[15]*Eappxy2z2 - 5*Sqrt[15]*Eapy3 - 3*Sqrt[15]*Eapyz2x2 + 34*Mappx3xy2z2 + 34*Mapy3yz2x2 + 64*Mapz3zx2y2))/(160*Sqrt[7]), k == 6 && (m == -2 || m == 2)}, {((13*I)/280)*(Sqrt[70]*Mappxyzx3 + 3*Sqrt[42]*Mappxyzxy2z2 - 5*Sqrt[42]*Mapy3z3 - 2*Sqrt[70]*Mapy3zx2y2 + 2*Sqrt[42]*Mapyz2x2zx2y2 + 5*Sqrt[70]*Mapz3yz2x2), k == 6 && (m == -1 || m == 1)}}, (-13*(25*Eappx3 + 39*Eappxy2z2 - 24*Eappxyz + 25*Eapy3 + 39*Eapyz2x2 - 80*Eapz3 - 24*Eapzx2y2 + 14*Sqrt[15]*Mappx3xy2z2 - 14*Sqrt[15]*Mapy3yz2x2))/560]