home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxma.zip / TEST.CMD < prev    next >
OS/2 REXX Batch file  |  1994-03-22  |  915b  |  49 lines
  1. /* REXXMath demo */
  2. call RxFuncAdd 'MathLoadFuncs', 'REXXMATH', 'MathLoadFuncs'
  3. call MathLoadFuncs
  4.  
  5. x = 10.00
  6. do i = 1 to 10
  7.    say "pow( " x "," i ") =" pow( x, i )
  8. end
  9.  
  10. x = 2.00
  11. do i = 1 to 10
  12.    say "pow( " x "," i ") =" pow( x, i )
  13. end
  14.  
  15. x = 1+.1/365
  16. y = 365
  17. say "pow( " x "," y ") =" pow( x, y )
  18.  
  19. x = 1+.1/12
  20. y = 12
  21. say "pow( " x "," y ") =" pow( x, y )
  22.  
  23. x = pi()
  24. say "cos( " x  ") =" cos( x )
  25. say "sin( " x  ") =" sin( x )
  26.  
  27. x = pi()/2
  28. say "cos( " x  ") =" cos( x )
  29. say "sin( " x  ") =" sin( x )
  30.  
  31. x = pi()/4
  32. say "cos( " x  ") =" cos( x )
  33. say "sin( " x  ") =" sin( x )
  34.  
  35. x = 1.00
  36. say "j0( " x  ") =" j0( x )
  37. say "j1( " x  ") =" j1( x )
  38. say "y0( " x  ") =" y0( x )
  39. say "y1( " x  ") =" y1( x )
  40.  
  41. x = 10.00
  42. say "frexp( " x  ") =" frexp( x )
  43. say "modf( " x  ") =" modf( x )
  44. x = 10.50
  45. say "frexp( " x  ") =" frexp( x )
  46. say "modf( " x  ") =" modf( x )
  47.  
  48. call MathDropFuncs
  49.