Plot[Abs[4 - x^2] - 3 x, {x, -5, 5}]