求高手教导,怎么用VB6.0编程计算气体压缩因子???!!!

明叶 2013-05-15 10:50:14

大家好!我要用VB6.0编程计算气体的压缩因子,计算模型已经有了,由于本人愚钝,不知道如何编写,请求各位高手指导。计算模型如下：

在此先行谢过!!

...全文

291 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

明叶 2013-05-15

打赏
举报

这是一个二元方程.需要联立两个方程才能解出来,如果直接转换可以吗?

worldy 2013-05-15

打赏
举报

将函数式转换为VB规范的表达式就行了，其中平方：A^2 三次方：A^3 指数：exp(幂计数式)

VBToy 2013-05-15

打赏
举报

楼上给出的解方程的算法效率极低，可以用牛顿迭代法或二分法来解。参考http://bbs.csdn.net/topics/390086619

明叶 2013-05-15

打赏
举报

感谢大神指点！

of123 2013-05-15

打赏
举报

例如，首先给定一个非零的 Z 假设值，求出 ρr；代入 Z 的公式求出 Z 的结果值。然后，就是比较假设值和结果值。根据误差调整假设值，重复上列计算。直至误差小于可接受的范围。

of123 2013-05-15

打赏
举报

的确，楼上给出的就是计算机解此类问题的典型思路。从一个未知数的起始值出发，向解逼近。但一般不能以等式终结，而是给出一个可接受的误差范围。在范围内就认为是解了。

worldy 2013-05-15

打赏
举报

dim bMarch as boolean Rumr=Rmin DR=0.000001'假设 do while Rumr<=Rmax Zi=f(Rumr) if abs(Rumr -g(zi))<Err then bMarch =true exit do end if Rumr=Rumr+DR loop if bmarch then msgbox "解为Z=“&cstr(z)& "Rumr="&cstr(Rumr) else msgbox "在。。。范围内，没有找到有效解" end if

worldy 2013-05-15

打赏
举报

简单的做法假设两个函数为 Z=f（Rumr）和 Rumr=g（Z）假设Rumr可能的值范围为 Rmin-Rmax 假设一个允许的误差 Err 假设分辨率为DR dim bMarch as boolean Rumr=Rmin DR=0.000001'假设 do Zi=f(Rumr) if abs(Rumr -g(zi))<Err then bMarch =true exit do end if Rumr=Rumr+DR loop if bmarch then msgbox "解为Z=“&cstr(z)& "Rumr="&cstr(Rumr) else msgbox "在。。。范围内，没有找到有效解" end if

明叶 2013-05-15