home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
utility
/
sm22a.zip
/
PLOT.SM
< prev
next >
Wrap
Text File
|
1993-04-21
|
420b
|
17 lines
# The plot function package plot.sm
# plot(x^2, x) # plot the function of x^2
# plot(x^2, x,-6,6) # plot the function of x^2 from x=-6 to x=6
# end
output=off
plot(y_,x_,x1_,x2_,dx_) := block(openfile('symbmath.out'),
table(y,x,x1,x2,dx),
closefile('symbmath.out'),
system(plotdata))
plot(y_,x_,x1_,x2_) := plot(y,x,x1,x2,(x2-x1)*0.05)
plot(y_,x_) := plot(y,x,-5,5,0.5)
block(output=on, null)
end