home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d9xx / d916 / mathplot.lha / MathPlot / Macros / test8.rexx < prev    next >
OS/2 REXX Batch file  |  1993-10-04  |  688b  |  48 lines
  1. /* Test of PLOT and EVALSTRING */
  2. address "MPlot_ARexx"
  3. options results
  4.  
  5. setintervall "xaxis 0 yaxis 0 xmin -pi xmax pi ymin -1 ymax 1"
  6. plot 1 normal
  7.  
  8. plot 6 normal
  9.  
  10. say "There should be an error"
  11. clear
  12.  
  13. plot 6 normal force
  14. say "There is an error, but no requester"
  15.  
  16. clear
  17.  
  18. plot 0 normal derive1 derive2
  19.  
  20.  
  21. evalstring "sin(5)"
  22. say result rc rc2
  23.  
  24. evalstring "sin(x) x=4.5"
  25. say result rc rc2
  26.  
  27.  
  28. evalstring 'sqr(x) x=-1'
  29. say result rc rc2
  30.  
  31.  
  32. evalstring 'ln(-1)'
  33. say result rc rc2
  34.  
  35.  
  36. evalstring 'ln(a)'
  37. say result rc rc2
  38.  
  39. x = 1.4
  40. setnumprecision 15
  41.  
  42. /* This gives the solution of sin(x) = .3*cos(x) */
  43. do i=1 to 9
  44.  evalstring "asin(.3*cos(x)) x=" x
  45.  say "x" x "->" "f(x)=" result
  46.  x = result
  47. end
  48.