home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
utility
/
sm22a.zip
/
LISTPLOT.SM
< prev
next >
Wrap
Text File
|
1993-04-21
|
306b
|
14 lines
# the list plot package 'listplot.sm'
# to plot a list of data.
# listplot([1,2,3,4,5,4,3,2,1])
# end
output=off
listplot(y_) := if(islist(y), block(yy=y, length=length(yy),
openfile('symbmath.out'),
table(yy[xx],xx,1,length),
closefile('symbmath.out'),
system(plotdata) ))
output=on
end