Akm[k_,m_]:=Piecewise[{{(Ea2u + 2*Eeu)/3, k == 0 && m == 0}, {(5*(Ea2u - Eeu))/3, k == 2 && m == 0}}, 0]