ausdr = 500 - s + 0.05/0.00025 Log[s/490];
abb = Plot[ausdr,{s,0,490},AxesLabel->{"s","i"},
PlotRange->{-200,200},ImageSize->{400,300}];