home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / utility / sm22a.zip / LISTPLOT.SM < prev    next >
Text File  |  1993-04-21  |  306b  |  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.