pl[h_]:=Plot[1/(1+p^h),{p,0.01,3},DisplayFunction->Identity]; bild=Show[Evaluate[pl[-0.5],pl[-1],pl[-2],pl[-4],pl[-8],pl[-16]], AxesLabel->{"p","1/(1+p^h)"}, DisplayFunction->$DisplayFunction,ImageSize->{400,300}];