IBM Lotus Symphony
|
Determina a tangente de um ângulo. O ângulo é especificado em radianos.
Usando o ângulo Alpha, a Função Tan calcula a proporção do comprimento do lado oposto ao ângulo ao comprimento do lado adjacente ao ângulo em um triângulo reto.
Tan(Alpha) = lado oposto ao ângulo/lado adjacente ao ângulo
Tan (Number)
Double
Number: Qualquer expressão numérica para a qual você deseje calcular a tangente (em radianos).
Para converter os graus em radianos, multiplique por Pi/180. Para converter radianos em graus, multiplique por 180/Pi.
degrees=(radiant*180)/Pi
radiant=(degrees*Pi)/180
Pi é aproximadamente 3,141593.
REM Neste exemplo, é possível a seguinte entrada para um triângulo reto:
REM O lado oposto ao ângulo e o ângulo (em graus) para calcular o comprimento do lado adjacente ao ângulo:
Sub ExampleTangens
REM Pi = 3,1415926 é uma variável predefinida
Dim d1 as Double
Dim dAlpha as Double
d1 = InputBox$ ("Enter the length of the side opposite the angle: ","opposite")
dAlpha = InputBox$ ("Enter the Alpha angle (in degrees): ","Alpha")
Print "the length of the side adjacent the angle is"; (d1 / tan (dAlpha * Pi / 180))
End Sub