求用VB6编《凸极式同步发电机空载电压波形的预测计算》论文计算过程

long98194

要求用VB6.0或EXCEL2007编写，并提供原代码。
具体内容见附件！

yjhou

龙版，你自己编一个嘛

long98194

yjhou 发表于 2012-11-13 09:45
龙版，你自己编一个嘛

不会编积分函数呀，超版不想要500块大洋吗？

yjhou

long98194 发表于 2012-11-13 09:46
不会编积分函数呀，超版不想要500块大洋吗？

500大洋很吸引人的，要是用MATLAB我还行，VB咱不会啊。

ghugyul

积分函数不难编吧，牛顿-柯特斯公式，随便一本数值分析的书都会有，相信楼主能弄的出来的。

long98194

ghugyul 发表于 2012-11-13 11:19
积分函数不难编吧，牛顿-柯特斯公式，随便一本数值分析的书都会有，相信楼主能弄的出来的。

不会编积分函数呀，你不想要500块大洋吗？

long98194

我百度出来的仅供参考，500大洋还是等大家去拿
vb6.0怎样用辛普森法求积分
Private Function xinpusen(a As Single, b As Single, e As Single, he As Single) As Single
k = 2
s0 = 0
h = (b - a) / k
ya = hanshu(a)
yb = hanshu(b)
yi = hanshu(x = a + h)
p = ya + yb
d = yi
Do
s = (p + 4 * d) * h / 3
no = no + 1
If Abs(s - s0) <= e And h < he Then
xinpusen = s
Exit Function
Else
h = h / 2
k = k * 2
s0 = s
p = p + 2 * d
d = 0
For i = 1 To k - 1 Step 2
yi = hanshu(a + i * h)
d = d + yi
Next i
End If
Loop
End Function

需要参数：下限、上限、允许误差、最小划分宽度。
还需要自己协议各function，名字叫函数，一个参数，就是自变量，返回被积分函数的值

long98194

上传一下VB算法大全

omig001

龙哥还在么，我领取了可否，并随时升级改进。话说啥时候要啊

omig001

我来试试看吧

omig001

这干嘛的，真是军用的？

long98194

omig001 发表于 2012-11-18 21:56
龙哥还在么，我领取了可否，并随时升级改进。话说啥时候要啊

可以呀！！！！！！！！！！！！！！！

omig001

long98194 发表于 2012-11-19 07:51
可以呀！！！！！！！！！！！！！！！

抱歉，这两天有事耽搁了。现在程序主体基本写完了，之后关于数据有几个问题，有空沟通一下，要不没法和文章所给数据验证。

long98194

omig001 发表于 2012-11-22 11:52
抱歉，这两天有事耽搁了。现在程序主体基本写完了，之后关于数据有几个问题，有空沟通一下，要不没法和文 ...

加我QQ吧，是滴有必要沟通一下，我也正想找你聊呢

ChanFang

不会把  这么牛

long98194

omig001 发表于 2012-11-22 11:52
抱歉，这两天有事耽搁了。现在程序主体基本写完了，之后关于数据有几个问题，有空沟通一下，要不没法和文 ...

进度如何？？？？？？？？？？？？？？？？？？？？？