化工计算机辅助设计论文.docx

化工计算机辅助设计》
课程作业
专业：化学工程与工艺 姓名：范青海 序号：0858290104 完成时间：2010/06/11
目录
化工计算 1
§1 物性数据库： 1
§2 管路计算 2
1. 简单管路计算 2(i)为F的节点，计算压强p(i);
重复以上两步直到各非自由节点压力迭代收敛
对于INClD(i，j)为T的管路，计算V(i,j)
主要语句：
Do While Abs(P(2) - pt(2)) > eps And Abs(P(3) - pt(3)) > eps And Abs(P(4) - pt(4)) > eps
For i = 2 To 4
aa = 0: ap = 0
pt(i) = P(i)
For j = 1 To 5
If inciD(i, j) = True Then
c(i, j) = * rou * lambda * L(i, j) / (D(i, j))人 2
a(i, j) = (c(i, j) * Abs(P(i) - P(j)))人(-)
ap = ap + a(i, j) * P(j)
aa = aa + a(i, j)
End If
Next j
If aa <> 0 Then P(i) = ap / aa
Next i
Loop
For i = 1 To 5
For j = 1 To 5
If inciD(i, j) = True Then
c(i, j) = * rou * lambda * L(i, j) / (D(i, j))人 2
a(i, j) = (c(i, j) * Abs(P(i) - P(j)))人(-)
V(i, j) = a(i, j) * (P(i) - P(j))
End If
Next j
Next i
§3 换热器计算
化学工业与传热的关系十分密切，许多化工过程和操作都涉及加热或冷却。 此外，化工设备的保温、生产热能的合理利用等均涉及传热。故而，在化工生产 中对传热现象的利用和控制有普遍的重要意义。
列管式换热器出口温度计算
问题：已知冷热流体的流量(WC,WH)、热熔(CPC,CPH)、进口温度，传 热系数K，。(操作型计算问题)
问题解决：可以用excel,或VBA进行迭代求解。用VBA迭代循环如下： Do While Abs(X - XT) > And Abs(Y - YT) >
XT = X: YT = Y
e = Abs(TC1 - Y - X + TH1)
F = Abs((TC1 - Y) / (X - TH1))
ATM = e / Log(F)
X = TC1 - K * a * ATM / (WC * CPC)
Y = TH1 + K * a * ATM / (WH * CPH)
Loop
套管换热器管长的计算
问题：已知冷热流体的操作条件(Tol,To2,Til,Ti2,Wi,Wo),冷热流体物性估 算公式(Cp、久、p、Q (可以从物性数据库查询、调用这些公式的参数)以 及套管换热器横向尺寸( D,do,di, .计算管长。(设计型计算问题,
问题解