1、精選優質文檔-傾情為你奉上 油庫設計與管理 實驗報告小組成員李偉王文康陳萬貴陳實曹增輝賴家鑫 學號 實驗名稱油庫設計與管理指導教師宋曉琴單位西南石油大學1題目來源某油庫的自流裝卸系統，如圖2所示，裝油管設置在集油管中部，且兩側鶴管同時裝油，兩側鶴管對稱布置。油庫油料為車用汽油，操作條件下車用汽油的粘度為 0.6×10-6m2/s，鶴管采用108×4的鋼管，鶴管計算長度為25m，鶴管間距為12.5m，集油管為273×6，輸油管為159×5，輸油管計算長度為1500m，油庫庫容為30000m3，單個罐的容量為3000m3，油罐內徑為16m，罐壁高度為15.8

2、5，罐出油口與裝油鶴管出口之間的高差為30m。（1）計算鶴分別管數為20和30，液位高度為3m和10m時所對應的各鶴管流量？（2）操作鶴管數為30，發油量為1500m3，開始發油時液位高度為12m ，計算發油時間？。2程序框圖：開 機輸入參數 n 計算常數 =+V(1) (1) hf1(1) u(1) hf2(1)i=2 to n/2(i)= (i-1)+ hf1(i) (i)+<+ YESu(i-1) (i) hf2(i) i<n/2=2(+)； = +hf1(1)+hf2(1)+hf2(n/2)+ <+Z YES輸出Q1(1)Q1（n/2）； 輸入發油量V0 算

3、Z1=Z0-V0/F；調用過程再算Q1T=2V0/（Q1+Q0）結 束3程序代碼3.1定義數據和數據輸入3.2系統常數3.3定義數組3.4計算過程3.5計算第一根鶴管Option Base 1Private Sub Command1_Click()'定義數據和數據輸入Dim dd, D, ll, L, D0, , H, J, aa, A, C1, C2, C3, , , t, S, E, Fdd = Text5D = Text4D0 = Text3N = Text1 = Text2ll = Text8L = Text7L0 = Text6S = Text10'系統常數H = 2

4、 * 0.00015 / ddJ = 2 * 0.00015 / Daa = 3.14 * dd 2 / 4A = 3.14 * D 2 / 4C1 = ll / (19.6 * dd)C2 = L / (19.6 * D)C3 = L0 / (19.6 * D0)'定義數組Dim Q0(50)Dim V0(50)Dim 0(50)Dim Re(50)Dim H0(50) As String * 5Dim vv(50, 50)Dim V(50, 50)Dim (50, 50)Dim (50, 50)Dim qq(50, 50)Dim Q(50, 50)Dim ReH(50, 50)Di

5、m ReJ(50, 50)Dim B(50, 50)'計算過程qq(1, 1) = 0.01 = 0.For i = 1 To 30'計算第一根鶴管 If i <> 1 Then qq(i, 1) = qq(i - 1, 1) + (i - 1) * End If Q(i, 1) = qq(i, 1) vv(i, 1) = qq(i, 1) / aa ReH(i, 1) = vv(i, 1) * dd / If ReH(i, 1) < 2000 Then (i, 1) = 64 / ReH(i, 1) ElseIf ReH(i, 1) < 3000 An

6、d ReH(i, 1) > 2000 Then (i, 1) = 0.16 / ReH(i, 1) 0.25 ElseIf ReH(i, 1) < 59.7 / H (8 / 7) And ReH(i, 1) > 3000 Then (i, 1) = 0.3164 / ReH(i, 1) 0.25 Else (i, 1) = (1 / (-1.8 * Log(6.8 / ReH(i, 1) + (H / 7.4) 1.11) / Log(10) 2 End If'計算第一段集油管 V(i, 1) = qq(i, 1) / A ReJ(i, 1) = V(i, 1) *

7、 D / If ReJ(i, 1) < 2000 Then (i, 1) = 64 / ReJ(i, 1) ElseIf ReJ(i, 1) < 3000 And ReJ(i, 1) > 2000 Then (i, 1) = 0.16 / ReJ(i, 1) 0.25 ElseIf ReJ(i, 1) < 59.7 / J (8 / 7) And ReJ(i, 1) > 3000 Then (i, 1) = 0.3164 / ReJ(i, 1) 0.25 Else (i, 1) = (1 / (-1.8 * Log(6.8 / ReJ(i, 1) + (J / 7

8、.4) 1.11) / Log(10) 2 End If '計算后面鶴管 For j = 2 To N qq(i, j) = qq(i, j - 1) Do qq(i, j) = qq(i, j) + 0.00001 vv(i, j) = qq(i, j) / aa ReH(i, j) = vv(i, j) * dd / If ReH(i, j) < 2000 Then (i, j) = 64 / ReH(i, j) ElseIf ReH(i, j) < 3000 And ReH(i, j) > 2000 Then (i, j) = 0.16 / ReH(i, j)

9、0.25 ElseIf ReH(i, j) < 59.7 / H (8 / 7) And ReH(i, j) > 3000 Then (i, j) = 0.3164 / ReH(i, j) 0.25 Else (i, j) = (1 / (-1.8 * Log(6.8 / ReH(i, j) + (H / 7.4) 1.11) / Log(10) 2 End If E = vv(i, j - 1) 2 / 19.6 + (i, j - 1) * C1 * vv(i, j - 1) 2 + (i, j - 1) * C2 * V(i, j - 1) 2 F = vv(i, j) 2

10、/ 19.6 + vv(i, j) 2 * (i, j) * C1 If Abs(E - F) < 0.05 Then Exit Do Loop'計算后面集油管 Q(i, j) = Q(i, j - 1) + qq(i, j) V(i, j) = Q(i, j) / A ReJ(i, j) = V(i, j) * D / If ReJ(i, j) < 2000 Then (i, j) = 64 / ReJ(i, j) ElseIf ReJ(i, j) < 3000 And ReJ(i, j) > 2000 Then (i, j) = 0.16 / ReJ(i,

11、j) 0.25 ElseIf ReJ(i, j) < 59.7 / J (8 / 7) And ReJ(i, j) > 3000 Then (i, j) = 0.3164 / ReJ(i, j) 0.25 Else (i, j) = (1 / (-1.8 * Log(6.8 / ReJ(i, j) + (J / 7.4) 1.11) / Log(10) 2 End If Next j'計算輸油管 Q0(i) = 2 * Q(i, N) V0(i) = 4 * Q0(i) / (3.14 * D0 2) = 2 * 0.00015 / D0 Re(i) = V0(i) * D

12、0 / If Re(i) < 2000 Then 0(i) = 64 / Re(i) ElseIf Re(i) < 3000 And Re(i) > 2000 Then 0(i) = 0.16 / Re 0.25 ElseIf Re(i) < 59.7 / (8 / 7) And Re(i) > 3000 Then 0(i) = 0.3164 / Re(i) 0.25 Else 0(i) = (1 / (-1.8 * Log(6.8 / Re(i) + ( / 7.4) 1.11) / Log(10) 2 End If H0(i) = 0(i) * C3 * V0

13、(i) 2 For j = 1 To N H0(i) = H0(i) + (i, j) * C1 * vv(i, j) + (i, j) * C2 * V(i, j) 2) * 2 Next j'顯示結果 List2.AddItem Q0(i) List1.AddItem H0(i)Next i'計算輸油時間 Text11 = H0(25) Text12 = H0(5) t = 2 * S * (H0(25) - H0(5) / (Q0(5) + Q0(25) * 3600) Text9 = tEnd Sub4程序說明4.1顯示封面窗體,啟動4.2單擊“計算”命令按鈕,封面窗體消失,顯示基本參數設置界面;此時如果單擊“退出”命令,則程序結束.4.3修改各個參數后,單擊“計算發油時間”命令按鈕,進入計算時間窗體;單擊“計算各鶴管流量”命令按