Функция Cos
Cos(Number)
Функция Cos вычисляет косинус угла. Аргумент задается в радианах
Для того, чтобы перевести градусы в радианы используйте формулу:
Угол(в радианах) = угол(в градусах) * pi/180
где pi=3.14159265358979
Возвращаемое значение
Функция возвращает величину с типом данных Double, лежащую в диапазоне от -1 до 1
Параметры
Number | Обязательный аргумент представляет собой значение типа Double, задающее угол в радианах.
Если аргумент не может быть оценен как число, генерируется ошибка времени исполнения Type mismatch
|
Пример
' Вычисляем косинус прямого угла
Dim MyAngle, retval, GradToRad
Const pi = 3.14159265358979 ' определяем константу pi
MyAngle=90 ' задаем угол в градусах
GradToRad=MyAngle*pi/180 ' переводим градусы в радианы
retval=Cos(GradToRad) ' вычисляем косинус прямого угла
Debug.Print retval
Категория
Математические функции |