Akm[k_,m_]:=Piecewise[{{(Ea1z3 + Ea1zx2y2 + Ea2 + Eb1x3 + Eb1xy2z2 + Eb2y3 + Eb2yz2x2)/7, k == 0 && m == 0}, {0, k == 1 && m == 0}, {(5*(Sqrt[6]*Eb1x3 - Sqrt[6]*Eb2y3 + Sqrt[10]*(-2*Ma1 + Mb1 + Mb2)))/28, k == 2 && (m == -2 || m == 2)}, {(-5*(-2*Ea1z3 + Eb1x3 + Eb2y3 + Sqrt[15]*(-Mb1 + Mb2)))/14, k == 2 && m == 0}, {0, (k == 3 && (m == -2 || m == 2)) || (k == 3 && m == 0)}, {(3*(4*Sqrt[5]*Ea1zx2y2 - 4*Sqrt[5]*Ea2 + 3*Sqrt[5]*Eb1x3 - 3*Sqrt[5]*Eb1xy2z2 + 3*Sqrt[5]*Eb2y3 - 3*Sqrt[5]*Eb2yz2x2 + 2*Sqrt[3]*(Mb1 - Mb2)))/(8*Sqrt[14]), k == 4 && (m == -4 || m == 4)}, {(3*(-3*Sqrt[10]*Eb1x3 + 7*Sqrt[10]*Eb1xy2z2 + 3*Sqrt[10]*Eb2y3 - 7*Sqrt[10]*Eb2yz2x2 + 2*Sqrt[6]*(-2*Ma1 + Mb1 + Mb2)))/56, k == 4 && (m == -2 || m == 2)}, {(3*(24*Ea1z3 - 28*Ea1zx2y2 - 28*Ea2 + 9*Eb1x3 + 7*Eb1xy2z2 + 9*Eb2y3 + 7*Eb2yz2x2 + 2*Sqrt[15]*(-Mb1 + Mb2)))/56, k == 4 && m == 0}, {0, (k == 5 && (m == -4 || m == 4)) || (k == 5 && (m == -2 || m == 2)) || (k == 5 && m == 0)}, {(13*Sqrt[11/7]*(5*Sqrt[3]*Eb1x3 + 3*Sqrt[3]*Eb1xy2z2 - 5*Sqrt[3]*Eb2y3 - 3*Sqrt[3]*Eb2yz2x2 - 6*Sqrt[5]*(Mb1 + Mb2)))/160, k == 6 && (m == -6 || m == 6)}, {(13*(24*Ea1zx2y2 - 24*Ea2 - 15*Eb1x3 + 15*Eb1xy2z2 - 15*Eb2y3 + 15*Eb2yz2x2 + 2*Sqrt[15]*(-Mb1 + Mb2)))/(80*Sqrt[14]), k == 6 && (m == -4 || m == 4)}, {(13*(5*Sqrt[15]*Eb1x3 + 3*Sqrt[15]*Eb1xy2z2 - 5*Sqrt[15]*Eb2y3 - 3*Sqrt[15]*Eb2yz2x2 + 64*Ma1 + 34*(Mb1 + Mb2)))/(160*Sqrt[7]), k == 6 && (m == -2 || m == 2)}, {(-13*(-80*Ea1z3 - 24*Ea1zx2y2 - 24*Ea2 + 25*Eb1x3 + 39*Eb1xy2z2 + 25*Eb2y3 + 39*Eb2yz2x2 + 14*Sqrt[15]*(Mb1 - Mb2)))/560, k == 6 && m == 0}}, 0]