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