home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 August / PCWorld_2000-08_cd.bin / Software / TemaCD / xbasic / xbpro.exe / xb / xma.dec < prev    next >
Encoding:
Text File  |  2000-01-12  |  2.6 KB  |  74 lines
  1. '
  2. ' ************************************
  3. ' *****  Math Library Functions  *****
  4. ' ************************************
  5. '
  6. ' Angles are always in RADIANS
  7. '
  8. EXTERNAL FUNCTION  Xma             ()
  9. EXTERNAL FUNCTION  XmaVersion$     ()
  10. EXTERNAL FUNCTION  DOUBLE  ACOS    (DOUBLE x)
  11. EXTERNAL FUNCTION  DOUBLE  ACOSH   (DOUBLE x)
  12. EXTERNAL FUNCTION  DOUBLE  ACOT    (DOUBLE x)
  13. EXTERNAL FUNCTION  DOUBLE  ACOTH   (DOUBLE x)
  14. EXTERNAL FUNCTION  DOUBLE  ACSC    (DOUBLE x)
  15. EXTERNAL FUNCTION  DOUBLE  ACSCH   (DOUBLE x)
  16. EXTERNAL FUNCTION  DOUBLE  ASEC    (DOUBLE x)
  17. EXTERNAL FUNCTION  DOUBLE  ASECH   (DOUBLE x)
  18. EXTERNAL FUNCTION  DOUBLE  ASIN    (DOUBLE x)
  19. EXTERNAL FUNCTION  DOUBLE  ASINH   (DOUBLE x)
  20. EXTERNAL FUNCTION  DOUBLE  ATAN    (DOUBLE x)
  21. EXTERNAL FUNCTION  DOUBLE  ATANH   (DOUBLE x)
  22. EXTERNAL FUNCTION  DOUBLE  COS     (DOUBLE x)
  23. EXTERNAL FUNCTION  DOUBLE  COSH    (DOUBLE x)
  24. EXTERNAL FUNCTION  DOUBLE  COT     (DOUBLE x)
  25. EXTERNAL FUNCTION  DOUBLE  COTH    (DOUBLE x)
  26. EXTERNAL FUNCTION  DOUBLE  CSC     (DOUBLE x)
  27. EXTERNAL FUNCTION  DOUBLE  CSCH    (DOUBLE x)
  28. EXTERNAL FUNCTION  DOUBLE  EXP     (DOUBLE x)
  29. EXTERNAL FUNCTION  DOUBLE  LOG     (DOUBLE x)
  30. EXTERNAL FUNCTION  DOUBLE  EXP2    (DOUBLE x)
  31. EXTERNAL FUNCTION  DOUBLE  EXP10   (DOUBLE x)
  32. EXTERNAL FUNCTION  DOUBLE  LOG10   (DOUBLE x)
  33. EXTERNAL FUNCTION  DOUBLE  POWER   (DOUBLE x, DOUBLE y)
  34. EXTERNAL FUNCTION  DOUBLE  SEC     (DOUBLE x)
  35. EXTERNAL FUNCTION  DOUBLE  SECH    (DOUBLE x)
  36. EXTERNAL FUNCTION  DOUBLE  SIN     (DOUBLE x)
  37. EXTERNAL FUNCTION  DOUBLE  SINH    (DOUBLE x)
  38. EXTERNAL FUNCTION  DOUBLE  SQRT    (DOUBLE x)
  39. EXTERNAL FUNCTION  DOUBLE  TAN     (DOUBLE x)
  40. EXTERNAL FUNCTION  DOUBLE  TANH    (DOUBLE x)
  41. '
  42. '
  43. ' ************************************
  44. ' *****  Math Library Constants  *****
  45. ' ************************************
  46. '
  47.     $$NNAN            =    0dFFFFFFFFFFFFFFFF
  48.     $$PNAN            = 0d7FFFFFFFFFFFFFFF
  49.     $$NINF            = 0dFFF0000000000000
  50.     $$PINF            = 0d7FF0000000000000
  51.     $$RADIANS        = 1
  52.     $$DEGREES        = 2
  53.     $$DEGTORAD    = 0d3F91DF46A2529D39
  54.     $$RADTODEG    = 0d404CA5DC1A63C1F8
  55.     $$PI                = 0d400921FB54442D18
  56.     $$TWOPI            = 0d401921FB54442D18
  57.     $$PI3DIV2        = 0d4012D97C7F3321D2
  58.     $$PIDIV2        = 0d3FF921FB54442D18
  59.     $$PIDIV4        = 0d3FE921FB54442D18
  60.     $$INVPI            = 0d3FD45F306DC9C883
  61.     $$SQRT2            = 0d3FF6A09E667F3BCD
  62.     $$SQRT2DIV2    = 0d3FE6A09E667F3BCD
  63.     $$INVSQRT2    = 0d3FE6A09E667F3BCD
  64.     $$E                    = 0d4005BF0A8B145769
  65.     $$LOG2E            = 0d3FF71547652B82FE
  66.     $$LOG210        = 0d400A934F0979A371
  67.     $$LOGE2            = 0d3FE62E42FEFA39EF
  68.     $$LOGE10        = 0d4002EBB1BBB55516
  69.     $$LOGESQRT2    = 0d3FD62E42FEFA39EF
  70.     $$LOG102        = 0d3FD34413509F79FF
  71.     $$LOG10E        = 0d3FDBCB7B1526E50E
  72.     $$PIDIV8        = 0d3FD921FB54442D18
  73.     $$PI3DIV8        = 0d3FF2D97C7F3321D2
  74.