home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / arexx / moos / demos / rexx_math.rexx < prev    next >
OS/2 REXX Batch file  |  1997-03-25  |  5KB  |  266 lines
  1. /*
  2.  * rexx_[SUB].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.  *    Rnd()
  121.  */
  122. CALL print(4,'#',"Rnd()")
  123.  
  124. DO FOR 10
  125.     SAY Rnd()
  126. END
  127.  
  128.                                                                               
  129. /*
  130.  *    Pow()
  131.  */
  132. CALL print(4,'#',"Pow(x,y)")
  133.  
  134. d = 8.0; y = 0.5
  135. SAY 'Pow('d','y') ==' Pow(d,y)
  136.  
  137.                                                                               
  138. /*
  139.  *    Log10()
  140.  */
  141. CALL print(4,'#',"Log10(x)")
  142.  
  143. d = 10000 * RANDU(TIME('S'))
  144. SAY 'Log10('d') ==' Log10(d)
  145.  
  146.                                                                               
  147. /*
  148.  *    Log()
  149.  */
  150. CALL print(4,'#',"Log(x)")
  151.  
  152. d = 10 * RANDU(TIME('S'))
  153. SAY 'Log('d') ==' Log(d)
  154.  
  155.                                                                               
  156. /*
  157.  *    Floor()
  158.  */
  159. CALL print(4,'#',"Floor(x)")
  160.  
  161. d = 0.291268
  162. SAY 'Floor('d') ==' Floor(d)
  163.  
  164.                                                                               
  165. /*
  166.  *    Exp()
  167.  */
  168. CALL print(4,'#',"Exp(x)")
  169.  
  170. Pi = 4 * ATan(1)
  171. SAY 'Exp(Pi) ==' Exp(Pi)
  172.  
  173.                                                                               
  174. /*
  175.  *    Cot()
  176.  */
  177. CALL print(4,'#',"Cot(x)")
  178.  
  179. d = 1.0
  180. SAY 'Cot('d') ==' Cot(d)
  181.  
  182.                                                                               
  183. /*
  184.  *    CosH()
  185.  */
  186. CALL print(4,'#',"CosH(x)")
  187.  
  188. d = 1.0
  189. SAY 'CosH('d') ==' CosH(d)
  190.  
  191.                                                                               
  192. /*
  193.  *    Cos()
  194.  */
  195. CALL print(4,'#',"Cos(x)")
  196.  
  197. d = 0
  198. SAY 'Cos('d') ==' Cos(d)
  199.  
  200.                                                                               
  201. /*
  202.  *    Ceil()
  203.  */
  204. CALL print(4,'#',"Ceil(x)")
  205.  
  206. d = 0.291268
  207. SAY 'Ceil('d') ==' Ceil(d)
  208.  
  209.                                                                               
  210. /*
  211.  *    ATan2()
  212.  */
  213. CALL print(4,'#',"ATan2(x)")
  214.  
  215. d = 1.0; y = 2.0
  216. SAY 'ATan2('d','y') ==' ATan2(d,y)
  217.  
  218.                                                                               
  219. /*
  220.  *    ATan()
  221.  */
  222. CALL print(4,'#',"ATan(x)")
  223.  
  224. d = 1.0
  225. SAY 'ATan('d') ==' ATan(d)
  226.  
  227.                                                                               
  228. /*
  229.  *    ASin()
  230.  */
  231. CALL print(4,'#',"ASin(x)")
  232.  
  233. d = 0.5
  234. SAY 'ASin('d') ==' ASin(d)
  235.  
  236.                                                                               
  237. /*
  238.  *    ACos()
  239.  */
  240. CALL print(4,'#',"ACos(x)")
  241.  
  242. d = 0.0
  243. SAY 'ACos('d') ==' ACos(d)
  244.  
  245.                                                                               
  246. /*
  247.  *    Abs()
  248.  */
  249. CALL print(4,'#',"Abs(x)")
  250.  
  251. d = -0.01968
  252. SAY 'Abs('d') ==' Abs(d)
  253.  
  254.                                                                               
  255.  
  256. ADDRESS COMMAND 'Wait' 2
  257.  
  258. SAY
  259. EXIT 0
  260.  
  261. print: PROCEDURE
  262.     PARSE ARG pos,char,str
  263.     IF char = '#' THEN SAY '0a0a'x
  264.     SAY COPIES(char,pos) || OVERLAY(" "str" ",COPIES(char,78 - pos))
  265.     RETURN
  266.