WolframAlpha computational knowledge AI
Plot[Piecewise[{{1.0 * (x) / 1000, 0 < x < 10^6}}], Piecewise[{{0, 0 < x <= 1000}, {1.5 * (x-1000) / 1000, 1000 < x < 5*10^6}}], {x, 0, 10000}]