如何用Excel解决积分问题？

1公共函数梯形积分(r为字符串，a为double，b为double，n为整数)为double。

2 Dim dx为Double，I为Integer

3 dx = (b - a) / n

4代表i = 1到n

5梯形积分=梯形积分+FX (r，(+fx(r，(a+dx * (i-1/2))) * dx。

6下一个我

7结束功能

8公共函数复合辛普森积分(r为字符串，a为double，b为double，n为整数)为double。

9 Dim dx为Double，I为整数，m为整数

10米= 2 * n

11 dx = (b - a) / m

12复辛普森积分= fx(r，a)+fx(r，b)

13对于i = 2到m步骤2

14复辛普森积分=复辛普森积分+4 * FX (r，(a+dx * (I-1))+2 * FX (r，(a+dx * I))。

下一个我

16复辛普森积分=(复辛普森积分-2 * FX (r，(a+dx * m)) * dx/3)

17结束功能

18公共函数fx(f为String，x为Double)为Double

19 f = LCase(f)

20 fx = Evaluate(Replace(f，" x "，x))

21结束函数

两个函数的参数都是1。自变量用X表示，X不区分大小写。2.积分3的下限。积分4的上限。分割数不能大于32766。对于梯形积分，数字越大，越接近真实值。对于复辛普森积分，不需要使用大量的除法来包含奇点(趋近于无穷的点)，复辛普森公式将无法正确积分。以后可能会修改，希望高手调用方法:=梯形积分(" sin (x) 3-ln (x+1) 3+x 5-x "，0，2，2000)。