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