home *** CD-ROM | disk | FTP | other *** search
/ BUG 1 / BUGCD1996_0708.ISO / pc / aplic / mercury / series.eka < prev    next >
Text File  |  1992-11-03  |  251b  |  9 lines
  1. ; Demo of infinite series.
  2.  
  3. ; Approximate sum using a large finite number of terms.
  4. approx_sum = SUM(1/(n*n),n,1,8000)
  5.  
  6. ; Mercury has special logic for an infinite sum, so just do it.
  7. infinite_sum = SUM(1/(n*n),n,1,INF)
  8. true_limit = PI^2 / 6
  9.