A=1; n=0.5; x[t_,x0_]=A(1+ ((A/x0)^n-1) E^(-n A t))^(-1/n); bild1=Plot[x[t,0.2],{t,0,10},PlotRange->All,DisplayFunction->Identity]; bild2=Plot[x[t,0.4],{t,0,10},PlotRange->All,DisplayFunction->Identity]; bild3=Plot[x[t,0.6],{t,0,10},PlotRange->All,DisplayFunction->Identity]; bild4=Plot[x[t,0.8],{t,0,10},PlotRange->All,DisplayFunction->Identity]; bild5=Plot[x[t,1.0],{t,0,10},PlotRange->All,DisplayFunction->Identity]; bild6=Plot[x[t,1.2],{t,0,10},PlotRange->All,DisplayFunction->Identity]; bild7=Plot[x[t,1.4],{t,0,10},PlotRange->All,DisplayFunction->Identity]; bild=Show[{bild1,bild2,bild3,bild4,bild5,bild6,bild7}, PlotRange->{{0,10},{0,1.5}},AxesLabel->{"t","x"}, ImageSize->{400,300},DisplayFunction->$DisplayFunction];