Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
EducatedFool
0 / 0 / 0
Регистрация: 28.09.2009
Сообщений: 88
25.01.2010, 05:35

Вычисление ArcCos в VBA

25.01.2010, 05:35. Просмотров 6014. Ответов 1
Метки (Все метки)

Ответ

А что, не судьба задать тот же вопрос поисковой системе?
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Function ArcCos(A As Double) As Double
  'Inverse Cosine
    On Error Resume Next
        If A = 1 Then
            ArcCos = 0
            Exit Function
        End If
        ArcCos = Atn(-A / Sqr(-A * A + 1)) + 2 * Atn(1)
    On Error GoTo 0
End Function
 
Public Function ArcSin(x As Double) As Double
  'Inverse Sine
    On Error Resume Next
        ArcSin = Atn(x / Sqr(-x * x + 1))
    On Error GoTo 0
End Function
 
Public Function ArcTan(x As Double) As Double
  'Inverse Tangent
    On Error Resume Next
        ArcTan = Atn(x) * (180 / Pi)
    On Error GoTo 0
End Function


Вернуться к обсуждению:
Вычисление ArcCos в VBA
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.01.2010, 05:35

Вычисление суммы и решение квадратного уравнения на VBA
Прошу помощи, чтобы сделали, или хотя бы начать помогли задания в прикреплении....

VBA Excel Вычисление суммы ряда по формуле
Разработать макро функцию с одним параметром “x", которая рассчитывает см рис....

Нужно написать на VBA вычисление интеграла методом трапеций
Есть функция f(x)=(x-1)^1/2 . Нужно найти площадь фигуры, ограниченной на...

0
Другие темы раздела
VBA Форматирование формы в Word http://www.cyberforum.ru/vba/thread89176.html
Как сделать, чтобы этот код заработал: Sub AllControl() Dim oControl As Control For Each oControl In UserForm1.Controls oControl.Height = 100 Next End Sub Этот код должен делать высоту...
VBA Изменить размер листа у меня проблемка с vba(( помогите плизз..мне нужно изменить размер листа в word ну вот допустим вводим в textbox ширину листа к примеру 12 см с лева, и 5 справа...вот когда мы это вводим, и при... http://www.cyberforum.ru/vba/thread88942.html
VBA Вывести список из десяти записей типа НОМЕР-ИМЯ-ДОХОД
Девушка сдает экзамен Напишите процедуру,в которой формируется список из десяти записей типа НОМЕР-ИМЯ-ДОХОД.список формируется на листе эксель так,что данные вводятся с клавиатуры и...
Фильтрация данных в раскрывающимся списке VBA
Здравствуйте. Подскажите, как создать порядковую фильтрацию данных по именам (например камаз) в объекте раскрывающийся список, при выполнение команды ComboBox1_Change?
VBA Переменная в качестве константы http://www.cyberforum.ru/vba/thread88309.html
Есть код (сокращенный вариант): With Selection.ParagraphFormat .OutlineLevel = wdOutlineLevel1 End With У меня есть переменная x, я в неё помещаю текст wdOutlineLevel1. И мой код имеет вид...
VBA Подскажите, где неправильно и что лишнего? Нужен макрос для выдачи звука Написал, что смог, воспользовавшись чужими макросами Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru