（论文）化工辅助设计.doc

《化工计算机辅助设计》课程作业 班 级： 姓 名： 黎明东 学 号： 完成时间： 2011/06/20  目 录 TOC \o 1-3 \h \z HYPERLINK \l _Toc 第一部分 化工计算 PAGEREF _Toc \h 1 HYPERLINK \l _Toc §1 管路计算 PAGEREF _Toc \h 1 HYPERLINK \l _Toc 1. 给定管路网络计算 PAGEREF _Toc \h 1 HYPERLINK \l _Toc 2. 自定义管路网络计算 PAGEREF _Toc \h 1 HYPERLINK \l _Toc §2 换热器计算 PAGEREF _Toc \h 1 HYPERLINK \l _Toc 1. 套管换热器管长的计算 PAGEREF _Toc \h 1 HYPERLINK \l _Toc 2. 复杂列管式换热器操作计算 PAGEREF _Toc \h 1 HYPERLINK \l _Toc 第二部分 化工制图 PAGEREF _Toc \h 2 PAGE 6 化工计算 随着计算机在化学工程学科中的应用日趋广泛，利用计算机进行化工设计、化工模拟、化工过程控制变得越来越重要，工程师们可以从更深层次的理论角度建立过程模型，采用数学方法对过程进行较为详细的描述，并将由此建立过程模型开发计算机应用软件。化工生产过程示范复杂，但复杂过程总可以分解成若干个单元操作。通过个单元操作的模型建立的计算机程序模块，可以组装成复杂的计算机应用软件。。 管路计算 问题：(管径设计)已知参数：，，=P1-P2,=Z1-Z2,流量V,管长L,泵的流量特性He=f(V)计算管径 问题解决：可以用Excel，或VBA编写程序进行迭代计算，下面是用VBA编写的主要语句： 利用Churchill方程计算阻力系数： Function chur(re, eed) a = (2.457 * Log((7 / re) ^ 0.9 + 0.27 * eed)) ^ 16 b = (37530 / re) ^ 16 chur = 8 * ((8 / re) ^ 12 + 1 / (a + b) ^ 1.5) ^ (1 / 12) End Function 迭代计算： Do While Abs(u - ut) ep ut = u D = (4 * V / 3.14 / u) ^ 0.5 re = rou * u * D / miu eed = e / D lamda = chur(re, eed) u = (2 * D * hf * g / (lamda * L)) ^ 0.5 Loop 给定管给定管路网络计算 问题： 管路网络图： P(1)=4.1atm,P(5)=1.0atm D(1,2)=D(2,3)=D(3,4)=0.1 m D(1,4)=D(4,5)=0.075m L(1,2)= L(2,3)= L(3,4)=30m L(1,4)= L(4,5)=50m λ=0.01,kg/m^3 计算各自由节点的压力，各支路中的流量 问题解决：可以用Excel,或VBA编写程序进行迭代计算，用VBA迭代计算主要步骤如下： 对于INClD(i，j) 为T的管路，计算C (i，j) ；计算a(i，j) ; 对于PGIVEN(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) = 0.81056 * rou * lambda * L(i, j) / (D(i, j)) ^ 2 a(i, j) = (c(i, j) * Abs(P(i) - P(j))) ^ (-0.5) ap = ap + a(i, j) * P(j) aa = aa + a(i, j) End If Next j If aa 0 T