Akm[k_,m_]:=Piecewise[{{(Eappx3 + Eappxy2z2 + Eappxyz + Eappy3 + Eappyz2x2 + Eappz3 + Eappzx2y2)/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*(2*Sqrt[3]*Eappx3 - 2*Sqrt[3]*Eappy3 + 2*Sqrt[5]*Mappx3xy2z2 - I*Sqrt[3]*Mappx3y3 - I*Sqrt[5]*Mappx3yz2x2 - (5*I)*Sqrt[3]*Mappxy2z2yz2x2 - (4*I)*Sqrt[5]*Mappxyzz3 + I*Sqrt[5]*Mappy3xy2z2 + 2*Sqrt[5]*Mappy3yz2x2 - 4*Sqrt[5]*Mappz3zx2y2))/(28*Sqrt[2]), k == 2 && m == -2}, {(-5*(Eappx3 + Eappy3 - 2*Eappz3 - Sqrt[15]*Mappx3xy2z2 + Sqrt[15]*Mappy3yz2x2))/14, k == 2 && m == 0}, {(5*(2*Sqrt[3]*Eappx3 - 2*Sqrt[3]*Eappy3 + 2*Sqrt[5]*Mappx3xy2z2 + I*Sqrt[3]*Mappx3y3 + I*Sqrt[5]*Mappx3yz2x2 + (5*I)*Sqrt[3]*Mappxy2z2yz2x2 + (4*I)*Sqrt[5]*Mappxyzz3 - I*Sqrt[5]*Mappy3xy2z2 + 2*Sqrt[5]*Mappy3yz2x2 - 4*Sqrt[5]*Mappz3zx2y2))/(28*Sqrt[2]), k == 2 && m == 2}, {(3*(3*Sqrt[5]*Eappx3 - 3*Sqrt[5]*Eappxy2z2 - 4*Sqrt[5]*Eappxyz + 3*Sqrt[5]*Eappy3 - 3*Sqrt[5]*Eappyz2x2 + 4*Sqrt[5]*Eappzx2y2 + 2*Sqrt[3]*Mappx3xy2z2 - (8*I)*Sqrt[3]*Mappx3yz2x2 + (8*I)*Sqrt[5]*Mappxyzzx2y2 - (8*I)*Sqrt[3]*Mappy3xy2z2 - 2*Sqrt[3]*Mappy3yz2x2))/(8*Sqrt[14]), k == 4 && m == -4}, {(3*(-3*Sqrt[10]*Eappx3 + 7*Sqrt[10]*Eappxy2z2 + 3*Sqrt[10]*Eappy3 - 7*Sqrt[10]*Eappyz2x2 + 2*Sqrt[6]*Mappx3xy2z2 + (12*I)*Sqrt[10]*Mappx3y3 - (8*I)*Sqrt[6]*Mappx3yz2x2 + (4*I)*Sqrt[10]*Mappxy2z2yz2x2 - (4*I)*Sqrt[6]*Mappxyzz3 + (8*I)*Sqrt[6]*Mappy3xy2z2 + 2*Sqrt[6]*Mappy3yz2x2 - 4*Sqrt[6]*Mappz3zx2y2))/56, k == 4 && m == -2}, {(3*(9*Eappx3 + 7*Eappxy2z2 - 28*Eappxyz + 9*Eappy3 + 7*Eappyz2x2 + 24*Eappz3 - 28*Eappzx2y2 - 2*Sqrt[15]*Mappx3xy2z2 + 2*Sqrt[15]*Mappy3yz2x2))/56, k == 4 && m == 0}, {(3*(-3*Sqrt[10]*Eappx3 + 7*Sqrt[10]*Eappxy2z2 + 3*Sqrt[10]*Eappy3 - 7*Sqrt[10]*Eappyz2x2 + 2*Sqrt[6]*Mappx3xy2z2 - (12*I)*Sqrt[10]*Mappx3y3 + (8*I)*Sqrt[6]*Mappx3yz2x2 - (4*I)*Sqrt[10]*Mappxy2z2yz2x2 + (4*I)*Sqrt[6]*Mappxyzz3 - (8*I)*Sqrt[6]*Mappy3xy2z2 + 2*Sqrt[6]*Mappy3yz2x2 - 4*Sqrt[6]*Mappz3zx2y2))/56, k == 4 && m == 2}, {(3*(3*Sqrt[5]*Eappx3 - 3*Sqrt[5]*Eappxy2z2 - 4*Sqrt[5]*Eappxyz + 3*Sqrt[5]*Eappy3 - 3*Sqrt[5]*Eappyz2x2 + 4*Sqrt[5]*Eappzx2y2 + 2*Sqrt[3]*Mappx3xy2z2 + (8*I)*Sqrt[3]*Mappx3yz2x2 - (8*I)*Sqrt[5]*Mappxyzzx2y2 + (8*I)*Sqrt[3]*Mappy3xy2z2 - 2*Sqrt[3]*Mappy3yz2x2))/(8*Sqrt[14]), k == 4 && m == 4}, {(13*Sqrt[11/7]*(5*Sqrt[3]*Eappx3 + 3*Sqrt[3]*Eappxy2z2 - 5*Sqrt[3]*Eappy3 - 3*Sqrt[3]*Eappyz2x2 - 6*Sqrt[5]*Mappx3xy2z2 - (10*I)*Sqrt[3]*Mappx3y3 - (6*I)*Sqrt[5]*Mappx3yz2x2 + (6*I)*Sqrt[3]*Mappxy2z2yz2x2 + (6*I)*Sqrt[5]*Mappy3xy2z2 - 6*Sqrt[5]*Mappy3yz2x2))/160, k == 6 && m == -6}, {(-13*(15*Eappx3 - 15*Eappxy2z2 + 24*Eappxyz + 15*Eappy3 - 15*Eappyz2x2 - 24*Eappzx2y2 + 2*Sqrt[15]*Mappx3xy2z2 - (8*I)*Sqrt[15]*Mappx3yz2x2 - (48*I)*Mappxyzzx2y2 - (8*I)*Sqrt[15]*Mappy3xy2z2 - 2*Sqrt[15]*Mappy3yz2x2))/(80*Sqrt[14]), k == 6 && m == -4}, {(13*(5*Sqrt[15]*Eappx3 + 3*Sqrt[15]*Eappxy2z2 - 5*Sqrt[15]*Eappy3 - 3*Sqrt[15]*Eappyz2x2 + 34*Mappx3xy2z2 + (2*I)*Sqrt[15]*Mappx3y3 - (26*I)*Mappx3yz2x2 - (14*I)*Sqrt[15]*Mappxy2z2yz2x2 + (64*I)*Mappxyzz3 + (26*I)*Mappy3xy2z2 + 34*Mappy3yz2x2 + 64*Mappz3zx2y2))/(160*Sqrt[7]), k == 6 && m == -2}, {(-13*(25*Eappx3 + 39*Eappxy2z2 - 24*Eappxyz + 25*Eappy3 + 39*Eappyz2x2 - 80*Eappz3 - 24*Eappzx2y2 + 14*Sqrt[15]*Mappx3xy2z2 - 14*Sqrt[15]*Mappy3yz2x2))/560, k == 6 && m == 0}, {(13*(5*Sqrt[15]*Eappx3 + 3*Sqrt[15]*Eappxy2z2 - 5*Sqrt[15]*Eappy3 - 3*Sqrt[15]*Eappyz2x2 + 34*Mappx3xy2z2 - (2*I)*Sqrt[15]*Mappx3y3 + (26*I)*Mappx3yz2x2 + (14*I)*Sqrt[15]*Mappxy2z2yz2x2 - (64*I)*Mappxyzz3 - (26*I)*Mappy3xy2z2 + 34*Mappy3yz2x2 + 64*Mappz3zx2y2))/(160*Sqrt[7]), k == 6 && m == 2}, {(-13*(15*Eappx3 - 15*Eappxy2z2 + 24*Eappxyz + 15*Eappy3 - 15*Eappyz2x2 - 24*Eappzx2y2 + 2*Sqrt[15]*Mappx3xy2z2 + (8*I)*Sqrt[15]*Mappx3yz2x2 + (48*I)*Mappxyzzx2y2 + (8*I)*Sqrt[15]*Mappy3xy2z2 - 2*Sqrt[15]*Mappy3yz2x2))/(80*Sqrt[14]), k == 6 && m == 4}}, (13*Sqrt[11/7]*(5*Sqrt[3]*Eappx3 + 3*Sqrt[3]*Eappxy2z2 - 5*Sqrt[3]*Eappy3 - 3*Sqrt[3]*Eappyz2x2 - 6*Sqrt[5]*Mappx3xy2z2 + (10*I)*Sqrt[3]*Mappx3y3 + (6*I)*Sqrt[5]*Mappx3yz2x2 - (6*I)*Sqrt[3]*Mappxy2z2yz2x2 - (6*I)*Sqrt[5]*Mappy3xy2z2 - 6*Sqrt[5]*Mappy3yz2x2))/160]