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 =EVALUATE(SUBSTITUTE(SUBSTITUTE(UPPER(fx),"X","a"),"EaP( fx_a ","EXP(")) =EVALUATE(SUBSTITUTE(SUBSTITUTE(UPPER(fx),"X","b"),"EbP( fx_b ","EXP(")) =IF(n=2,EVALUATE(SUBSTITUTE(SUBSTITUTE(UPPER(fx),"X","X_ fx_s s"),"EX_sP(","EXP(")&"+0*X_s"),0) fx_t =EVALUATE(fx&"+0*x")
f(x)=4/(1+x*x)
f(x)=4/(1+x*x)
0.4
0.5
0.6
0.7
0.8
0Baidu Nhomakorabea9
1
x值数组，X_s生成辛普生法奇数分割点的x值数组。 法偶数分割点的函数值数组，
=IF(n=1,SUM(fx_t,(fx_afx_b)/2)*delta,SUM(2*fx_t,4*fx_s,fx_a-fx_b)*delta/3) =Sheet1!$B$10 =IF(n=1,a+((ROW(Sheet1!$1:$10000)1)*10+TRANSPOSE(ROW(Sheet1!$1:$10)))*delta,a+ROW(Sheet1! X $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 =EVALUATE(SUBSTITUTE(SUBSTITUTE(UPPER(fx),"X","x_tu"),"E Sheet1!y_tu 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 Integral_Fx n
数值积分的计算(Chenjun青牛在线)
请输入被积函数f(x)= 4/(1+x*x) 请输入积分下限 请输入积分上限 0 1
请选择方式
梯形公式，低精度 辛普生公式，高精度
2 #NAME? #NAME?
∫
0
1
#NAME?
f(x)=4/(1+x*x)
1.2
1
0.8
0.6
0.4
0.2
0 0 0.1 0.2 0.3