p1=Plot[x,{x,0,1},DisplayFunction->Identity]; p2=Plot[2-x,{x,1,2},DisplayFunction->Identity]; bild=Show[p1,p2,AxesLabel->{"x","y"}, ImageSize->{400,300},DisplayFunction->$DisplayFunction];