SinH(), CosH() et TanH()
Publié : sam. 29/janv./2005 14:38
Procédures de calculs du Sinus, Cosinus et de la Tangent hyperbolique
A+
Guimauve
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