【正文】 d0 = 所以 t = 28 依式318 《化工原理下》，計算塔板上鼓泡區(qū)面積Aa = 2[X (R2 –X2 ) + π/ 180R2arcsinX / R]R = D / 2 WC = / 2 = X = D / 2 (Wd +WS)= 所以Aa = 由圖82 《化工原理下》，得A0 / Aa =X / R = 所以由圖83得Aa = m2A0 = = m2由圖84得 n’ = 1000個/ m2 所以n = n’ Aa = m2 干板壓降 取板厚度為δ = 3 mm UOC = ( / ) = 精餾段：UO =≥ UOC hC = ρV1 UO2 / (2ρL1g) = 提餾段：UO =≥ UOC hC = ρV2 UO2 / (2ρL2g) = 塔板壓降 取充氣系數(shù)ξ0　= hC =ξ0 hC = = 液體表面張力所造成的阻力很小，忽略不計 因此氣流流徑一層塔板的壓降所相當(dāng)?shù)囊褐叨龋? HP = + = = 537pa淹塔 為了防止淹塔現(xiàn)象發(fā)生，要求控制降液管的液層高度≤φ（HT+ HW） hC = hP + hL+ hd ① hP = ② 液體流過降液管的壓頭損失，不設(shè)進(jìn)口堰。 Hd = ( LS / LWh0 )2 = ()2 = Hd = ( LS / LWh0 )2 = ()2 = ③ 板上液層高度 前面已選定板上液層高度 HL = 則Hd = + + = Hd = + + = 取φ= 又已選定HT = HW = φ（HT + HW）= （+） = Hd ＜φ（HT + HW） 符合防止淹塔的要求 液泛Hd1 = hP + hL+ hd = + + = Hd2 = + + = 2Hd1 HW = ＜ 2Hd1 HW = ＜ 所以不發(fā)生液泛Wf = LS / Af = 5678 104 / = m/sτ= HT / Wf = S 5S穩(wěn)定性 H6 = 46 / 96 d0 = UOm = C0(+hL H6）(ρLρV)1/2 = m/s K = UO / UOm = 塔的有效高h(yuǎn)1 = 15 = m 塔釜高度取下降液體在塔釜的停留時間為10min,則h2 = = m 除泡區(qū)高度 h3 = = m 封頭高度h4 = 2 = m 群座高度 h5 = m 所以塔高為：H = h1 + h2 + h3 + h4 + h5 = 附錄A積分法計算焓變的程序Private Sub Commandl_Click()Dim a As SingleDim b As SingleDim c As SingleDim d As SingleDim T1 As SingleDim T2 As SingleDim H As Singlea = b = c = d = T1 = + T2 = + H = a(T1 T2)+b(T1^2 T2^2) / 2+c(T1^3 T2^3) / 3 + d(T1^4 T2^4) / 4 = HEnd Sub附錄B高塔計算程序Dim d As Single, w As Single, f As Single, x1d As Single, x1w As SingleDim x2d As Single,x2f As Single,x2w As Single, bb(100)As Single, x1(100)As SingleDim y1(1 To 100) As Single,y2(1 To 100) As Single,x2(100) As SingleDim T(100) As Single,1(100) As Single,v(1 To 100) As Single,bv As Integer d = f = w = x1d = x2d = x1f = x2f = x1w = x2w = 1(0) = d v(1) = d T(0) = + 25 y1(1) = x1(0) = y2(1) = x2(0) = For j = 1 To 40 y1(j) = y1(j) y2(j) = y2(j) bb(j1) = bb(j1)GoSub 10 T(j) = T(j) x1(j) = x1(j) x2(j) = x2(j) bb(j) = x1(j) Print “T(“。j?！?=”。T(j) Print “x1 (“。j?！?=”。 x1 (j), “x2 (“。j?！?=”。 x2 (j) ‘打印If x1(j)＞＝x1f Then y1(j+1) = 1(j1)/v(j) x1(j) + d/ v(j) x1d y2(j+1) = 1y1(j+1) Print “y1 (“。j+1?！?=”。 y1(j+1), “y2 (“。j+1?！?=”。 y2(j+1) ‘打印 y1(j) = y1(j+1) y2(j) = y2(j+1)GoSub 10 T(j+1) = T(j) x1(j+1) = x1(j) x2(j+1) = x2(j)GoSub 30 v(j+1) = v(j+1) 1(j) = v(j +1) d Print “v (“。j+1。”)=”。 v(j+1), “1 (“。j?！?=”。 1(j) ‘打印Elself x1(j)＜x1f And x1(j) ＞x1w Then If bb(j1) ＞＝x1f Then m = j Print “第“；m?！眽K板為進(jìn)料板” ‘打印 v(j)= v(j) 1(j1) = 1(j1) + y1(j+1) = 1(j1) x1(j)/v(j)(fx1fdx1d)/v(j) y2(j+1) =1 – y1(j+1) Print “y1 (“。j+1。”)=”。 y1(j+1), “y2 (“。j+1?！?=”。 y2(j+1) ‘打印 y1(j) = y1(j+1) y2(j) = y2(j+1)GoSub 10 T(j+1) = T(j)bb(j) = x1(j) Print “T(“。j?！?=”。T(j) Print “x1 (“。j。”)=”。 x1 (j), “x2 (“。j。”)=”。 x2 (j) ‘打印If x1(j)＞＝x1f Then y1(j+1) = 1(j1)/v(j) x1(j) + d/ v(j) x1d y2(j+1) = 1y1(j+1) Print “y1 (“。j+1。”)=”。 y1(j+1), “y2 (“。j+1。”)=”。 y2(j+1) ‘打印 y1(j) = y1(j+1) y2(j) = y2(j+1)GoSub 10 T(j+1) = T(j) x1(j+1) = x1(j) x2(j+1) = x2(j)GoSub 30 v(j+1) = v(j+1) 1(j) = v(j +1) d Print “v (“。j+1?！?=”。 v(j+1), “1 (“。j?！?=”。 1(j) ‘打印Elself x1(j)＜x1f And x1(j) ＞x1w Then If bb(j1) ＞＝x1f Then m = j Print “第“；m?！眽K板為進(jìn)料板” ‘打印 v(j)= v(j) 1(j1) = 1(j1) + y1(j+1) = 1(j1) x1(j)/v(j)(fx1fdx1d)/v(j) y2(j+1) =1 – y1(j+1) Print “y1 (“。j+1?！?=”。 y1(j+1), “y2 (“。j+1?！?=”。 y2(j+1) ‘打印 y1(j) = y1(j+1) y2(j) = y2(j+1)GoSub 10 T(j+1) = T(j) x1(j+1) = x1(j) x2(j+1) = x2(j)GoSub 30 1(j) = v(j +1)+ w Print “v (“。j+1?！?=”。 v(j+1), “1 (“。j?！?=”。 1(j) ‘打印Else v(j)= v(j) 1(j1) = 1(j1) y1(j+1) = 1(j1) x1(j)/v(j)(fx1fdx1d)/v(j) y2(j+1) =1 – y1(j+1) Print “y1 (“。j+1?！?=”。 y1(j+1), “y2 (“。j+1?！?=”。 y2(j+1) ‘打印 y1(j) = y1(j+1) y2(j) = y2(j+1)GoSub 10 T(j+1) = T(j) x1(j+1) = x1(j) x2(j+1) = x2(j)GoSub 30 1(j) = v(j +1)+ w Print “v (“。j+1?！?=”。 v(j+1), “1 (“。j?！?=”。 1(j) ‘打印 End IfElse 0 = j Print “共有“；0；“塊塔板”Exit ForEnd IfNext jGoTo 100 `以上為主程序10 Dim a1 As Single, b1 As Single, c1 As Single, a2 As Single, b2 As Single Dim c2 As Single, cs As Single, k1 As Single, k2 As Single Dim p As Single, p1 As Single, p2 As Single, ft As Single,ftt As Double Cs = T(j1)20 p = 3800 a1 = b1 = c1 = a2 = b2 = c2 = p1 = Exp(a1b1/(c1+cs)) p2 = Exp(a2b2/(c2+cs)) k1 = p1/p k2 = p2/p x1(j) = y1(j)/k1 x2(j) = y2(j)/k2 ft = x1(j) + x2(j) 1 ftt = b1 x1(j)/(( c1+cs)( c1+cs))+ b2 x2(j)/(( c2+cs)( c2+cs)) If Abs(ft)＜＝ Then T(j) = csElse cs = cs +ft/ftt Goto 20 Return30 Dim hq(100) As Single, hh(100) As Double, ht1 As Single, ht2 As Single Dim h01As Single, h02As Single, pc1As Single, tc1As Single, h1As Single Dim pc2As Single, tc2As Single, cp1As Single, cp2As Single, g As Single Dim pr1As Single, tr1As Single, pr2As Single,tr2As Single,ca1As Single Dim cb1 As Single, cc1 As Single, cd1 As Single, ca2 As Single Dim cb2 As Single, cc2 As Single, cd2 As Single, h2 As Single Dim aa1 As Single, aa2 As Single, hh1 As Single, hh2 As Single pc1 = tc1 = + pc2 = 50 tc2 = 250 + h01 = 4781 h02 = 7653 p = 5 ca1 = cb1 = cc1 = cd1 = ca2 = cb2 = cc2 = cd2 = g = T(j1)GoSub 40 hh(j1) = hh1x1(j1)+ hh2x2(j1) g = T(j)GoSub 40 hq(j) = h1y1(j)+ h2y2(j) hh(j) = hh1x1(j)+ hh2x2(j) g = T(j+1)GoSub 40 hq(j+1) = h1y1(j+1)+ h2y2(j+1) v(j+1) = (v(j)hq(j) 1(j1)hh(j1)–dhh(j