Akm[k_,m_]:=Piecewise[{{(Eaxx23y2 + Eaz3 + Eaz3x2y2 + 2*Ee1 + 2*Ee2)/7, k == 0 && m == 0}, {0, (k != 6 && (((k != 2 || m != 0) && k != 4) || (m != -3 && m != 0 && m != 3))) || (m != -6 && m != -3 && m != 0 && m != 3 && m != 6)}, {(-5*(5*Eaxx23y2 - 4*Eaz3 + 5*Eaz3x2y2 - 6*Ee1))/28, k == 2 && m == 0}, {(-3*(3*Maxx2y2z3 + (3*I)*Maz3y3x2y2 - (2*I)*MeIm + 2*MeRe))/Sqrt[14], k == 4 && m == -3}, {(3*(3*Eaxx23y2 + 6*Eaz3 + 3*Eaz3x2y2 + 2*Ee1 - 14*Ee2))/14, k == 4 && m == 0}, {(9*Maxx2y2z3 - (9*I)*Maz3y3x2y2 + (6*I)*MeIm + 6*MeRe)/Sqrt[14], k == 4 && m == 3}, {(13*Sqrt[33/7]*(Eaxx23y2 - Eaz3x2y2 + (2*I)*Maxx23y2y3x2y2))/20, k == 6 && m == -6}, {(13*Sqrt[3/14]*(Maxx2y2z3 + I*(Maz3y3x2y2 + 3*MeIm + (3*I)*MeRe)))/5, k == 6 && m == -3}, {(-13*(Eaxx23y2 - 20*Eaz3 + Eaz3x2y2 + 30*Ee1 - 12*Ee2))/140, k == 6 && m == 0}, {(13*Sqrt[3/14]*(-Maxx2y2z3 + I*Maz3y3x2y2 + (3*I)*MeIm + 3*MeRe))/5, k == 6 && m == 3}}, (13*Sqrt[33/7]*(Eaxx23y2 - Eaz3x2y2 - (2*I)*Maxx23y2y3x2y2))/20]