Tan Function

αž€αŸ†αžŽαžαŸ‹β€‹αžαž„αŸ‹αžŸαž„αŸ‹β€‹αžšαž”αžŸαŸ‹β€‹αž˜αž»αŸ†β€‹αž˜αž½αž™Β αŸ” αž˜αž»αŸ†β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αž‰αŸ’αž‡αžΆαž€αŸ‹β€‹αž‡αžΆβ€‹αžšαŸ‰αžΆαžŠαŸ’αž™αž„αŸ‹Β αŸ”

Using the angle Alpha, the Tan function calculates the ratio of the length of the side opposite the angle to the length of the side adjacent to the angle in a right-angled triangle.

Tan(Alpha) = side opposite the angle/side adjacent to angle

Syntax:


Tan (Number As Double) As Double

Return value:

Double

Parameters:

αž…αŸ†αž“αž½αž“β€‹ αŸ– αž€αž“αŸ’αžŸαŸ„αž˜β€‹αž›αŸαžβ€‹αž˜αž½αž™β€‹αž…αŸ†αž“αž½αž“β€‹ αžŠαŸ‚αž›β€‹αž’αŸ’αž“αž€β€‹αž…αž„αŸ‹β€‹αž‚αžŽαž“αžΆβ€‹αžαž„αŸ‹αžŸαž„αŸ‹ (αž‚αž·αžβ€‹αž‡αžΆβ€‹αžšαŸ‰αžΆαžŠαŸ’αž™αž„αŸ‹)Β αŸ”

To convert degrees to radians, multiply by Pi/180. To convert radians to degrees, multiply by 180/Pi.

degrees=(radians*180)/Pi

radians=(degrees*Pi)/180

Pi is approximately 3.141593.

Error codes:

5 αž€αžΆαžšβ€‹αž αŸ…β€‹αž”αŸ‚αž”αž”αž‘β€‹αž˜αž·αž“β€‹αžαŸ’αžšαžΉαž˜αžαŸ’αžšαžΌαžœ

Example:


REM In this example, the following entry is possible for a right-angled triangle:
REM αž•αŸ’αž“αŸ‚αž€β€‹αžŠαŸ‚αž›β€‹αž“αŸ…β€‹αž‘αž›αŸ‹β€‹αž˜αž»αžβ€‹αž“αžΉαž„β€‹αž˜αž»αŸ† αž“αž·αž„β€‹αž˜αž»αŸ†β€‹ (αž‚αž·αžβ€‹αž‡αžΆβ€‹αžŠαžΊαž€αŸ’αžšαŸ)​ αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž‚αžŽαž“αžΆβ€‹αž”αŸ’αžšαžœαŸ‚αž„β€‹αžšαž”αžŸαŸ‹β€‹αž•αŸ’αž“αŸ‚αž€β€‹αžŠαŸ‚αž›β€‹αž“αŸ…β€‹αž‡αžΆαž”αŸ‹β€‹αž“αžΉαž„β€‹αž˜αž»αŸ† αŸ–
Sub ExampleTangens
REM Pi = 3.1415926 is a pre-defined variable
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

Please support us!