Solve[M*Exp[-M^2/2]=r,M]