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