home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / calculat / sm30a.zip / PARTSUM.(X) < prev    next >
Text File  |  1993-10-16  |  472b  |  16 lines
  1. #    the symbolic partial sum 
  2. #    to find the symbolic sum of f(x) from x=1 to n
  3. #     partsum(n^2, n)
  4.  
  5. partsum(n_,n_) := n*(n+1)/2
  6. partsum(n_^2,n_) := n*(n+1)*(2*n+1)/6
  7. partsum(n_^3,n_) := n^2*(n+1)^2/4
  8. partsum((-1)^(n_-1)*n_^2,n_) := (-1)^(n-1)*n*(n+1)/2
  9. partsum(2*n_,n_) := n*(n+1)
  10. partsum(2*n_-1,n_) := n^2
  11. partsum((2*n_-1)^2,n_) := n*(4*n^2-1)/3
  12. partsum((2*n_-1)^3,n_) := n^2*(2*n^2-1)
  13.  
  14. partsum(n_ !*n_, n_) := (n+1)!-1
  15. partsum(n_/(n_+1)!, n_) := 1-1/(n+1)!
  16.