SinH(), CosH() et TanH()

[Guimauve]

Procédures de calculs du Sinus, Cosinus et de la Tangent hyperbolique

A+
Guimauve

Code : Tout sélectionner

#e = 2.7182818

; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Sinus Hyperbolique

Procedure.f SinH(Angle.f)
     
     ProcedureReturn (Pow(#e, angle) - Pow(#e, -angle)) / 2
     
EndProcedure

; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Cosinus Hyperbolique

Procedure.f CosH(Angle.f)
     
     ProcedureReturn (Pow(#e, angle) + Pow(#e, -angle)) / 2
     
EndProcedure

; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Tangente Hyperbolique

Procedure.f TanH(Angle.f)
     
     ProcedureReturn SinH(Angle) / CosH(Angle)
     
EndProcedure