您的位置：程序门 -> vb -> 基础类

vb 数学高手进下！！小弟跪请各位朋友指点

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb 数学高手进下！！小弟跪请各位朋友指点

发表于：2007-06-06 13:45:12 楼主

-（xx)/2
做了一个公式f（y)=（y-5)∫（-∞）e d（x)
y-5 和 -∞在∫上下 -（xx）/2是 e 的密数
代码为
public function f（byval x!) '被积函数
f = exp（（-0.5 * x ^ 2))
end function
public function trapez（byval a!, byval b!, byval n&) as single
'b、a分别为积分上下限，n为等分数
dim sum!, h!, x!, i&
h = （b - a) / n
sum = （f（a) + f（b)) / 2
for i = 1 to n - 1
x = a + i * h
sum = sum + f（x)
next i
trapez = sum * h
end function
那为朋友能帮我看下，万分感谢

发表于：2007-06-06 14:14:521楼得分:0

看着头晕

发表于：2007-06-06 14:20:452楼得分:0

各别符号不知道做啥滴

发表于：2007-06-06 14:34:563楼得分:0

什么问题,具体看什么?请说明

发表于：2007-06-06 15:42:264楼得分:0

看什么啊？调试错误吗？

发表于：2007-06-06 15:44:065楼得分:0

头晕，可以引用vba6.dll,然后直接用excel中的数学公式就出来了，不用这么麻烦的！

发表于：2007-06-06 20:00:256楼得分:0

是算一个积分，代码就是编哪个式子的
我看不懂啊。

发表于：2007-06-06 20:05:547楼得分:0

用 excel 怎么算那位朋友能给提示下么
最好代码

发表于：2007-06-06 20:17:148楼得分:0

会的朋友能不能告诉我下积分公式

发表于：2007-06-07 00:34:179楼得分:0

.............................................

发表于：2007-06-07 08:45:0010楼得分:0

public function trapez（byval a!, byval b!, byval n&) as single
'b、a分别为积分上下限，n为等分数
dim sum!, h!, x!, i&,f1!,f2!
h = （b - a) / n
f1=f（a)
sum=0
for i = 1 to n
x = a + i * h
f2=f（x)
sum = sum + （f1+f2)/2*h
f1=f2
next i
trapez = sum
end function

发表于：2007-06-07 14:37:1511楼得分:0

谢谢你
我的是高斯概率分布函数
好象有点不一样 f（a) 是什么啊

下一篇：求教各位高手，监控程序方面
上一篇：vb连接sql server,在线等,问题解决,立刻给分

其他资讯