home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / calculat / sm30a.zip / INFSUM.(X) < prev    next >
Text File  |  1993-10-16  |  370b  |  12 lines
  1. #    infinite sum
  2. #    infsum(y,n) gives symbolic sum of y with respect to n from 0 to inf
  3.  
  4. infsum(1/n_ !, n_)  := e
  5. infsum((-1)^n_/n_ !, n_) := 1/e
  6.  
  7. infsum(x^n_/n_ !, n_) := e^x
  8. infsum((-1)^n_*x^(2*n_+1)/(2*n_+1)!, n_)  := sin(x)
  9. infsum((-1)^n_*x^(2*n_)/(2*n_)!, n_) := cos(x)
  10. infsum(x^(2*n_+1)/(2*n_+1)!, n_ ) := sinh(x)
  11. infsum(x^(2*n_)/(2*n_)!, n_ ) := cosh(x)
  12.