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