上海市排煙系統設計計算公式基于Excel VBA的自定義函數的開發

張相亮

空調技術

上海市排煙系統設計計算公式基于Excel VBA的自定義函數的開發

張相亮

（上海中森建筑與工程設計顧問有限公司，上海200333）

針對上海市排煙系統設計中的計算問題，利用Excel中內置的VBA語言將《建筑防排煙技術規程》中的排煙計算公式開發為自定義函數，并在Excel中制作排煙計算表，實現了輸入參數后自動計算得到結果，提高了設計效率。

Excel； VBA； 自定義函數； 排煙系統設計； 排煙計算表

0 引言

排煙系統設計是暖通設計中重要的組成部分之一，因其事關生命安全，所以是暖通設計中的設計人員最重視的內容。相較于國家的《建筑設計防火規范》[1]及《高層建筑設高層民用建筑設計防火規范》[2]對排煙系統設計計算的粗略介紹，上海市的地方規范《建筑防排煙技術規程》[3]中對其進行了詳細的表述，并需要設計人員在設計上海市的項目時按其進行設計，但該規范上有關排煙系統計算的公式很多，每次設計都需要大量復雜重復的計算，如果通過常規的方法進行計算，勢必給設計人員增加巨大的工作量。

現在雖然有些商業軟件公司，已經開發出包含排煙系統計算公式的計算軟件，但其輸入繁雜，操作不便，且需要付費使用，增加了設計成本。而Excel是現代辦公必備的軟件之一，其功能強大，輸入方便，通過其內置的VBA語言對其進行二次開發，增加排煙系統計算功能，且不需增加額外成本。

本文將上海市《建筑防排煙技術規程》（以下簡稱

《規程》）中有關排煙系統設計的公式，通過VBA語言編寫為自定義函數，使其在Excel單元格中像內置函數一樣可以直接調用輸入參數，自動計算得到結果。

1 自定義函數

1.1 VBA用戶自定義函數

用戶自定義函數是指如果要在公式或計算中使用特別復雜的計算，而工作表函數又無法滿足需要，則需要創建用戶自定義的函數。

用戶自定義一個函數過程function的語法格式如下[4]：

[private|public][static]function〈函數名〉（[〈形式參數列號〉]）as〈數據類型〉

〈函數體〉

EndFunction

1.2 排煙系統計算函數

（1）最小清晰高度函數

Public Function Hq（H AsSingle）AsSingle

Hq—最小清晰高度，m；

H—排煙空間的建筑凈高度，m。

Application.Volatile

將用戶自定義函數標記為易失性函數

Hq=1.6+0.1×H

EndFunction

（2）煙縷質量流量－軸對稱型煙縷

Public Function Mp（Q As Single，Z As Single）As Single

Q—火災熱釋放量，kW；

Mp—煙縷質量流量kg/s；

Z—燃料面到煙層底部的高度，m取值應大于等于最小清晰高度。

Application.Volatile

DimZ1AsSingle，QcAsSingle

Z1—火焰極限高度，m；

Qc—熱釋放量的對流部分，kW。

Qc=0.7×Q

Z1=0.166×Qc^（2/5）

SelectCaseZ

CaseIs>Z1

Mp=0.071×Qc^（1/3）×Z^（5/3）+0.0018×Qc

CaseElse

Mp=0.032×Qc^（3/5）×Z

EndSelect

EndFunction

（3）煙氣平均溫度與環境溫度的差函數

Public Function T（Q As Single，MpAs Single）As Single

T—排煙平均溫度與環境溫度的差，℃。

Application.Volatile

DimQcAsSingle

Qc=0.7×Q

ConstCp=1.02

Cp—空氣的定壓比熱，kJ/kg·K。

T=Qc/（Mp×Cp）

EndFunction

（4）排煙量函數

Public Function V（MpAsSingle，T AsSingle，T0As Single）AsSingle

V—排煙量，m3/s；

T0—環境的絕對溫度，K。

Application.Volatile

DimT1AsSingle

T1—煙氣的絕對溫度，K。T1=T0+T

Constp0=1.2

p0—環境溫度下氣體的密度，kg/m3，通常t0=20℃，

（5）臨界排煙量函數

Public Function Vcrit（T As Single，T0As Single，dbAsSingle，B AsSingle）AsSingle

Vcrit—臨界排煙量，m3/s。

Vcrit=0.00887×B×db^（5/2）×（T×T0）^（1/2）

B—無因次系數，當排煙口設于吊頂并且其最近的邊離墻小于0.5m或排煙口設于側墻并且其最近的邊離吊頂小于0.5m時，B取2.0；當排煙口設于吊頂并且其最近的邊離墻大于0.5m時，B取2.8；

db—排煙窗下煙氣的厚度，m。

EndFunction

（6）排煙口的長寬關系函數

Public Function b1（a As Single，dbAs Single）As Single

b1=db×a/（4×a-db）

a，b1—排煙口的長和寬，m。

注因db/[2×a×b1/（a+b1）]>2，故a>db/4，b1

（4×a-db）

EndFunction

（7）自然排煙方式所需通風面積函數

Public Function Av（MpAs Single，T As Single，T0AsSingle，A0AsSingle，dbAsSingle）AsSingle

Application.Volatile

Av—排煙口的截面積，m2

A0—所有進氣口的總面積，m2。

Dim x As Single，y As Single，z As Single，w As Single

x，y，z，w—中間代量。

DimT AsSingle

ConstCv=0.6，p0=1.2，g=9.8，C0=0.6

Cv—排煙口流量系數，通常選定在0.5～0.7之間；

C0—進氣口的流量系數，通常約為0.6；

g—重力加速度，m/s2，取9.8m/s2。

T1=T0+T

y=Mp×Sq（rT）/p0

z=2×g×db×T×T0

w=A0×C0

x=T/（z/y^2-T0/w^2）

Av=Sqr（x）/Cv

EndFunction

表1 排煙計算表

2 排煙計算表

將排煙設計計算中所有的參數列入Excel表格中，并將引用相應的自定義函數列入計算結果列，具體見表1，其中結果列中空格部分為需手動輸入的參數，火災熱釋放量的結果可通過《規程》表4.2.2查得后直接輸入結果。

3 應用實例與驗證

以某面積為500m2，吊頂高度為3m，且設有噴淋的大空間辦公室排煙設計為例，其外墻共有8個尺寸為2×2m的可開啟外窗，窗底距地面1m。

查《規程》表4.2.2可知其熱釋放量為1500kW。

3.1 自然通風方式排煙計算

（1）排煙計算表計算

在排煙計算表中輸入排煙空間建筑高度凈高H=3m，計算得到最小清晰高度Hq=1. 9m。因燃料面到煙層底部的高度Z應大于等于最小清晰高度Hq，則取Z=2m。按《規程》4.3.1條規定，室內凈高1/2以上為有效通風排煙面積，則凈高1/2以下為進氣口面積，則該辦公室所有進氣口的總面積A0為8×2×（2-3/2）=8m2，環境的絕對溫度T0通常取293K?！兑幊獭?.2.6條文解釋附圖得排煙窗下煙氣的厚度db=（3-3/2）/2+3/2-2=0.25m，將H、Z、A0、db輸入排煙計算表得排煙口的截面積Av=5. 98m2，計算結果見表2，而現在的有效排煙窗面積為8×2× 3/2=24m2，可以滿足自然通風排煙要求。

表2 自然通風方式排煙計算結果

3.2 機械排煙方式計算

（1）排煙計算表計算

排煙口設于吊頂，并且其最近的邊離墻大于0.5m，則無因次系數B取2.8。因燃料面到煙層底部的高度Z應大于等于最小清晰高度Hq，則取Z=2m，排煙口下煙氣的厚度db=3-2=1m。因為排煙口的長度大于排煙口下煙氣厚度的1/4（即0.25m），故取其為a=0.3m，則排煙口的寬度b1不小于1.5m。將B、db、a與b1輸入排煙計算表，得臨界排煙量Vcrit=24080.51m3/s>V=23014.31m3/s，取排煙口的風速為8m/s，則排煙口的數量為3，具體參數及結果見表3。

3.3 結果驗證

通過現有的某商業軟件進行相同設計計算，得到相同的計算結果，證明排煙計算表計算結果可靠，其結果如圖1～圖4所示。

Custom Function Development for the Formulae of Exhaust System Design in Shanghai Through the Excel VBA

ZHANG Xiang-liang

（Shanghai Johnson Architechural&Engineering Designing Consultants LTD.，Shanghai 200333，China）

AccordingtotheproblemofcalculationofexhaustsystemdesigninShanghai，CustomFunctionsisdevelopedontheformulaeof exhaustsysteminTechnical Specificationfor BuildingSmokecontrol throughtheExcel VBA.The exhaustcalculationtableisdesignedintheExcel，whichcancalculatetoachievetheoutcomeoftheinputparametersautomatically，sothatitimprovestheefficiencyofdesign.

Excel； VBA； customfunctions； exhaustsystemdesign； exhaustcalculationtable

表3 機械排煙計算結果

TU834

B

2095-3429（2016）03-0074-04

10.3969/J.ISSN.2095-3429.2016.03.018

張相亮（1987-），男，山東濰坊人，碩士，工程師，從事暖通空調設計工作。