如何计算一函数的积分值

superwxh 2003-05-16 09:30:37
请问如何用vb编写一个计算函数积分的程序。我的问题是求∫F(x)dx 此处x为(0,25) f(x)=λ^(-(x-u)^2/(2*a^2))/a*sqrt(2π)
...全文
13 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
liu584 2003-05-17
用梯形的逐次分半法
Dim i As Long
Dim n As Long
Dim h As Double
Dim T0 As Double
Dim T As Double
Dim F As Double
Dim Distant As Double
n = 1
h = (Unum - Lnum) / 2
T0 = h * f(0)+ f(25)
Do
F = 0
For i = 1 To n
F = F + f(2 * i - 1) * h)
Next i
T = T0 / 2 + h * F
Distant = T - T0
'为下一次做准备
n = 2 * n
h = h / 2
T0 = T
Loop While (Abs(Distant) > 3 * ExpectError)
Answer= T
其中ExpectError是需要的精度。
回复
zqfleaf 2003-05-16

先取步长dx=0.1(根据精度需要)
x0=0
x=25
x1=x0
s=0
for x1=x0+dx to x step dx
s=s + (f(x1-dx)+ f(x1))*dx/2
next
dx取值越小,s的结果越正确
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-16 09:30
社区公告
暂无公告