Plot[{Cosh[x],-Cosh[x]},{x,-1,1}]

N[E-1]

Plot[ArcCos[x],{x,-2,2}]

Plot[{ArcSin[x],ArcCos[x]},{x,-2,2}]

Solve[ArcSin[x]==ArcCos[x],{x}]

Plot[{ArcSin[x],ArcCos[x],Cos[x],Sin[x]},{x,-Pi/2,Pi}]

Coss[x_]:=If[x>Pi|| x<0,I,Cos[x]]
Plot[Coss[x],{x,-2Pi,2Pi}]
Sinn[x_]:=If[x>Pi/2|| x<-Pi/2,I,Sin[x]]
Plot[Sinn[x],{x,-2Pi,2Pi}]

Plot[{ArcSin[x],ArcCos[x],Coss[x],Sinn[x]},{x,-Pi/2,Pi},AspectRatio->1]