p1=ListPlot[{1,4,9,16},PlotStyle->PointSize [0.02],
   DisplayFunction->Identity];
p2=Plot[x^2,{x,0,4},DisplayFunction->Identity];
p3=Plot[1+ 3 (x-1),{x,1,2},PlotStyle->Dashing[{0.01}],
   DisplayFunction->Identity];
p4=Plot[1 + 4 (x-1),{x,1,3},PlotStyle->Dashing[{0.01}],
   DisplayFunction->Identity];
p5=Plot[1+ 5 (x-1),{x,1,4},PlotStyle->Dashing[{0.01}],
   DisplayFunction->Identity];
p6=Plot[2x-1,{x,0,4},PlotStyle->Dashing[{0.02}],
   DisplayFunction->Identity];
bild=Show[p1,p2,p3,p4,p5,p6,AxesLabel->{"x","y"},
ImageSize->{400,300},DisplayFunction->$DisplayFunction];