IBM Lotus Symphony
|
Calcula co-seno de um ângulo. O ângulo é especificado em radianos. O resultado está entre -1 e 1.
Utilizando o ângulo Alpha, a função Cos calcula a proporção do comprimento do lado adjacente ao ângulo, dividido pelo comprimento da hipotenusa num triângulo de ângulo recto.
Cos(Alpha) = Adjacente/Hipotenusa
Cos (Número)
Duplo
Number: Expressão numérica que especifica um ângulo em radianos para o qual pretenda calcular o co-seno.
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 circular fixa com um valor arredondado de 3,14159...
REM O seguinte exemplo permite que um triângulo de ângulo recto tenha uma 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