Plot[x - 5 Cos[x] + 3 Sin[x] - 40, {x, 30, 50}]