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

Тема в разделе "Visual Basic", создана пользователем oleg25, 21 июн 2010.

  1. oleg25

    oleg25 New Member

    Регистрация:
    21 июл 2008
    Сообщения:
    2
    Симпатии:
    0
    Доброго времени суток! Народ, подскажите - есть ли в VB6 готовые решения по расчету гиперболических sin, cos, tg. Если кто знает, поделитесь плз!
     
  2. Гость

    встроенных, как я знаю, нет
    Код (LotusScript):
    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
     
Загрузка...
Похожие Темы - Гиперболические функции
  1. Генералл
    Ответов:
    2
    Просмотров:
    68
  2. rn3rjd
    Ответов:
    0
    Просмотров:
    456
  3. Sanchezz86
    Ответов:
    1
    Просмотров:
    590
  4. Sentim
    Ответов:
    1
    Просмотров:
    633
  5. FaRReLL
    Ответов:
    1
    Просмотров:
    1.447

Поделиться этой страницей