|
|
|
|
|
|
|
|
x= (* Zahl eingeben *)
ArcSinh[x] //N (* Areasinus hyberbolicus (rote Kurve) *)
ArcCosh[x] //N (* Areacosinus hyberbolicus (grüne Kurve) *)
ArcTanh[x] //N (* Areatangens hyberbolicus (blaue Kurve) *)
ArcCoth[x] //N (* Areacotangens hyberbolicus (gelbe Kurve) *)
Plot[{ArcSinh[x],ArcCosh[x],ArcTanh[x],ArcCoth[x]},{x,-2,2},
PlotStyle->{{RGBColor[1,0,0]},{RGBColor[0,1,0]},{RGBColor[0,0,1]},
{RGBColor[1,1,0]}}]
