[原创]用工作表函数的数值积分方法

chenjun · 发表于 2003-5-23 19:43

见附件，供参考。
矩形公式法

nIzHiwOn.zip (4.82 KB, 下载次数: 5163)
梯形公式和辛普生公式http://club.excelhome.net/attach ... 2e&t=1238500603

[ 本帖最后由 chenjun 于 2009-3-31 20:02 编辑 ]

补充内容 (2013-5-4 08:14):
梯形公式和辛普生公式
http://club.excelhome.net/forum. ... 4fDU2NDZ8MTcwNzU%3D

hxhgxy · 发表于 2003-5-23 22:02

不错，有启发。

学生 · 发表于 2003-5-24 14:57

请教，X=Sheet1!$B$5+((ROW(Sheet1!$1:$500)-1)*10^n+ TRANSPOSE(ROW(OFFSET(Sheet1!$A$1,0,0,10^n,1))))*delta 是什么意思。

chenjun · 发表于 2003-5-24 15:06

(ROW(Sheet1!$1:$500)-1)*10^n+TRANSPOSE(ROW(OFFSET(Sheet1!$A$1,0,0,10^n,1))) 当n=1时，产生500行、10列的数组，为{1，2，...，10；11，12，...，20；...；4990，4991，...，5000} 当n=2和3时，你自己理解吧！

学生 · 发表于 2003-5-24 17:39

谢谢！那F_X=EVALUATE(Sheet1!$B$3&"+0*x")*delta 中为什么要用"+0*x"

chenjun · 发表于 2003-5-25 16:37

如不用+0*x，当Sheet1!$B$3中的被积函数为常数时（如3），F_X返回的是一个数值而不是数组，那么最后的计算结果是错误的，因x是一个数组，+0*x后返回的就是一个同x维数的数组，只是数组的每个元素的值相同。另如被积函数中有自变量x时，+0*x可省略。

学生 · 发表于 2003-5-26 18:42

谢谢！我明白了，送你一朵花。那么最高精度是将积分的上下限之间分为50万份了。积分式的显示是用链接至单元格的图片吧？

chenjun · 发表于 2003-5-27 14:53

不是图片，是链接至单元格的文本框。最高精度就是分为50万等份，可以实现更多的等份，但计算时间太长不实用，用我的方法的矩形数值积分肯定比用VBA快。

学生 · 发表于 2003-5-30 23:51

能做抛物线法的数值积分吗？那样精度更高而且速度更快。

[此贴子已经被作者于2003-5-30 23:51:36编辑过]

chenjun · 发表于 2003-8-2 17:46

终于做出来了，用梯形公式和辛普生公式的数值积分方法，见例。

c8OCGaZA.zip (42.75 KB, 下载次数: 9995)

		自动登录	找回密码
密码			免费注册

[原创]用工作表函数的数值积分方法

评分