home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / utility / sm22a.zip / INIT.SM < prev    next >
Text File  |  1993-04-21  |  492b  |  28 lines
  1. #    The initial package init.sm
  2. output=off
  3. numerical=off
  4. expand=off
  5. sum(y_,x_,a_,b_) := sum(y,x,a,b,1)
  6. prod(y_,x_,a_,b_) := prod(y,x,a,b,1)
  7. list(y_,x_,a_,b_) := list(y,x,a,b,1)
  8. table(y_,x_,a_,b_) := table(y,x,a,b,1)
  9. table(y_,x_) := table(y,x,-5,5,1)
  10. degree=pi/180
  11. 0!=1
  12. inf!=inf
  13. sgn(0)=0
  14. sgn(zero)=1
  15. sgn(e)=1
  16. sgn(pi)=1
  17. sgn(inf)=1
  18. abs(zero)=zero
  19. abs(e)=e
  20. abs(pi)=pi
  21. abs(inf)=inf
  22. ln(0)=-inf
  23. ln(inf)=inf
  24.  include('plot.sm')
  25. # include('d.sm')
  26. block(output=basic,null)
  27. end
  28.