Plot[((100+0.01*100*(x+0.01x^2))/x),{x,0,200}]