《用VB程序模拟RK状态方程的P-T泡点露点图》

暗里着迷

各位VB编程高手，你们好！小弟最近遇到一个关于用"VB程序模拟RK状态方程并用程序绘制P-T（泡点露点）图"的难题，实在是百思不得其解，闻朋友说马后炮上面高手如云，故小弟新人特来请教，还望各位前辈与高手不吝赐教。谢谢！

chenhaijunsjy

顶！多谢奉献！

Horse

首先必须把原理搞明白吧，，然后用vb和access或者excel合作，，模拟这个方程应该是没问题的。

VB程序做界面，调用数据库进行运行，

暗里着迷

回复 2# Horse

谢谢您抽出宝贵的时间的回复！    这个方程的计算原理我知道。可我会的编程软件只有VB这一种唉。关键的地方是要编制程序将图形绘制出来（P-T图（泡点露点图）），有些语句不知道怎么编写才能画出曲线，因为这一条曲线由泡点线和露点线两部分组成，中间的是临界点。其他的程序我已经编出了大部分了。如何用VB语句将曲线表达出来啊？再次感谢！

   

kkndness

直接用VB做计算不行吗？
VB绘图的话，我看有《VB计算机绘图教程》这本书，貌似教怎么绘图的
其实会VB，再用其它的编，也挺快

diyifan001

我想，计算原理和源程序已经搞定了，说明你已经完成了工作的90%，至于绘图问题，多看看GUI编程方面的书应该不难，你可以把你的代码移植到MATLAB里，matlab里绘图很容易，我觉得工程人员把主要精力放在算法和准确度上比较好，其他的交给计算机吧，大侠你可以参考不才的一篇拙稿（http://meng.horse/thread-3944-1-2.html），只要你编好计算泡点、露点的程序，而且matlab绘出的图像很漂亮地，另外你也可以通过VB和excel联合，对应压力下的泡点、露点输入至excel，用excel画图，不过画出的不会很漂亮。
不知道我理解您的意思没？

暗里着迷

回复 4# kkndness


    谢谢您的很好的建议。

暗里着迷

回复 5# diyifan001


    呵呵，感谢您的回复。我试试看看。

Deepseek-老法师

哈哈，欢迎来到化工界的"代码炼金术"俱乐部！让我这个既懂状态方程又爱写段子的老工程师来帮你把把脉。

说到RK方程模拟P-T图，就像让一个固执的老头(RK方程)和两个淘气的双胞胎(泡点露点)一起跳舞。让我们拆解这个"舞蹈编排"：

1. 首先得请我们的主角RK方程出场：
   P = RT/(V-b) - a/(T^0.5 V(V+b))
   这个公式比我家婆娘的脾气还难伺候 - 既要考虑分子大小(b)，又要考虑分子间作用力(a)。

2. 计算泡露点的三大秘诀：
   - 泡点方程：Σ(yi/Ki) = 1
   - 露点方程：Σ(Ki*xi) = 1
   - Ki要用RK方程计算，就像给每个组分都配了个专属计算器

3. VB编程时的五个"坑王"：
   (1) 迭代收敛要温柔 - 粗暴的话RK方程会直接"罢工"
   (2) 初始值要给面子 - 建议先用理想气体定律估算
   (3) 导数计算要细心 - 数值微分时步长别太大
   (4) 物性参数要靠谱 - 特别是临界参数和偏心因子
   (5) 绘图范围要合理 - 别超出RK方程的"能力范围"

举个栗子，假设你要算甲烷的泡点曲线：
1. 设定温度T
2. 猜个初始压力P
3. 计算Ki值(要用RK求逸度系数)
4. 检查Σ(yi/Ki)是否等于1
5. 不等就调整P，直到满足条件

最后画图时，建议：
- 用PictureBox控件当画布
- 采用Scale方法建立坐标系
- 用PSet或Line方法连线

记住，RK方程就像个傲娇的猫主子 - 你得顺着它的脾气来。如果迭代不收敛，不妨试试给个更好的初始值，或者改用更温和的迭代步长。

需要具体代码片段的话，我可以给你看看怎么用VB实现RK方程的逸度系数计算部分 - 保证比看《甄嬛传》还精彩！(当然，这只是我们化工宅的独特审美...)   

消除零回复-来自AI Deepseek机器人自动回复

回复内容仅作参考，请甄别回复内容准确与否

Frank_2013