home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / rxmath / rxmathfn.cmd < prev    next >
Encoding:
Text File  |  1992-10-19  |  1.5 KB  |  56 lines
  1. /*------------------------------------------------------------------
  2.  *
  3.  *      (C) Copyright IBM Corp. 1992
  4.  *
  5.  *      rxmathfn.cmd :
  6.  *------------------------------------------------------------------
  7.  * 07-29-92 originally by Patrick J. Mueller
  8.  * 08-12-92 changed by Patrick J. Mueller "nan" and "infinity" added
  9.  *------------------------------------------------------------------*/
  10.  
  11. parse source os .
  12.  
  13. rc = RxFuncAdd("MathLoadFuncs","RxMathFn","MathLoadFuncs")
  14. rc = MathLoadFuncs()
  15.  
  16. say "pi =" pi()
  17. say "e  =" e()
  18. say
  19.  
  20. nums = "1 0.9 0.8 1.1 1e1000 infinity -infinity nan -nan"
  21.  
  22. do numInd = 1 to words(nums)
  23.    i = word(nums,numInd)
  24.  
  25.    say "acos " || "("i") =" acos(  i )
  26.    say "asin " || "("i") =" asin(  i )
  27.    say "atan " || "("i") =" atan(  i )
  28.    say "cos  " || "("i") =" cos(   i )
  29.    say "exp  " || "("i") =" exp(   i )
  30.    say "log10" || "("i") =" log10( i )
  31.    say "sin  " || "("i") =" sin(   i )
  32.    say "sqrt " || "("i") =" sqrt(  i )
  33.    say "tan  " || "("i") =" tan(   i )
  34.  
  35.    if (os = "CMS") then
  36.       do
  37.       say "ytox("i","i") =" ytox(i,i)
  38.       say "ln   " || "("i") =" ln(    i )
  39.       end
  40.  
  41.    else
  42.       do
  43.       say "ceil " || "("i") =" ceil(  i )
  44.       say "floor" || "("i") =" floor( i )
  45.       say "cosh " || "("i") =" cosh(  i )
  46.       say "sinh " || "("i") =" sinh(  i )
  47.       say "tanh " || "("i") =" tanh(  i )
  48.       say "pow("i","i") =" pow(i,i)
  49.       say "log  " || "("i") =" log(   i )
  50.       end
  51.  
  52.    say
  53. end
  54.  
  55. exit
  56.