Akm[k_,m_]:=Piecewise[{{(Eax3 + Eaxy2z2 + Eay3 + Eayz2x2 + Ebxyz + Ebz3 + Ebzx2y2)/7, k == 0 && m == 0}, {0, (k != 6 && (((k != 2 || (m != -2 && m != 0 && m != 2)) && k != 4) || (m != -4 && m != -2 && m != 0 && m != 2 && m != 4))) || (m != -6 && m != -4 && m != -2 && m != 0 && m != 2 && m != 4 && m != 6)}, {(5*((-I)*(Sqrt[6]*Max3y3 + Sqrt[10]*Max3yz2x2 + 5*Sqrt[6]*Maxy2z2yz2x2 - Sqrt[10]*May3xy2z2 + 4*Sqrt[10]*Mbxyzz3) + 2*(Sqrt[6]*Eax3 - Sqrt[6]*Eay3 + Sqrt[10]*(Max3xy2z2 + May3yz2x2 - 2*Mbz3zx2y2))))/56, k == 2 && m == -2}, {(-5*(Eax3 + Eay3 - 2*Ebz3 - Sqrt[15]*Max3xy2z2 + Sqrt[15]*May3yz2x2))/14, k == 2 && m == 0}, {(5*(I*(Sqrt[6]*Max3y3 + Sqrt[10]*Max3yz2x2 + 5*Sqrt[6]*Maxy2z2yz2x2 - Sqrt[10]*May3xy2z2 + 4*Sqrt[10]*Mbxyzz3) + 2*(Sqrt[6]*Eax3 - Sqrt[6]*Eay3 + Sqrt[10]*(Max3xy2z2 + May3yz2x2 - 2*Mbz3zx2y2))))/56, k == 2 && m == 2}, {(3*(3*Sqrt[5]*Eax3 - 3*Sqrt[5]*Eaxy2z2 + 3*Sqrt[5]*Eay3 - 3*Sqrt[5]*Eayz2x2 - 4*Sqrt[5]*Ebxyz + 4*Sqrt[5]*Ebzx2y2 + 2*Sqrt[3]*Max3xy2z2 - (8*I)*Sqrt[3]*Max3yz2x2 - (8*I)*Sqrt[3]*May3xy2z2 - 2*Sqrt[3]*May3yz2x2 + (8*I)*Sqrt[5]*Mbxyzzx2y2))/(8*Sqrt[14]), k == 4 && m == -4}, {(3*(-3*Sqrt[10]*Eax3 + 7*Sqrt[10]*Eaxy2z2 + 3*Sqrt[10]*Eay3 - 7*Sqrt[10]*Eayz2x2 + 2*Sqrt[6]*Max3xy2z2 + 2*Sqrt[6]*May3yz2x2 + (4*I)*(3*Sqrt[10]*Max3y3 - 2*Sqrt[6]*Max3yz2x2 + Sqrt[10]*Maxy2z2yz2x2 + 2*Sqrt[6]*May3xy2z2 - Sqrt[6]*Mbxyzz3) - 4*Sqrt[6]*Mbz3zx2y2))/56, k == 4 && m == -2}, {(3*(9*Eax3 + 7*Eaxy2z2 + 9*Eay3 + 7*Eayz2x2 - 28*Ebxyz + 24*Ebz3 - 28*Ebzx2y2 - 2*Sqrt[15]*Max3xy2z2 + 2*Sqrt[15]*May3yz2x2))/56, k == 4 && m == 0}, {(3*(-3*Sqrt[10]*Eax3 + 7*Sqrt[10]*Eaxy2z2 + 3*Sqrt[10]*Eay3 - 7*Sqrt[10]*Eayz2x2 + 2*Sqrt[6]*Max3xy2z2 + 2*Sqrt[6]*May3yz2x2 - (4*I)*(3*Sqrt[10]*Max3y3 - 2*Sqrt[6]*Max3yz2x2 + Sqrt[10]*Maxy2z2yz2x2 + 2*Sqrt[6]*May3xy2z2 - Sqrt[6]*Mbxyzz3) - 4*Sqrt[6]*Mbz3zx2y2))/56, k == 4 && m == 2}, {(3*(3*Sqrt[5]*Eax3 - 3*Sqrt[5]*Eaxy2z2 + 3*Sqrt[5]*Eay3 - 3*Sqrt[5]*Eayz2x2 - 4*Sqrt[5]*Ebxyz + 4*Sqrt[5]*Ebzx2y2 + 2*Sqrt[3]*Max3xy2z2 + (8*I)*Sqrt[3]*Max3yz2x2 + (8*I)*Sqrt[3]*May3xy2z2 - 2*Sqrt[3]*May3yz2x2 - (8*I)*Sqrt[5]*Mbxyzzx2y2))/(8*Sqrt[14]), k == 4 && m == 4}, {(13*Sqrt[11/7]*(5*Sqrt[3]*Eax3 + 3*Sqrt[3]*Eaxy2z2 - 5*Sqrt[3]*Eay3 - 3*Sqrt[3]*Eayz2x2 - 6*Sqrt[5]*Max3xy2z2 - (10*I)*Sqrt[3]*Max3y3 - (6*I)*Sqrt[5]*Max3yz2x2 + (6*I)*Sqrt[3]*Maxy2z2yz2x2 + (6*I)*Sqrt[5]*May3xy2z2 - 6*Sqrt[5]*May3yz2x2))/160, k == 6 && m == -6}, {(-13*(15*Eax3 - 15*Eaxy2z2 + 15*Eay3 - 15*Eayz2x2 + 24*Ebxyz - 24*Ebzx2y2 + 2*Sqrt[15]*Max3xy2z2 - (8*I)*Sqrt[15]*Max3yz2x2 - (8*I)*Sqrt[15]*May3xy2z2 - 2*Sqrt[15]*May3yz2x2 - (48*I)*Mbxyzzx2y2))/(80*Sqrt[14]), k == 6 && m == -4}, {(13*(5*Sqrt[15]*Eax3 + 3*Sqrt[15]*Eaxy2z2 - 5*Sqrt[15]*Eay3 - 3*Sqrt[15]*Eayz2x2 + 34*Max3xy2z2 + (2*I)*Sqrt[15]*Max3y3 - (26*I)*Max3yz2x2 - (14*I)*Sqrt[15]*Maxy2z2yz2x2 + (26*I)*May3xy2z2 + 34*May3yz2x2 + (64*I)*Mbxyzz3 + 64*Mbz3zx2y2))/(160*Sqrt[7]), k == 6 && m == -2}, {(-13*(25*Eax3 + 39*Eaxy2z2 + 25*Eay3 + 39*Eayz2x2 - 24*Ebxyz - 80*Ebz3 - 24*Ebzx2y2 + 14*Sqrt[15]*Max3xy2z2 - 14*Sqrt[15]*May3yz2x2))/560, k == 6 && m == 0}, {(13*(5*Sqrt[15]*Eax3 + 3*Sqrt[15]*Eaxy2z2 - 5*Sqrt[15]*Eay3 - 3*Sqrt[15]*Eayz2x2 + 34*Max3xy2z2 - (2*I)*Sqrt[15]*Max3y3 + (26*I)*Max3yz2x2 + (14*I)*Sqrt[15]*Maxy2z2yz2x2 - (26*I)*May3xy2z2 + 34*May3yz2x2 - (64*I)*Mbxyzz3 + 64*Mbz3zx2y2))/(160*Sqrt[7]), k == 6 && m == 2}, {(-13*(15*Eax3 - 15*Eaxy2z2 + 15*Eay3 - 15*Eayz2x2 + 24*Ebxyz - 24*Ebzx2y2 + 2*Sqrt[15]*Max3xy2z2 + (8*I)*Sqrt[15]*Max3yz2x2 + (8*I)*Sqrt[15]*May3xy2z2 - 2*Sqrt[15]*May3yz2x2 + (48*I)*Mbxyzzx2y2))/(80*Sqrt[14]), k == 6 && m == 4}}, (13*Sqrt[11/7]*(5*Sqrt[3]*Eax3 + 3*Sqrt[3]*Eaxy2z2 - 5*Sqrt[3]*Eay3 - 3*Sqrt[3]*Eayz2x2 - 6*Sqrt[5]*Max3xy2z2 + (10*I)*Sqrt[3]*Max3y3 + (6*I)*Sqrt[5]*Max3yz2x2 - (6*I)*Sqrt[3]*Maxy2z2yz2x2 - (6*I)*Sqrt[5]*May3xy2z2 - 6*Sqrt[5]*May3yz2x2))/160]