Akm[k_,m_]:=Piecewise[{{(Ea1u + Ea2u1 + Ea2u2 + 2*(Eeu1 + Eeu2))/7, k == 0 && m == 0}, {(((-5*I)/28)*(5*Ea1u + Ea2u2 - Eeu1 - 5*Eeu2 + 2*Sqrt[5]*(2*Ma2u - Meu)))/Sqrt[6], k == 2 && m == -2}, {((-5/28 - (5*I)/28)*(5*Ea1u + Ea2u2 - Eeu1 - 5*Eeu2 + 2*Sqrt[5]*(2*Ma2u - Meu)))/Sqrt[6], k == 2 && m == -1}, {((5/28 - (5*I)/28)*(5*Ea1u + Ea2u2 - Eeu1 - 5*Eeu2 + 2*Sqrt[5]*(2*Ma2u - Meu)))/Sqrt[6], k == 2 && m == 1}, {(((5*I)/28)*(5*Ea1u + Ea2u2 - Eeu1 - 5*Eeu2 + 2*Sqrt[5]*(2*Ma2u - Meu)))/Sqrt[6], k == 2 && m == 2}, {-(Sqrt[5/14]*(Ea1u + 6*Ea2u1 - 3*Ea2u2 - 6*Eeu1 + 2*Eeu2))/4, k == 4 && (m == -4 || m == 4)}, {((-1/4 + I/4)*(Sqrt[5]*Ea1u + 3*Sqrt[5]*Ea2u2 - 3*Sqrt[5]*Eeu1 - Sqrt[5]*Eeu2 - 3*Ma2u + 12*Meu))/Sqrt[7], k == 4 && m == -3}, {((I/7)*(Sqrt[5]*Ea1u + 3*Sqrt[5]*Ea2u2 - 3*Sqrt[5]*Eeu1 - Sqrt[5]*Eeu2 - 3*Ma2u + 12*Meu))/Sqrt[2], k == 4 && m == -2}, {(-1/28 - I/28)*(Sqrt[5]*Ea1u + 3*Sqrt[5]*Ea2u2 - 3*Sqrt[5]*Eeu1 - Sqrt[5]*Eeu2 - 3*Ma2u + 12*Meu), k == 4 && m == -1}, {(-Ea1u - 6*Ea2u1 + 3*Ea2u2 + 6*Eeu1 - 2*Eeu2)/4, k == 4 && m == 0}, {(1/28 - I/28)*(Sqrt[5]*Ea1u + 3*Sqrt[5]*Ea2u2 - 3*Sqrt[5]*Eeu1 - Sqrt[5]*Eeu2 - 3*Ma2u + 12*Meu), k == 4 && m == 1}, {((-I/7)*(Sqrt[5]*Ea1u + 3*Sqrt[5]*Ea2u2 - 3*Sqrt[5]*Eeu1 - Sqrt[5]*Eeu2 - 3*Ma2u + 12*Meu))/Sqrt[2], k == 4 && m == 2}, {((1/4 + I/4)*(Sqrt[5]*Ea1u + 3*Sqrt[5]*Ea2u2 - 3*Sqrt[5]*Eeu1 - Sqrt[5]*Eeu2 - 3*Ma2u + 12*Meu))/Sqrt[7], k == 4 && m == 3}, {((13*I)/80)*Sqrt[11/21]*(3*Ea1u - 5*Ea2u2 + 5*Eeu1 - 3*Eeu2 + 6*Sqrt[5]*Meu), k == 6 && m == -6}, {(-13/40 - (13*I)/40)*Sqrt[11/7]*(Ea1u - Eeu2 - Sqrt[5]*(Ma2u + Meu)), k == 6 && m == -5}, {(13*(9*Ea1u - 12*Ea2u1 - 5*(Ea2u2 + 2*Eeu1) + 18*Eeu2))/(40*Sqrt[14]), k == 6 && (m == -4 || m == 4)}, {((-13/40 + (13*I)/40)*(3*Sqrt[5]*Ea1u - 2*Sqrt[5]*Ea2u2 + 2*Sqrt[5]*Eeu1 - 3*Sqrt[5]*Eeu2 - 9*Ma2u + 3*Meu))/Sqrt[21], k == 6 && m == -3}, {(((-13*I)/80)*(7*Sqrt[5]*Ea1u - Sqrt[5]*Ea2u2 + Sqrt[5]*Eeu1 - 7*Sqrt[5]*Eeu2 - 32*Ma2u - 26*Meu))/Sqrt[21], k == 6 && m == -2}, {((13/20 + (13*I)/20)*(2*Ea1u - 5*Ea2u2 + 5*Eeu1 - 2*Eeu2 + Sqrt[5]*(Ma2u + 7*Meu)))/Sqrt[42], k == 6 && m == -1}, {(-13*(9*Ea1u - 12*Ea2u1 - 5*(Ea2u2 + 2*Eeu1) + 18*Eeu2))/280, k == 6 && m == 0}, {((-13/20 + (13*I)/20)*(2*Ea1u - 5*Ea2u2 + 5*Eeu1 - 2*Eeu2 + Sqrt[5]*(Ma2u + 7*Meu)))/Sqrt[42], k == 6 && m == 1}, {(((13*I)/80)*(7*Sqrt[5]*Ea1u - Sqrt[5]*Ea2u2 + Sqrt[5]*Eeu1 - 7*Sqrt[5]*Eeu2 - 32*Ma2u - 26*Meu))/Sqrt[21], k == 6 && m == 2}, {((13/40 + (13*I)/40)*(3*Sqrt[5]*Ea1u - 2*Sqrt[5]*Ea2u2 + 2*Sqrt[5]*Eeu1 - 3*Sqrt[5]*Eeu2 - 9*Ma2u + 3*Meu))/Sqrt[21], k == 6 && m == 3}, {(13/40 - (13*I)/40)*Sqrt[11/7]*(Ea1u - Eeu2 - Sqrt[5]*(Ma2u + Meu)), k == 6 && m == 5}, {((-13*I)/80)*Sqrt[11/21]*(3*Ea1u - 5*Ea2u2 + 5*Eeu1 - 3*Eeu2 + 6*Sqrt[5]*Meu), k == 6 && m == 6}}, 0]