Plot[{Log[1 - x], -x - x^2/2}, {x, 0,0.5}]