Scheme 求函数积分的过程，怎样提高精度

mci2004

最近学习FP，用Scheme写了一个求函数积分的过程，想请问下怎样才能提高这个过程返回结果的精度呢？

1. (define increment 0.00001)
   
2. 
   
3. (define (integral term a b)
   
4.   (define (sum term a increment b total)
   
5.     (if (> a b)
   
6.       total
   
7.       (+ (+ (* (term a) increment) total)
   
8.          (sum term (+ a increment) increment b total))))
   
9.     (sum term a increment b 0))

复制代码

如果increment 设置0.00001就会超出最大的递归深度，那么在科学计算领域这样的过程，怎样提高精度呢？

数学方法修改这个过程吗？

OwnWaterloo

跟着Lua控@starwing83哥哥混确写出了栈溢出的代码。。。  该不该打。。。

1. 
   
2. (define (integral-tailcall term a b)
   
3.   (define (sum term a increment b total)
   
4.     (if (> a b)
   
5.       total
   
6.       (sum term (+ a increment) increment b
   
7.            (+ (* (term a) increment) total))))
   
8.   (sum term a increment b 0))
   

复制代码

无脑尾递归修改版本。。。

mci2004

回复 2# OwnWaterloo


    谢谢，我sb了

Tail Recursion

。


    唉... 我好菜