IBM Lotus Symphony
|
Calcula o cosseno de um ângulo. O ângulo é especificado em radianos. O resultado fica entre -1 e 1.
Usando o ângulo Alpha, a Função Cos calcula a proporção do comprimento do lado adjacente ao ângulo, dividido pelo comprimento da hipotenusa em um triângulo reto.
Cos(Alpha) = Adjacente/Hipotenusa
Cos (Number)
Double
Number: Expressão numérica que especifica um ângulo em radianos do qual você deseja calcular o cosseno.
Para converter graus em radianos, multiplique os graus por pi/180. Para converter radianos em graus, multiplique os radianos por 180/pi.
grau=(radiano*180)/pi
radiano=(grau*pi)/180
Pi aqui é a constante do círculo fixo com o valor arredondado de 3,14159...
REM O exemplo a seguir permite a um triângulo reto a entrada de
REM secante e ângulo (em graus) e calcula o comprimento da hipotenusa:
Sub ExampleCosinus
REM Pi arredondado = 3,14159
Dim d1 as Double, dAngle as Double
d1 = InputBox$ (""Enter the length of the adjacent side: ","Adjacent")
dAngle = InputBox$ ("Enter the angle Alpha (in degrees): ","Alpha")
Print "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))
End Sub