home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / calculat / sm30a.zip / LISTPLOT.SM < prev    next >
Text File  |  1993-10-16  |  293b  |  10 lines
  1. # the list plot package "listplot.sm"
  2. # to plot a list of data via plotdata.exe.
  3. # listplot([1,2,3,4,5,4,3,2,1])
  4.  
  5. listplot(y_) := if(islist(y), block(yy:=y, length:=length(yy),
  6.     openfile("symbmath.out"),
  7.     table(yy[xx],xx,1,length),
  8.     closefile("symbmath.out"),
  9.     system("plotdata") ))
  10.