Гиперболические функции

[oleg25]

Доброго времени суток! Народ, подскажите - есть ли в VB6 готовые решения по расчету гиперболических sin, cos, tg. Если кто знает, поделитесь плз!

 

[Guest]

встроенных, как я знаю, нет

Function ch(x As Double) As Double
ch = (Exp(x) + Exp(-x)) / 2
End Function

Function sh(x As Double) As Double
sh = (Exp(x) - Exp(-x)) / 2
End Function

Function th(x As Double) As Double
th = sh(x) / ch(x)
'th = (Exp(2 * x) - 1) / (Exp(2 * x) + 1)	 'или так
End Function