home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / educ / math / 021 / listplot.sm < prev    next >
Encoding:
Text File  |  1993-04-21  |  306 b   |  14 lines
  1. # the list plot package 'listplot.sm'
  2. # to plot a list of data.
  3. # listplot([1,2,3,4,5,4,3,2,1])
  4. # end
  5.  
  6. output=off
  7. listplot(y_) := if(islist(y), block(yy=y, length=length(yy),
  8.     openfile('symbmath.out'),
  9.     table(yy[xx],xx,1,length),
  10.     closefile('symbmath.out'),
  11.     system(plotdata) ))
  12. output=on
  13. end
  14.