a=100;
c=0.3;
abb=Plot[c x (1-x/a)-x^2/(1+x^2),{x,0,4},AxesLabel->{"x","f(x)"},ImageSize->{400,300}];