p1=Plot[Sinh[x],{x,-3,3},AxesLabel->{"x","y"},ImageSize->{400,300}];
p2=Plot[Cosh[x],{x,-3,3},PlotStyle->Dashing[{0.01}],
   ImageSize->{400,300}];
bild=Show[p1,p2,ImageSize->{400,300}];