论文化工辅助设计.doc

论文化工辅助设计.doc班级:姓名:学号:完成时间:08582901黎明东08582901022011/06/20第一部分化工计算 1§1管路计算 1给定管路网络计算 1自定义管路网络计算 3§2换热器计算 3套管换热器管长的计算 3复杂列管式换热器操作计算 4第二部分化工制图 6第一部分化工计算随着计算机在化学工程学科中的应用日趋广泛,利用计算机进行化工设计、化工模拟、化工过程控制变得越来越重要,工程师们可以从更深层次的理论角度建立过程模型,采用数学方法对过程进行较为详细的描述,并将由此建立过程模型开发计算机应用软件。化工生产过程示范复杂,但复朵过程总可以分解成若干个单元操作。通过个单元操作的模型建立的计算机程序模块,可以组装成复朵的计算机应用软件。。§1管路计算问题:(管径设计)已知参数:,,=P1-P2=Z1-Z2,流量V,管长L,泵的流量特性He二f(V)计算管径问题解决:可以用Excel,或VBA编写程序进行迭代计算,下而是用VBA编写的主要语句:利用Churchill方程计算阻力系数:Functionchur(re,eed)a=(*Log((7/re)+*eed))A16b=(37530/re)A16chur=8*((8/re)A12+1/(a+b))A(1/12)EndFunction迭代计算:DoWhileAbs(u-ut)>eput=uD=(4*V/)=rou*u*D/miueed=e/Dlamda=chur(re,eed)u=(2*D*hf*g/(lamda*L)):管路网络图:P(1)=4」atm,P(5)=(l,2)=D(2,3)=D(3,4)=0」mD(l,4)=D(4,5)=(l,2)=L(2,3)=L(3,4)=30mL(l,4)=L(4,5)=50mX=,kg/mA3计算各自由节点的压力,各支路屮的流量问题解决:可以用Excel,或VBA编写程序进行迭代计算,用VBA迭代计算主要步骤如下:•对于INClD(i,j)为T的管路,计算C(i,j);计算a(i,j);•对于PGIVEN⑴为F的节点,计算压强p(i);•重复以上两步直到各非自由节点压力迭代收敛•对于INClD(i,j)为T的管路,计算V(i,j)主要语句:DoWhileAbs(P(2)-pt(2))>epsAndAbs(P(3)-pt(3))>epsAndAbs(P(4)-pt(4))>epsFori=2To4aa=0:ap=0pt(i)=P(i)Forj=1To5IfinciD(i,j)=TrueThenc(i,j)=*rou*lambda*L(i,j)/(D(i,j))A2a(i,j)=(c(i,j)*Abs(P(i)-P(j)))A(-)ap=ap+a(i,j)*P(j)aa=aa+a(i,j)EndIfNextjIfaa<>0ThenP(i)=ap/aaNextiLoopFori=1To5Forj=1To5IfinciD(i,j)=TrueThenc(i,j)=*rou*lambda*L(i,j)/(D(i,j))A2a(i,j)=(c(i,j)*Abs(P(i)-P(j)))A(-)V(iJ)=a