Cos Function
Вычисляет косинус угла. Угол указывается в радианах. Результат — число от -1 до 1.
Для угла Alpha в прямоугольном треугольнике функция Cos вычисляет отношение длины прилежащей к этому углу стороны к длине гипотенузы.
Cos(Alpha) = Прилежащая/Гипотенуза
Синтаксис
Cos (Число)
Возвращаемое значение:
Double
Параметры:
Число. Число, являющееся углом в радианах, для которого нужно вычислить косинус.
Чтобы преобразовать градусы в радианы, умножьте градусы на pi/180. Чтобы преобразовать радианы в градусы, умножьте радианы на 180/pi.
Градусы=(Радианы*180)/pi
Радианы=(Градусы*пи)/180
Pi — константа с округленным значением 3,14159...
Пример:
REM Следующий пример позволяет вычислить длину гипотенузы для прямоугольного треугольника,
REM беря значения прилежащей стороны и угла (в градусах):
Sub ExampleCosinus
REM округленно Pi = 3.14159
Dim d1 As Double, dAngle As Double
d1 = InputBox("Введите длину прилежащей стороны: ","Прилежащая")
dAngle = InputBox("Введите угол Alpha (в градусах): ","Alpha")
Print "Длина гипотенузы -"; (d1 / cos (dAngle * Pi / 180))
End Sub