Plot[(1000 - x)/1001, {x, 0, 1}]