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(Sheet1! $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宏表函数的一个扩展用法，可用于数组并返回数组。
excel函数数组公式编辑方法5.界面是一些雕虫小技，单选框是用“窗体”工具做的。
6.本表已被保护，密码是chenjun
=4/(1+x*x)
0.40.50.60.70.80.91
x值数组，X_s生成辛普生法奇数分割点的x值数组。法偶数分割点的函数值数组，

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。