Akm[k_,m_]:=Piecewise[{{(Ea1 + Ea2 + Eb + 2*Ee1 + 2*Ee2)/7, k == 0 && m == 0}, {(5*(Eb - Ee1 + Sqrt[15]*Me1))/7, k == 2 && m == 0}, {0, (k != 4 && k != 6) || (m != -4 && m != 0 && m != 4)}, {(-3*(2*Sqrt[5]*Ea1 - 2*Sqrt[5]*Ea2 - 3*Sqrt[5]*Ee1 + 3*Sqrt[5]*Ee2 - (4*I)*Sqrt[5]*Ma - 2*Sqrt[3]*Me1 + (8*I)*Sqrt[3]*Me2))/(4*Sqrt[14]), k == 4 && m == -4}, {(-3*(14*Ea1 + 14*Ea2 - 12*Eb - 9*Ee1 - 7*Ee2 + 2*Sqrt[15]*Me1))/28, k == 4 && m == 0}, {(-3*(2*Sqrt[5]*Ea1 - 2*Sqrt[5]*Ea2 - 3*Sqrt[5]*Ee1 + 3*Sqrt[5]*Ee2 + (4*I)*Sqrt[5]*Ma - 2*Sqrt[3]*Me1 - (8*I)*Sqrt[3]*Me2))/(4*Sqrt[14]), k == 4 && m == 4}, {(-13*(12*Ea1 - 12*Ea2 + 15*Ee1 - 15*Ee2 - (24*I)*Ma + 2*Sqrt[15]*Me1 - (8*I)*Sqrt[15]*Me2))/(40*Sqrt[14]), k == 6 && m == -4}, {(13*(12*Ea1 + 12*Ea2 + 40*Eb - 25*Ee1 - 39*Ee2 - 14*Sqrt[15]*Me1))/280, k == 6 && m == 0}}, (-13*(12*Ea1 - 12*Ea2 + 15*Ee1 - 15*Ee2 + (24*I)*Ma + 2*Sqrt[15]*Me1 + (8*I)*Sqrt[15]*Me2))/(40*Sqrt[14])]