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}];