home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / educ / math / 021 / plot.sm < prev    next >
Encoding:
Text File  |  1993-04-21  |  420 b   |  17 lines
  1. # The plot function package plot.sm
  2. # plot(x^2, x)        # plot the function of x^2
  3. # plot(x^2, x,-6,6)    # plot the function of x^2 from x=-6 to x=6
  4. # end
  5.  
  6. output=off
  7.  
  8. plot(y_,x_,x1_,x2_,dx_) := block(openfile('symbmath.out'),
  9.     table(y,x,x1,x2,dx),
  10.     closefile('symbmath.out'),
  11.     system(plotdata))
  12. plot(y_,x_,x1_,x2_) := plot(y,x,x1,x2,(x2-x1)*0.05)
  13. plot(y_,x_) := plot(y,x,-5,5,0.5)
  14.  
  15. block(output=on, null)
  16. end
  17.