Plot[x^4 - 13 x + 36, {x, -4, 4}]