home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / util / rexx / MOOS.lha / MOOS / Tests / rexx_math.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-02-16  |  4.6 KB  |  256 lines
  1. /*
  2.  * rexx_dos.library
  3.  *
  4.  * Test file...
  5.  */
  6.  
  7. OPTIONS RESULTS
  8. lib = 'rexxMOOS.library'; IF ~SHOW('L',lib) THEN CALL ADDLIB(lib,100,-30)
  9.  
  10.                                                                               
  11. /*
  12.  *    Fact()
  13.  */
  14. CALL print(4,'#',"Fact(n)")
  15.  
  16. d = 5
  17. SAY 'Fact('d') ==' Fact(d)
  18.  
  19.                                                                               
  20. /*
  21.  *    Csc()
  22.  */
  23. CALL print(4,'#',"Csc(x)")
  24.  
  25. d = 0.5
  26. SAY 'Csc('d') ==' Csc(d)
  27.  
  28.                                                                               
  29. /*
  30.  *    Sec()
  31.  */
  32. CALL print(4,'#',"Sec(x)")
  33.  
  34. d = 0.5
  35. SAY 'Sec('d') ==' Sec(d)
  36.  
  37.                                                                               
  38. /*
  39.  *    NInt()
  40.  */
  41. CALL print(4,'#',"NInt(x)")
  42.  
  43. d = 0.681229
  44. SAY 'NInt('d') ==' NInt(d)
  45.  
  46.                                                                               
  47. /*
  48.  *    ATanH()
  49.  */
  50. CALL print(4,'#',"ATanH(x)")
  51.  
  52. d = RANDU(TIME('S'))
  53. SAY 'ATanH('d') ==' ATanH(d)
  54.  
  55.                                                                               
  56. /*
  57.  *    ACosH()
  58.  */
  59. CALL print(4,'#',"ACosH(x)")
  60.  
  61. d = 1.0
  62. SAY 'ACosH('d') ==' ACosH(d)
  63.  
  64.                                                                               
  65. /*
  66.  *    ASinH()
  67.  */
  68. CALL print(4,'#',"ASinH(x)")
  69.  
  70. d = 1.0
  71. SAY 'ASinH('d') ==' ASinH(d)
  72.  
  73.                                                                               
  74. /*
  75.  *    TanH()
  76.  */
  77. CALL print(4,'#',"TanH(x)")
  78.  
  79. d = 1.0
  80. SAY 'TanH('d') ==' TanH(d)
  81.  
  82.                                                                               
  83. /*
  84.  *    Tan()
  85.  */
  86. CALL print(4,'#',"Tan(x)")
  87.  
  88. d = 0
  89. SAY 'Tan('d') ==' Tan(d)
  90.  
  91.                                                                               
  92. /*
  93.  *    Sqrt()
  94.  */
  95. CALL print(4,'#',"Sqrt(x)")
  96.  
  97. d = 2.0
  98. SAY 'Sqrt('d') ==' Sqrt(d)
  99.  
  100.                                                                               
  101. /*
  102.  *    SinH()
  103.  */
  104. CALL print(4,'#',"SinH(x)")
  105.  
  106. d = 1.0
  107. SAY 'SinH('d') ==' SinH(d)
  108.  
  109.                                                                               
  110. /*
  111.  *    Sin()
  112.  */
  113. CALL print(4,'#',"Sin(x)")
  114.  
  115. d = 0
  116. SAY 'Sin('d') ==' Sin(d)
  117.  
  118.                                                                               
  119. /*
  120.  *    Pow()
  121.  */
  122. CALL print(4,'#',"Pow(x,y)")
  123.  
  124. d = 8.0; y = 0.5
  125. SAY 'Pow('d','y') ==' Pow(d,y)
  126.  
  127.                                                                               
  128. /*
  129.  *    Log10()
  130.  */
  131. CALL print(4,'#',"Log10(x)")
  132.  
  133. d = 10000 * RANDU(TIME('S'))
  134. SAY 'Log10('d') ==' Log10(d)
  135.  
  136.                                                                               
  137. /*
  138.  *    Log()
  139.  */
  140. CALL print(4,'#',"Log(x)")
  141.  
  142. d = 10 * RANDU(TIME('S'))
  143. SAY 'Log('d') ==' Log(d)
  144.  
  145.                                                                               
  146. /*
  147.  *    Floor()
  148.  */
  149. CALL print(4,'#',"Floor(x)")
  150.  
  151. d = 0.291268
  152. SAY 'Floor('d') ==' Floor(d)
  153.  
  154.                                                                               
  155. /*
  156.  *    Exp()
  157.  */
  158. CALL print(4,'#',"Exp(x)")
  159.  
  160. Pi = 4 * ATan(1)
  161. SAY 'Exp(Pi) ==' Exp(Pi)
  162.  
  163.                                                                               
  164. /*
  165.  *    Cot()
  166.  */
  167. CALL print(4,'#',"Cot(x)")
  168.  
  169. d = 1.0
  170. SAY 'Cot('d') ==' Cot(d)
  171.  
  172.                                                                               
  173. /*
  174.  *    CosH()
  175.  */
  176. CALL print(4,'#',"CosH(x)")
  177.  
  178. d = 1.0
  179. SAY 'CosH('d') ==' CosH(d)
  180.  
  181.                                                                               
  182. /*
  183.  *    Cos()
  184.  */
  185. CALL print(4,'#',"Cos(x)")
  186.  
  187. d = 0
  188. SAY 'Cos('d') ==' Cos(d)
  189.  
  190.                                                                               
  191. /*
  192.  *    Ceil()
  193.  */
  194. CALL print(4,'#',"Ceil(x)")
  195.  
  196. d = 0.291268
  197. SAY 'Ceil('d') ==' Ceil(d)
  198.  
  199.                                                                               
  200. /*
  201.  *    ATan2()
  202.  */
  203. CALL print(4,'#',"ATan2(x)")
  204.  
  205. d = 1.0; y = 2.0
  206. SAY 'ATan2('d','y') ==' ATan2(d,y)
  207.  
  208.                                                                               
  209. /*
  210.  *    ATan()
  211.  */
  212. CALL print(4,'#',"ATan(x)")
  213.  
  214. d = 1.0
  215. SAY 'ATan('d') ==' ATan(d)
  216.  
  217.                                                                               
  218. /*
  219.  *    ASin()
  220.  */
  221. CALL print(4,'#',"ASin(x)")
  222.  
  223. d = 0.5
  224. SAY 'ASin('d') ==' ASin(d)
  225.  
  226.                                                                               
  227. /*
  228.  *    ACos()
  229.  */
  230. CALL print(4,'#',"ACos(x)")
  231.  
  232. d = 0.0
  233. SAY 'ACos('d') ==' ACos(d)
  234.  
  235.                                                                               
  236. /*
  237.  *    Abs()
  238.  */
  239. CALL print(4,'#',"Abs(x)")
  240.  
  241. d = -0.01968
  242. SAY 'Abs('d') ==' Abs(d)
  243.  
  244.                                                                               
  245.  
  246. ADDRESS COMMAND 'Wait' 2
  247.  
  248. SAY
  249. EXIT 0
  250.  
  251. print: PROCEDURE
  252.     PARSE ARG pos,char,str
  253.     IF char = '#' THEN SAY '0a0a'x
  254.     SAY COPIES(char,pos) || OVERLAY(" "str" ",COPIES(char,78 - pos))
  255.     RETURN
  256.