w[i_,t_]:=a/(1+(a/x[i] -1) E^(-c t)); x[i_]=5+i 40; c=-0.5; a=-100; abb=Plot[Evaluate[Table[w[i,t],{i,0,4}]],{t,0,10}, AxesLabel->{"t","x"},ImageSize->{400,300}];