home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / fish / disks / d1059.lha / Programs / MathPlot / Macros / test9.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-12-15  |  657 b   |  41 lines
  1. /* test setmacro/savemacro/getmacro */
  2. address "MPlot_ARexx"
  3. options results
  4.  
  5. clear force
  6.  
  7. setmacro "a sin(x)"
  8. setmacro "b _c+_d"
  9. setmacro "c x"
  10. setmacro "d 2*x"
  11.  
  12. savemacro "ram:TestOfMacro.mcr"
  13.  
  14. getmacro a
  15. say "The definition of macro a is "result
  16.  
  17. setfunc "0 _b"
  18. plot 0 normal /* to prove that it is 3*x */
  19.  
  20. /* test setconst/saveconst/getconst */
  21.  
  22. setconst "a pi"
  23. setconst "b e"
  24. setconst "c .3"
  25.  
  26. saveconst "ram:TestOfConst.con"
  27.  
  28. getconst b
  29. say "The definition of constant b is "result
  30.  
  31. /* test savefunc */
  32. setfunc "0 asin(x)+acos(x)"
  33. savefunc "ram:TestOfFunc.fkt"
  34.  
  35. /* test saveiff */
  36. /* no filename, a filerequester will appear */
  37. screentofront
  38. saveiff
  39.  
  40.  
  41.