home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progbas / realfun.arj / DEMOTRIG.BAS < prev    next >
BASIC Source File  |  1991-07-20  |  687b  |  22 lines
  1. DECLARE FUNCTION sind (x)
  2. DECLARE FUNCTION cosd (x)
  3. DECLARE FUNCTION tand (x)
  4. DECLARE FUNCTION sinh (x)
  5. DECLARE FUNCTION cosh (x)
  6. DECLARE FUNCTION tanh (x)
  7. DECLARE FUNCTION atan (y, x)
  8. DEFINT I-N: CLS
  9.  
  10. PRINT "circular & hyperbolic trigonometric functions": PRINT
  11. PRINT "degrees  radians     cos      sin      tan     cosh     sinh     tanh": PRINT
  12. format$ = "   ###     #.###   ##.###   ##.###   ##.###   ##.###   ##.###   ##.###"
  13. FOR i = 0 TO 180 STEP 10
  14.   td = i: IF i = 90 THEN td = 89
  15.   xc = cosd(td): yc = sind(td): zc = tand(td)
  16.   tr = atan(yc, xc)
  17.   xh = cosh(tr): yh = sinh(tr): zh = tanh(tr)
  18.   PRINT USING format$; td; tr; xc; yc; zc; xh; yh; zh
  19.   NEXT i
  20.  
  21.  
  22.