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