1. 怎么用excel求积分

Excel中积分方法：

使用VBA模块，建立新的宏定义，输入下面公式：

1 Public Function 梯形积分（r As String, a As Double, b As Double, n As Integer） As Double

2 Dim dx As Double, i As Integer

3 dx = (b - a) / n

4 For i = 1 To n

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

6 Next i

7 End Function

8 Public Function 复化辛普生积分（r As String, a As Double, b As Double, n As Integer） As Double

9 Dim dx As Double, i As Integer, m As Integer

10 m = 2 * n

11 dx = (b - a) / m

12 复化辛普生积分 = fx(r, a) + fx(r, b)

13 For i = 2 To m Step 2

14 复化辛普生积分 = 复化辛普生积分 + 4 * fx(r, (a + dx * (i - 1))) + 2 * fx(r, (a + dx * i))

15 Next i

16 复化辛普生积分 = （复化辛普生积分 - 2 * fx(r, (a + dx * m))) * dx / 3

17 End Function

18 Public Function fx(f As String, x As Double) As Double

19 f = LCase(f)

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

21 End Function

这个积分的公式要求两个函数的参数都是：1.积分函数，自变量用x表示，x不区分大小写2.积分下限3.积分上限4.划分次数，不能大于32766，对于梯形积分，越大越接近真值，对于复化辛普生积分，没必要使用大的划分次数积分区间包含奇点（趋近于无穷的点），复化辛普生公式将不能正确积分。

1 Public Function 梯形积分（r As String, a As Double, b As Double, n As Integer） As Double2 Dim dx As Double, i As Integer3 dx = (b - a) / n4 For i = 1 To n5 梯形积分 = 梯形积分 + fx(r, (a + dx * (i - 1 / 2))) * dx6 Next i7 End Function8 Public Function 复化辛普生积分（r As String, a As Double, b As Double, n As Integer） As Double9 Dim dx As Double, i As Integer, m As Integer10 m = 2 * n11 dx = (b - a) / m12 复化辛普生积分 = fx(r, a) + fx(r, b)13 For i = 2 To m Step 214 复化辛普生积分 = 复化辛普生积分 + 4 * fx(r, (a + dx * (i - 1))) + 2 * fx(r, (a + dx * i))15 Next i16 复化辛普生积分 = （复化辛普生积分 - 2 * fx(r, (a + dx * m))) * dx / 317 End Function18 Public Function fx(f As String, x As Double) As Double19 f = LCase(f)20 fx = Evaluate(Replace(f, "x", x))21 End Function两个函数的参数都是1.积分函数，自变量用x表示，x不区分大小写2.积分下限3.积分上限4.划分次数，不能大于32766，对于梯形积分，越大越接近真值，对于复化辛普生积分，没必要使用大的划分次数积分区间包含奇点（趋近于无穷的点），复化辛普生公式将不能正确积分，将来可能会修正也希望高手出招调用方法：=梯形积分（"sin(x)^3-ln(x+1)^3+x^5-x", 0, 2, 2000)。

Excel中只能实现带积分符号的函数显示，而不能实现积分的运算。

显示函数可以使用插入公式来进行编辑显示。

专业的公式编辑器可以编辑所有的公式功能。它无论是Word、Excel还是PowerPoint中都可以使用。

退出公式编辑器就可以见到完整的公式了。

同时需要注意的是，公式编辑器是OFFICE在安装时的一个选项，如果在安装时此项没有选的话，是不能进行公式编辑的。遇到没有安装的情况，可以通过重新更改安装OFFICE来解决。

转载请注明出处办公知识网 » excel求积分的函数公式