pl[h_]:=Plot[1/(1+p^h),{p,0,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}];