4/(1+x*x)0123.141594/(1+x*x)dx=3.14159265358979说明:1.在B3格中输入被积函数f(x),不要等号。2.在B5、B7格中输入上下限,注意f(x)在上下限之间均应有效。3.定义的名称如下a=Sheet1!$B$5b=Sheet1!$B$7delta=(b-a)/100000fx=Sheet1!$B$3fx_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)数值积分的计算(Chenjun青牛在线)请输入被积函数f(x)=请输入积分下限请输入积分上限请选择方式梯形公式,低精度辛普生公式,高精度∫104/(1+x*x)dx=3.1415926535897900.511.522.533.544.500.20.4f(x)=4/(1+x*x)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$10X=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)/1000Sheet1!y_tu=EVALUATE(SUBSTITUTE(SUBSTITUTE(UPPER(fx),X,x_tu),Ex_tuP(,EXP()&+0*x_tu)+0*a*b其中delta生成x的分割间距,X生成梯形法每个分割点及辛普生法偶数分割点的x值数组,X_s生成辛普生法奇数分割点的x值数组。fx_a和fx_b为积分上下限处的函数值,fx_t为生成梯形法每个分割点和辛普生法偶数分割点的函数值数组,fx_s为辛普生法奇数分割点的函数数组。n为积分方式控制值,1为梯形公式,2为辛普生公式。Integral_Fx为依据积分方法控制值n将每个小条的面积总和,即f(x)函数的数值积分。x_tu和y_tu是生成图表系列线公式中的两个系列数组。4.实质本例主要是介绍EVALUATE宏表函数的一个扩展用法,可用于数组并返回数组。5.界面是一些雕虫小技,单选框是用“窗体”工具做的。6.本表已被保护,密码是chenjunf(x)=4/(1+x*x)0.60.811.2f(x)=4/(1+x*x)其中delta生成x的分割间距,X生成梯形法每个分割点及辛普生法偶数分割点的x值数组,X_s生成辛普生法奇数分割点的x值数组。fx_a和fx_b为积分上下限处的函数值,fx_t为生成梯形法每个分割点和辛普生法偶数分割点的函数值数组,