t0=10; c=1; x[t_,n_]:=(n c (t0-t))^(-1/n); bild1=Plot[x[t,0.2],{t,0,10},DisplayFunction->Identity]; bild2=Plot[x[t,0.4],{t,0,10},DisplayFunction->Identity]; bild3=Plot[x[t,0.6],{t,0,10},DisplayFunction->Identity]; bild4=Plot[x[t,0.8],{t,0,10},DisplayFunction->Identity]; bild5=Plot[x[t,1],{t,0,10},DisplayFunction->Identity]; bild6=Plot[x[t,2],{t,0,10},DisplayFunction->Identity]; bild7=Plot[x[t,3],{t,0,10},DisplayFunction->Identity]; abb=Show[{bild1,bild2,bild3,bild4,bild5,bild6,bild7}, PlotRange->{{8,10},{0,10}},AxesLabel->{"t","x"}, ImageSize->{400,300},DisplayFunction->$DisplayFunction];