WolframAlpha computational knowledge AI
Plot[Piecewise[{{0.8*x/1000+200, 10^6<x<10^7}, {0.6*x/1000+2200, 10^7<x<10^8}}], Piecewise[{{1.5*(x-1000)/1000, 10*6<x<5*10^6},{0.6*(x-1000)/1000 + 4499.1, 5*10^6<x<10^8}}], {x, 10^6, 20*10^6}]