Тригонометрические функции - подключение.

[Tidus]

Подскажите пожалуйста как подключить следующие тригонометрические функции:

1. Котангенс (ctg x);
2. Секанс (sec x);
3. Косеканс (cosec x);
4. Синус-верзус (versin x);
5. Косинус-верзус (vercos x);
6. Гаверсинус (haversin x);
7. Эксеканс (exsec x);
8. Экскосеканс (excsc x).

А также обратные функции арк... для определения углов.


Какие варианты решения вы можете предложить?Может быть можно в экселе создать пользовательские функции, что бы их потом вызывать?

[doober]

Public Function Arccos(X) As Double
 
 PI = 4 * 2 * Atn(1)
 
    If Round(X, 8) = 1# Then Arccos = 0#: Exit Function
 
    If Round(X, 8) = -1# Then Arccos = PI: Exit Function
 
    Arccos = Atn(-X / Sqr(1 - X ^ 2)) + 2 * Atn(1)
 
 
 
    End Function
Public Function Arcsin(X As Double) As Double
  PI = 4 * 2 * Atn(1)
 
    If (Sqr(1 - X ^ 2) <= 0.000000000001) And (Sqr(1 - X ^2) >= -0.000000000001) Then
 
    Arcsin = PI / 2
 
    Else
 
    Arcsin = Atn(X / Sqr(1 - X ^ 2))
 
    End If
 
    End Function

[IgorGO]

Вы издеваетесь?
Все эти функции элеметарно выражаются через тригонометрические COS и SIN.
Вам облом самому спросить инет что такое секанс? (СЕКАНС, в ТРИГОНОМЕТРИИ - отношение длины гипотенузы к длине катета, прилежащего к данному острому углу в прямоугольном ТРЕУГОЛЬНИКЕ Секанс угла А обычно сокращенно записывается, как sec А, и равен обратному КОСИНУСУ, т. е. 1/cos A)
Синус-верзус (другие написания: версинус, синус версус, называется также «стрелкой дуги»). Определяется как versin(a) = 1 - cos(a) = 2*(sin(a/2))^2
и так далее...

не напрягайте нас, напрягите инет, ему все равно.
В любом случае спасибо - я сегодня серьезно обогатил свой лексикон

[Tidus]

Сообщение от IgorGO

Вы издеваетесь?
Все эти функции элеметарно выражаются через тригонометрические COS и SIN.
Вам облом самому спросить инет что такое секанс? (СЕКАНС, в ТРИГОНОМЕТРИИ - отношение длины гипотенузы к длине катета, прилежащего к данному острому углу в прямоугольном ТРЕУГОЛЬНИКЕ Секанс угла А обычно сокращенно записывается, как sec А, и равен обратному КОСИНУСУ, т. е. 1/cos A)
Синус-верзус (другие написания: версинус, синус версус, называется также «стрелкой дуги»). Определяется как versin(a) = 1 - cos(a) = 2*(sin(a/2))^2
и так далее...

не напрягайте нас, напрягите инет, ему все равно.
В любом случае спасибо - я сегодня серьезно обогатил свой лексикон

Игорь, не нужно писать, что означают эти функции, на википедии про это очень хорошо написано и даже картинка есть. Эти функции я применяю в расчетах для упрощения громоздких формул. В экселе тоже они мне необходимы, это удобнее, чем каждый раз писать 1-cos и т.д..
Игорь, лучше подскажите как зашить эти функции в Эксель.

[Tidus]

Сообщение от doober

[CODE]Public Function Arccos(X) As Double

Сергей, куда нужно зайти, что бы вставить этот код?

[IgorGO]

с этим точно париться не надо Public Function Arccos(X) As Double - Arccos в Excel уже есть - это Acos

Откройте редактор VBA (Alt+F11)
Откройте окно просмотра проектов (Ctrl+R)
Правой кнопкой по имени Вашего проекта(совпадает с именем файла)
Вставить
Модуль
в окно модуля пишете это

Function Sec(AL) As Double
sec = 1-cos(al)
end sub

как этим пользоваться:
возвращаетесь к Excel.
в любой ячейке =
жмете по fx - обьект такой левее строки формул
в поле категория выбираете определенные пользователем
в поле выберите функцию выбираете Sec
ок
всплывет окно, где надо указать секанс какого угла Вас интересует впишите туда угол в радианах, или отметьте ячейку, в которую он уже записан.
ок

приблизительно так.
в дальнейшем: модуль уже есть, в него можно дописать код для остальных функций, которые Вас интересуют.
1. Котангенс (ctg x);
3. Косеканс (cosec x);
4. Синус-верзус (versin x);
5. Косинус-верзус (vercos x);
6. Гаверсинус (haversin x);
7. Эксеканс (exsec x);
8. Экскосеканс (excsc x).
успехов!

[Tidus]

Получается, что для каждого файла в эксель придётся повторять эту операцию?

[IgorGO]

ну... извините, стандартные синус и косинус, которые бы работали на любой версии Excel..., в любом открытом Вами файле..., Вам же и не подходят.
умеем мы создавать себе трудности, а потом с гордостью из них выходить.
из Вашей ситуации есть несколько вариантов выхода. успехов!

[Tidus]

Сообщение от IgorGO

ну... извините, стандартные синус и косинус, которые бы работали на любой версии Excel..., в любом открытом Вами файле..., Вам же и не подходят.
умеем мы создавать себе трудности, а потом с гордостью из них выходить.
из Вашей ситуации есть несколько вариантов выхода. успехов!

За помощь спасибо

P.S.Стандартные синус и косинус не подходят, они приводят к огромадным пятиэтажным формулам, даже после упрощения триг.функций