资源描述：
《化工计算机辅助设计论文》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、《化工计算机辅助设计》课程作业专业：化学工程与工艺姓名：范青海序号：0858290104完成时间：2010/06/117目录化工计算3§1物性数据库：3§2管路计算41.简单管路计算42.给定管路网络计算4§3换热器计算51.列管式换热器出口温度计算52.套管换热器管长的计算5化工制图77化工计算随着计算机在化学工程学科中的应用日趋广泛，利用计算机进行化工设计、化工模拟、化工过程控制变得越来越重要，工程师们可以从更深层次的理论角度建立过程模型，采用数学方法对过程进行较为详细的描述，并将由此建立过程模型开发计算机应用软件。化工生产过程示范复杂，但复杂过程总可以分解成若干个单元操作。通过个单元操
2、作的模型建立的计算机程序模块，可以组装成复杂的计算机应用软件。§1物性数据库：热力学性质:导热系数、粘度、扩散系数传递性质:密度或比容、压缩因子、比热容、焓、熵、自由能、生成热、反应热、以及进行汽液平衡常数计算所需的逸废系数、活度系数等等数据型数据:与状态（温度或压力）无关这类数据库较简单，只要知道物质名称就可以检查所要的无形数据。数值型数据:与状态（温度或压力）有关数值型数据必须通过计算才能得到相应的数据。问题：在原有的数据库中添加化合物中文名称，修改程序让使用数据库时既可以用英文名也可以用中文名问题解决：中文名检索部分：1、在DATA工作表添加中文名称一列(AT)，把化合物名称翻译成中文
3、2、在VBA中，在物性检索窗口添加“中文名称”复合框3、把该复合框的Rowsource属性赋值为：=[物性数据库.xla]Data!AT7:AT4744、把该复合框的Change事件编写如下PrivateSubComboBox2_Change()I=ComboBox2.ListIndex+7LoadDataComboBox1.Text=Data.Cells(I,2).ValueEndSub函数部分：为了在使用AntoineP,AntoineT,Cp,HaflacherP,Viscosity时可以用中文名，在VBA中修改Index函数如下：检查输入名称的最后一个符号，如果是英文字母就根据英文名
4、查找，如果是汉字就根据中文名查找（逐个查找）x=Asc(Mid(Name,Len(Name)))Ifx<122Andx>0Then……（根据英文名查找）7Else（按中文名查找）Forj=7To474IfData.Cells(j,46).Value=NameThenIndex=jExitFunctionEndIfNextjEndIf§1管路计算1.简单管路计算问题：(管径设计)已知参数：ρ，μ，ε，∆P=P1-P2,∆Z=Z1-Z2,流量V,管长L,泵的流量特性He=f(V)计算管径问题解决：可以用Excel，或VBA编写程序进行迭代计算，下面是用VBA编写的主要语句：利用Churchill
5、方程计算阻力系数λ：Functionchur(re,ee)a=(2.457*Log((7/re)^0.9+0.27*ee))^16b=(37530/re)^16chur=8*((8/re)^12+1/(a+b)^1.5)^(1/12)EndFunction迭代计算：DoWhileAbs(u-ut)>eput=uD=(4*V/3.14/u)^0.5re=rou*u*D/miuee=e/Dlambda=chur(re,ee)u=(2*D*hf*g/(lambda*L))^0.5Loop2.给定管路网络计算问题：管路网络图：P(1)=4.1atm,P(5)=1.0atmD(1,2)=D(2,3)=
6、D(3,4)=0.1mD(1,4)=D(4,5)=0.075mL(1,2)=L(2,3)=L(3,4)=30mL(1,4)=L(4,5)=50mλ=0.01,ρ=1000kg/m^3计算各自由节点的压力，各支路中的流量7问题解决：可以用Excel,或VBA编写程序进行迭代计算，用VBA迭代计算主要步骤如下：n对于INClD(i，j)为T的管路，计算C(i，j)；计算a(i，j);n对于PGIVEN(i)为F的节点，计算压强p(i);n重复以上两步直到各非自由节点压力迭代收敛n对于INClD(i，j)为T的管路，计算V(i,j)主要语句：DoWhileAbs(P(2)-pt(2))>epsAn
7、dAbs(P(3)-pt(3))>epsAndAbs(P(4)-pt(4))>epsFori=2To4aa=0:ap=0pt(i)=P(i)Forj=1To5IfinciD(i,j)=TrueThenc(i,j)=0.81056*rou*lambda*L(i,j)/(D(i,j))^2a(i,j)=(c(i,j)*Abs(P(i)-P(j)))^(-0.5)ap=ap+a(i,j)*P(j)aa=aa+a(i
