Plot[{-(x+1)^2, (x-1)^2, -4x},{x,-2,2}]