IBM Lotus Symphony


Função Cos [Runtime]

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

Sintaxe:

Cos (Número)

Valor de retorno:

Duplo

Parâmetros:

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...

Códigos de erro

5 Chamada de procedimento não válido

Exemplo:

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


Comentários sobre o produto | Documentação adicional | Marcas comerciais