HP 3000 Manuals

HP COBOL II/XL Reference Manual

TAN Function 

The TAN function returns the tangent of an angle, expressed in radians.
The function type is numeric.

Syntax 

     FUNCTION TAN (parameter-1)

Parameters 

parameter-1           The size of an angle in radians.  Must be class
                      numeric.

Return Value 

The value returned is the approximation of the tangent of parameter-1.
The value returned is numeric.

Example 

     77  ANGLE-RADIANS      PIC S99V9(5)   VALUE 3.14159.
     77  TAN-OF-ANGLE       PIC S9(5)V9(5) VALUE ZERO.
             :
     COMPUTE TAN-OF-ANGLE = FUNCTION TAN (ANGLE-RADIANS).
     DISPLAY ANGLE-RADIANS.
     DISPLAY TAN-OF-ANGLE.

     DIVIDE ANGLE-RADIANS BY 4 GIVING ANGLE-RADIANS.
     COMPUTE TAN-OF-ANGLE = FUNCTION TAN (ANGLE-RADIANS).
     DISPLAY ANGLE-RADIANS.
     DISPLAY TAN-OF-ANGLE.

The above example displays the following:

     +03.14159
     +00000.00000
     +00.78539
     +00000.99998

MPE/iX 5.0 Documentation