COSR()
 To return the COSINE of a radian.
------------------------------------------------------------------------------

 Syntax

      COSR( <nRadian> ) -> nCos

 Arguments

      <nRadian> is a numeric value representing a radian value.

 Returns

      COSR() returns the cosine value of <nRadian>.

 Description

      COSR() is a trigonometrical function that returns the cosine value of
      a radian.

      For radians, see COS().

      Accuracy is to the twelfth decimal (i.e. .00000000001)

 Examples

      nPI := PI()                  // returns  3.141592653589792
      ? Str( COSR(nPI/2), 12,  9)  // returns  0.000000000
      ? Str( COSR(nPI), 12,  9)    // returns -1.000000000

 Files: CALC.LIB

 Author: Touchstone Business Creations          CompuServe ID: 73670,2561
         28613 River Glen Ct. #1
         Menifee, CA 92584-8987 USA

         (909) 679-3364

 Owner : (c) Copyright, 1991,92,93 Touchstone Business Creations