用Excel计算积分？如何进行？

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，对于梯形积分，越大越接近真值，对于复化辛普生积分，没必要使用大的划分次数积分区间包含奇点（趋近于无穷的点），复化辛普生公式将不能正确积分，将来可能会修正也希望高手出招调用方法：=梯形积分("sin(x)^3-ln(x+1)^3+x^5-x",
0,
2,
2000)

Excel中暂时没有现成的求积分的方法。
　　网上有很多软件都可以求积分的。譬如:Wolfram
Mathematica
8。
　　积分是微分的逆运算，即知道了函数的导函数，反求原函数。在应用上，积分作用不仅如此，它被大量应用于求和，通俗的说是求曲边三角形的面积，这巧妙的求解方法是积分特殊的性质决定的。