Akm[k_,m_]:=Piecewise[{{(Ea + 2*(Ee1 + Ee2))/5, k == 0 && m == 0}, {0, (k != 2 && k != 4) || m != 0}, {Ea + Ee1 - 2*Ee2, k == 2 && m == 0}}, (3*(3*Ea - 4*Ee1 + Ee2))/5]