基于VB和Access的高壓CO2滅火系統管網計算

張宜

(南京消防器材股份有限公司，江蘇 南京 211112)

0 引言

在高壓CO2滅火系統的設計過程中，先根據保護區凈體積和滅火濃度等參數確定CO2藥劑用量和需要的鋼瓶數量，再根據藥劑用量確定噴放流量。已知主干管流量、管網布置和管路長度后，可確定管網參數，如各管段流量、管徑、終端壓力和噴頭等效孔口面積等，最終得到管道公稱直徑和噴頭型號。

依據GB 50193—93 《二氧化碳滅火系統設計規范(2010年版)》[1]和美標規范[2]，在計算過程中需要根據計算結果多次查找管道附件當量表、管道規格表、高程校正系數、等效孔口面積等，如果是均衡管網，則計算過程可以適當簡化，如果是非均衡管網，則計算過程非常煩瑣。本文利用VB和Access數據庫技術實現了對管網中管網參數的計算，以及管道公稱直徑和噴頭型號的自動選取，大大提高了CO2滅火系統設計和計算的效率，減小了工程設計人員的工作量。

1 管網計算

1.1 管網設計流量計算

管網中干管的流量計算公式為

Q=M/t

(1)

式中：

Q為干管流量，kg/min；

M為藥劑用量，kg；

t為噴放時間，min。

管網中支管的設計流量計算公式為

(2)

式中：

Ng為安裝在計算支管流程下游的噴頭數量；

Qi為單個噴頭的設計流量，kg/min。

1.2 管徑選取

管道內徑的計算公式為

(3)

式中：

D為管道內徑，mm；

Kd為管徑系數。

GB 50193—93 《二氧化碳滅火系統設計規范(2010年版)》給出的Kd取值范圍是1.41～3.78，推薦范圍是2～2.5，本文取2.2。

根據計算出的管道內徑值，通過查找規范中二氧化碳滅火系統管道規格表來確定管道的公稱直徑。

1.3 管段長度的計算

管段計算長度包括管段長度、管接件當量長度和其他管道附件當量長度：

L=Lg+Lj+Ld

(4)

式中：

L為管段計算長度，m；

Lg為管段長度，m；

Lj為管接件當量長度，m；

Ld為其他附件當量長度，m。

管段長度是實際管子長度；管接件是三通、彎頭、變徑接頭等，不同公稱直徑的管接件的當量長度也不同，具體數值要參照規范中管道附件的當量長度表；其他附件如虹吸管、金屬軟管等的當量長度應根據具體項目去取值，這些長度的總和為管段計算長度，管段計算長度用于計算管段壓力降。

1.4 管道壓力降計算

采用規范中的壓力損失計算方法非常煩瑣，而且需要多次查找壓力系數和密度系數表。

管段壓力降的計算公式為

(5)

根據該式求取管道壓力降是非常困難的，因此將式(5)變換成下面的形式：

Y2=Y1+ALQ2+B(Z2-Z1)Q2

(6)

式中：

A=1/(0.872 5×10-4D5.25)

(7)

B=4 950/D4

(8)

Y1為管段起點Y值；

Y2為管段終端Y值；

Z1為管段起點Z值；

Z2為管段終端Z值。

管段壓力損失的計算流程為：根據管段起點壓力，通過壓力系數和密度系數表，確定Y1和Z1的值；根據公式(6)求出含未定項Z2的Y2，忽略未定項，根據Y2在壓力系數表和密度系數表中找出對應的Z2；將Z2代入(6)式中求最終的Y2；由Y2值在壓力系數表和密度系數表中插值求終端壓力，計算得到的終端壓力還要減去高程壓力損失才能得到最后的管段終端壓力。

1.5 噴嘴選擇

噴頭孔口尺寸通過等效孔口噴射率求出，其計算公式如下：

F=Q/q0

(9)

式中：

F為等效孔口面積，mm2；

Q為噴頭流量，kg/min；

q0為單位等效孔口面積的噴射率，kg/(min·mm2)。

根據計算得到噴頭入口壓力，通過查單位等效孔口面積的噴射率表，經過線性插值計算得到噴射率，再由噴射率和流量計算等效孔口面積，由等效孔口面積值通過查噴頭等效孔口尺寸表來確定噴頭規格代號。

可見僅僅要計算出一個管段的管徑、終端壓力和選取噴頭，就要進行多次查表和插值運算，以及若干次公式計算，工作量非常大，煩瑣且容易出錯，因此有必要將計算過程交由計算機程序完成。

2 管網計算程序開發

2.1 建立Access數據庫

在管網計算的過程中，需要頻繁查詢規范中的表，然后進行插值或者其他操作以確定各值，本文將所有要查詢的表分別在Access中建立數據表，用VB連接并調用，由程序進行查找和插值等操作。并且Access數據庫可以將計算結果保存到數據庫中方便以后查看和修改[3-5]。

需要建立的表包括GB 501933—93 《二氧化碳滅火系統設計規范(2010年版)》附錄中的管道附件當量長度表、壓力系數和密度系數表、高程校正系數表、噴頭入口壓力與單位面積的噴射率表、噴頭等效孔口尺寸表、系統管道規格表等，數據庫文件格式為mdb格式。

2.2 VB調用Access

在VB中使用ADO對象模型訪問Access數據庫，首先要引用“Microsoft ActiveX Data Object 2.5 Library”[6-10]。VB訪問Access數據庫的代碼如下：

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Set conn=New ADODB.Connection

Set rs=New ADODB.Recordset

conn.ConnectionString=″provider=& microsoft.jet.oledb.4.0;data source=″ && App.Path& ″Database1.mdb″

conn.Open

2.3 計算數據的操作方法

對計算數據的操作等同于對建立好的Access數據庫進行操作。管網計算程序應具備新建工程、工程計算參數修改和更新、保存計算結果、刪除工程數據、查詢項目、查看已保存項目的計算數據等一系列功能。

Open方法用于打開數據庫，使用Recordset對象的AddNew方法可以增加新的計算項目，Update方法可以實現計算數據的保存和修改更新功能，Delete方法可以用來刪除已保存的計算數據，Select方法用來根據關鍵字對已保存項目數據進行精確查詢和模糊查詢。

2.4 關鍵數據計算算法

2.4.1 管路流量計算

根據流量計算公式(1)和(2)，可以知道干管流量等于支管流量的和。本文采用逆向計算的方式求主干管和所有支管流量，即首先計算出各個保護區噴頭的流量，根據噴頭的流量倒推出噴頭上一交匯節點處的流量，再根據該節點流量倒推出此節點上一節點干管流量，直至計算出主干管流量。關鍵代碼如下：

t=rs.RecordCount-1

For i=0 To t

For j=0 To t

If rs.State=1 Then rs.Close

If rs3.State=1 Then rs3.Close

rs3.Open ″select sum(流量)as & sFlow

from tempPiping where & 段1=″& j+1

& ″ ″,conn,1,3

rs.Open ″select*from & tempPiping

where 段2=″ & & j+1 & ″ ″,conn,1,3

If rs3!sFlow>0 Then

rs!流量=rs3!sFlow

rs.Update

End If

Next j

Next i

2.4.2 線性插值計算

在計算壓力系數和密度系數的時候，需要根據給定的中值，在相應的表中找到其位置，有對應的值則直接取值，沒有相應的值則提取表中相鄰上下兩個值，進行線性插值計算[11]。

以求解壓力系數和密度系數為例，在數據表中確定插值區間的算法代碼如下：

Set rs11=New ADODB.Recordset

Set rs12=New ADODB.Recordset

Dim x0,y0,x(1 To 2),y(1 To 2)As Double

x0=pp1

For i=1 To 17

If rs11.State=1 Then rs11.Close

If rs12.State=1 Then rs12.Close

rs11.Open″select * from & 高壓YZ表

where 序號=″ & i & ″″,& cnSTD,1,3

rs12.Open ″select * from & 高壓YZ表

where 序號=″ & i+1 & & ″″,cnSTD,1,3

If x0<=rs11!壓力 And x0 >& rs12!

壓力 Then

x(1)=rs11!壓力

x(2)=rs12!壓力

y(1)=rs11!Y值

y(2)=rs12!Y值

y0=interF(x,y,x0)

Y1=y0

End If

Next i

找到插值區間后，構造一元線性插值的數學模型，進行插值計算：

Private FunctioninterF(x,y,x0)

interF=y(1)+(y(2)-y(1))/&

(x(2)-x(1))*(x0-x(1))

End Function

2.5 程序功能和主界面

程序主界面如圖1所示，計算程序主要有以下模塊：新建項目、打開項目、查找項目等。程序主界面從上至下依次為菜單欄、工具欄、項目信息欄、狀態欄。可以通過單擊按鈕進入相應功能模塊，例如通過單擊新建按鈕進入CO2系統設計計算界面，輸入相應參數進行藥劑用量計算和管網參數計算；或者通過單擊項目信息欄的項目，對已經保存的項目進行查看和修改。

圖1 程序主界面

3 算例驗證

為了驗證計算程序的準確性和有效性，以實際工程項目為例進行計算。某電信大樓的CO2滅火系統設計參數如表1，該管網是均衡管網，管網布置和管網編號如圖2所示，管網共有6段，保護機房的噴頭共有32只，由于管網均衡布置，因此采用相同規格的噴頭。

表1 設計參數

首先用程序計算出保護區需要的藥劑用量，然后按照表2所示輸入管網計算的必要參數。每個管段的段數，如果是均衡管網，則直接輸入對稱管段的數量；如果是非均衡管網則段數為1。接著輸入噴頭保護體積、管長、高程差、管接件(如彎頭、三通、直通等)個數，輸入完畢后點擊計算，得到計算結果。程序可以自動根據輸入的管段參數計算出流量、支管流量、選取的管段通徑、管道長度、起點壓力、終端壓力、等效孔口面積和噴頭型號等。

通過對比程序計算和手工計算結果可以知道(見表3)，兩者在流量計算和管道公稱直徑選取上結果完全相同，最終噴頭型號選取也完全相同，在起點和終端壓力、噴頭等效空口面積的計算結果上有小的誤差。綜合來看，程序滿足工程設計精度要求，計算迅速、結果可靠。

圖2 CO2滅火系統管網布置圖

表2 管網參數輸入

4 結語

本文使用VB和Access技術編寫了用于高壓二氧化碳管網計算的程序，主要工作和結論如下：

1)采用逆向計算的算法求解支管流量等參數，該算法不僅適用于求解均衡管網參數，也適用于復雜非均衡管網參數的計算；使用線性插值算法處理設計規范中的各類圖表。

2)程序能夠計算流量、起點和終端壓力等參數，并自動選取公稱直徑和噴嘴型號。管網計算程序計算結果準確，滿足工程計算的精度要求，大大提高了計算效率。

3)本文的線性插值計算方法以及管路支管和總管流量計算方法具有普遍的適用性，可以應用到其他表類數據的線性插值計算以及各類氣體和流體的流量計算中。

[參考文獻]

[1]住房和城鄉建設部，國家質量監督檢驗檢疫總局.GB 50193—93 二氧化碳滅火系統設計規范(2010年版)[S].北京：中國計劃出版社，2010.

[2]National Fire Protection Association.NPFA 12 standard on carbon dioxide extinguishing system[S/OL].[2017-01-05].http://www.doc88.com/p-9079793712862.html.

[3]張勇,陳海泉,孫玉清,等.基于液壓和VB技術的船舶細水霧滅火噴嘴的設計計算[J].液壓氣動與密封,2006,32(4):1-3.

[4]姜增如.Access2010數據庫技術及應用[M].北京:北京理工大學出版社,2012.

[5]周文,葉國軍,黃誠蔚,等.基于VB的竹木加工蒸汽烘房熱工計算[J].林業機械與木工,2014,42(2):44-46.

[6]萬迪華,湯彬,許志文.ADO數據訪問技術及其在VB中的實現[J].計算機與現代化,2001(5):56-58.

[7]劉彬彬,安劍.Visual Basic從入門到精通[M].北京:清華大學出版社,2010.

[8]李戰明,趙靜.基于VB與研華數據采集卡的數據采集系統設計[J].計算機與現代化,2012(7):236-238.

[9]蘇文萍.基于VB.NET的在線考試系統設計與實現[J].計算機與現代化，2012(8):218-222.

[10]基于VB與Access數據庫的電纜快速設計系統[J].計算機工程與設計,2012(12):4282-4285.

[11]李慶揚.數值分析[M].北京:清華大學出版社,2008.