IBM Lotus Symphony
|
Calcula la tangente de un ángulo. El ángulo se especifica en radianes.
Usando el ángulo Alfa, la función Tan calcula el coeficiente de la longitud del lado opuesto al ángulo con la longitud del lado adyacente al ángulo en un triángulo rectángulo.
Tan(Alpha) = lado opuesto al ángulo/lado adyacente al ángulo
Tan (Número)
Doble
Número: Cualquier expresión numérica de la que se desee calcular la tangente (en radianes).
Para convertir grados en radianes, multiplique por pi/180. Para convertir radianes en grados, multiplique por 180/Pi.
grados=(radián*180)/Pi
radián=(grados*Pi)/180
Pi es aproximadamente 3,141593.
REM En este ejemplo, la entrada siguiente es posible para un triángulo rectángulo:
REM El lado opuesto al ángulo y éste (en grados) para calcular la longitud del lado adyacente al ángulo:
Sub EjemploTangentes
REM Pi = 3,1415926 es un valor predefinido
Dim d1 As Double
Dim dAlpha as Double
d1 = InputBox$ ("Especifique la longitud del lado opuesto al ángulo: ","opuesto")
dAngle = InputBox$ ("Escriba el ángulo Alfa (en grados): ","Alfa")
Print "la longitud del lado adyacente al ángulo es"; (d1 / tan (dAlpha * Pi / 180))
End Sub