化工课程设计说明书05附录

1、酒精连续精馏板式塔结构设计 第（ ）页罗刚 09过控 200930051435 第四部分 设计结果汇总 项目数值塔板数N塔径D（m）塔高Et（m）塔板距Ht（m）回流比R操作压强空塔气速u（m/s）堰长lw（m）堰高hw（m）板上液层高度hl(m)浮阀孔数N（个）阀孔气速uo（m/s）阀孔动能因数孔间距（m）降液管内清夜高度（m）单板压降（Pa）液体停留时间（s）泛点率（%）液相负荷下限Lsmin（m3/s）液相负荷上限Lsmax（m3/s）漏夜线Vsmin（m3/s）雾沫夹带线Vsmax（m3/s）操作弹性冷却水用量（Kg/s）附属设备型号的选择预热器型号数量 个全凝器型号数量 个冷却器型号

2、数量 个进料泵型号数量 个冷却水泵型号数量 个第六部分 参考资料1伍钦，梁坤.板式精馏塔设计.北京：化学工业出版社，2010年8月2伍钦，钟理，马四朋.化工原理（上册）.北京：化学工业出版社，2008年8月3伍钦，钟理，曾朝霞.化工原理（下册）.北京：化学工业出版社，2008年8月4伍钦，邹华生，高桂田.化工原理实验.广州：华南理工大学出版社，2008年8月5朱有庭.化工设备设计手册. 北京：化学工业出版社，2005年6月6郑津洋，董其伍，桑芝富. 过程设备设计. 北京：化学工业出版社，2010年6月7古国榜.大学化学教程.北京：化学工业出版社，2009年5月 PAGE 9酒精连续精馏板式塔结

3、构设计 第（ ）页罗刚 09过控 200930051435 第七部分 附录7.1 VB程序界面及运行结果1)界面2)运行结果7.2 VB程序源代码Public changeline As StringPublic R As DoublePublic rmin As DoublePublic xqd, yqd As DoubleDim lj, vj, lt, vt As DoublePublic q, xqp, yqp, xq, yq, xd, xw, xf As DoublePublic d, b, f, v0 As DoublePublic Function pingheng(ByVal x

4、) As Double 平衡函数Dim b1 As Double, b2 As Double, b3 As Double, t As Double, z1 As Double, z2 As Double b1 = 0.2163 b2 = 0.8158 b3 = 2.2076 z1 = x + b1 * (1 - x) z2 = 1 - x + b2 * x t = b3 * x * z2 * Exp(b1 / z1 - b2 / z2) / z1 / (1 - x) pingheng = t / (t + 1)End FunctionPrivate Function molfenlv(kgfe

5、nlv As Double) As Double 换算成摩尔分率 molfenlv = (kgfenlv / 46) / (kgfenlv / 46 + (1 - kgfenlv) / 18)End FunctionPrivate Sub biaozhuprint(x As Double, y As Double, biaozhu As String) print words in the picturePicture1.CurrentX = xPicture1.CurrentY = yPicture1.Print biaozhuEnd SubPrivateSub Form_Load() se

6、t the form firstlyDim i As DoublePicture1.AutoRedraw = TruePicture1.ClsPicture1.Scale (-6, 106)-(106, -6)Picture1.Line (0, 0)-(0, 100)Picture1.Line (0, 0)-(100, 0)Picture1.Line (0, 100)-(100, 100)Picture1.Line (100, 0)-(100, 100)Call biaozhuprint(-2, -1, 0)Call biaozhuprint(98, -1, 100)Call biaozhup

7、rint(-5, 101, 100)Call biaozhuprint(101, 2, x(%)Call biaozhuprint(0, 105, y(%)For i = 10 To 90 Step 10Picture1.Line (i, 0)-(i, 100), &HC0C0&Picture1.Line (0, i)-(100, i), &HC0C0&Call biaozhuprint(i - 2, -1, Str(i)Call biaozhuprint(-5, i + 1, Str(i)Next iPicture1.Line (0, 0)-(100, 100)Picture1.AutoRe

8、draw = FalseEnd SubPrivate Sub Command1_Click()Dim moltokg As DoubleDim dd As DoubleDim k1, k2, k3, kq As DoubleDim x, y As DoubleDim shicha As Doublexf = molfenlv(Val(Text1(0).Text) * 0.01)xd = molfenlv(Val(Text1(1).Text) * 0.01)xw = molfenlv(Val(Text1(2).Text) * 0.01)dd = Val(Text2.Text) / 24molto

9、kg = 46 * xd / (46 * xd + (1 - xd) * 18)d = (Val(Text2.Text) / 24) * moltokg / 46 + (Val(Text2.Text) / 24) * (1 - moltokg) / 18f = d * (xd - xw) / (xf - xw)v0 = (1 + R) * db = f - d + v0Picture1.Line (100 * xd, 100 * xd)-(100 * xd, 0), &H808080Picture1.Line (100 * xw, 100 * xw)-(100 * xw, 0), &H8080

10、80Picture1.Line (100 * xf, 100 * xf)-(100 * xf, 0), &H808080For x = xd - 0.0002 To 0.0001 Step -1 / 10000 k1 = (pingheng(x + 0.0001) - xd) / (x + 0.0001 - xd) k2 = (pingheng(x) - xd) / (x - xd) k3 = (pingheng(x - 0.0001) - xd) / (x - 0.0001 - xd) If (k1 k3) Or (k1 k2 And k2 k3) Then Exit For End IfN

11、ext xrmin = k2 / (1 - k2)For x = 0.001 To 100 Step 1 / 1000 y = 100 * pingheng(0.01 * x) Picture1.PSet (x, y), RGB(255, 0, 0)Next xFor x = 100 * xd To 0 Step -1 / 1000 y = (x - 100 * xd) * rmin) / (rmin + 1) + 100 * xd Picture1.PSet (x, y), RGB(0, 255, 0)Next xchangeline = Chr(13) + Chr(10)Text4.Tex

12、t = Text4.Text = F & Format(f, #.#) & (kmol/h)Text4.Text = Text4.Text & changeline & D & Format(d, #.#) & (kmol/h)Text4.Text = Text4.Text & changeline & B & Format(b, #.#) & (kmol/h)Text4.Text = Text4.Text & changeline & changeline & xf & Format(xf, 0.#)Text4.Text = Text4.Text & changeline & xd & Fo

13、rmat(xd, 0.#)Text4.Text = Text4.Text & changeline & xw & Format(xw, 0.#)Text4.Text = Text4.Text & changeline & changeline & q & Format(1, #.#)Text4.Text = Text4.Text & changeline & changeline & Rmin= & Format(rmin, #.#)Command2.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click(

14、)Dim N, nj, nt As DoubleDim yyf As DoubleDim x, y As DoubleDim s, u As DoubleDim yo As DoubleDim xxb As Doublelj = R * dvj = lj + dlt = lj + q * fvt = vj + (q - 1) * fR = Val(Text3.Text)yyf = R * (xf - xd) / (R + 1) + xdFor y = 100 * xf To 100 * (pingheng(xf) + 5 Step 1 / 1000 Picture1.PSet (100 * x

15、f, y), &H80FF&Next yFor x = 100 * xd To 0 Step -1 / 100 y = 100 * R * (0.01 * x - xd) / (R + 1) + 100 * xd Picture1.PSet (x, y), &HFF00FF If x = 100 * xf Then y = (x - 100 * xw) * (yyf - xw) / (xf - xw) + 100 * xw Picture1.PSet (x, y), &HFF00FF End IfNext xN = 0s = 100 * xdu = 100 * xdDo Until u 100

16、 * xf Then yo = 100 * R * (0.01 * x - xd) / (R + 1) + 100 * xd nj = N - 1 Else yo = (x - 100 * xw) * (yyf - xw) / (xf - xw) + 100 * xw End If y = 100 * pingheng(0.01 * x) If y s Then Picture1.PSet (x, s), &HFF8080 Else: Exit For End If Next x xxb = u u = x Call biaozhuprint(x - 3, y + 3, Str(N) For

17、y = s To yo Step -1 / 1000 Picture1.PSet (x, y), &HFF8080 Next y s = yLoopnt = N - njText4.Text = Text4.Text & changeline & changeline & 理论塔板数: N= & Format(N, #) & (包括再沸器)Text4.Text = Text4.Text & changeline & 精馏段板数: N1= & Format(nj, #)Text4.Text = Text4.Text & changeline & 提馏段板数: N2= & Format(nt, #

18、)Text4.Text = Text4.Text & changeline & 进料板是第 & Format(nj + 1, #) & 块Command2.Enabled = FalseCommand3.Enabled = TrueEnd SubPrivate Sub Command3_Click()Command1.Enabled = TrueCommand2.Enabled = FalseText4.Text = Dim i As DoublePicture1.AutoRedraw = TruePicture1.ClsPicture1.Scale (-6, 106)-(106, -6)Picture1.Line (