Plot[-(x+3)^5-2, 3*x+7, 5*x+7, {x, -4, 0}]