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

oleg25 · 21.06.2010

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

Guest · 20.07.2010

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

Код:

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