Plot[{Sin[x]/900, Sin[x]/x}, {x, 800, 1000}]