求高手教导,怎么用VB6.0编程计算气体压缩因子???!!!
大家好!我要用VB6.0编程计算气体的压缩因子,计算模型已经有了,由于本人愚钝,不知道如何编写,请求各位高手指导。计算模型如下:
在此先行谢过!! Visual?Basic?6.0 气体压缩因子 编程计算
[解决办法]
简单的做法
假设两个函数为 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