Excel公式数值积分样例

Excel公式数值积分样例
1.在B3格中输入被积函数f(x)，不要等号。

2.在B5、B7格中输入上下限，注意f(x)在上下限之间均应有效。

3.定义的名称如下
a=Sheet1!$B$5
b=Sheet1!$B$7
delta=(b-a)/100000
fx=Sheet1!$B$3
fx_a
=EVALUATE(SUBSTITUTE(SUBSTITUTE(UPPER(fx),"X","a"),"EaP( ", "EXP("))
fx_b
=EVALUATE(SUBSTITUTE(SUBSTITUTE(UPPER(fx),"X","b"),"EbP( ", "EXP("))
fx_s
=IF(n=2,EVALUATE(SUBSTITUTE(SUBSTITUTE(UPPER(fx),"X","X_ s"),"EX_sP(","EXP(")&"+0*X_s"),0)
fx_t=EVALUATE(fx&"+0*x")
0.2
0.4
0.6
0.8
1
1.2
00.10.20.3
f(x)=4/(1+
Integral_Fx =IF(n=1,SUM(fx_t,(fx_a-
fx_b)/2)*delta,SUM(2*fx_t,4*fx_s,fx_a-fx_b)*delta/3)
n=Sheet1!$B$10
X =IF(n=1,a+((ROW(Sheet1!$1:$10000)-
1)*10+TRANSPOSE(ROW(Sheet1!$1:$10)))*delta,a+ROW(Sh eet1! $1:$50000)*2*delta)
X_s=IF(n=2,a+(ROW(Sheet1!$1:$50000)*2-1)*delta,0) Sheet1!x_tu=a+(ROW(Sheet1!$1:$1001)-1)*(b-a)/1000 Sheet1!y_tu
=EVALUATE(SUBSTITUTE(SUBSTITUTE(UPPER(fx),"X","x_tu"),"E x_tuP(","EXP(")&"+0*x_tu")+0*a*b
其中delta生成x的分割间距，X生成梯形法每个分割点及辛普生法偶数分割点的x值数组，X_s生成辛普生fx_a和fx_b为积分上下限处的函数值，fx_t为生成梯形法每个分割点和辛普生法偶数分割点的函数值数组fx_s为辛普生法奇数分割点的函数数组。

n为积分方式控制值，1为梯形公式，2为辛普生公式。

Integral_Fx为依据积分方法控制值n将每个小条的面积总和，即f(x)函数的数值积分。

x_tu和y_tu是生成图表系列线公式中的两个系列数组。

4.实质本例主要是介绍EVALUATE宏表函数的一个扩展用法，可用于数组并返回数组。

5.界面是一些雕虫小技,单选框是用“窗体”工具做的。

6.本表已被保护，密码是chenjun
=4/(1+x*x)
0.40.50.60.70.80.91
x值数组，X_s生成辛普生法奇数分割点的x值数组。

法偶数分割点的函数值数组，。