城市配气vb上机大作业完整版.docx

《城市配气vb上机大作业完整版.docx》由会员分享，可在线阅读，更多相关《城市配气vb上机大作业完整版.docx（11页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、城市配气vb编程大作业班级：储运11级5班 题目：某城市低压环状天然气管网的水力计算某城市的天然气管网系统采用的是中、低压二级管网系统，并且布置成环状, 管材采用钢管，低压管网图见附图所示。图中标有环网各条管段的长度（m）及 环内建筑用地面积（万n?）。人口密度为850人/万m2,每人每小时用气量为 0.05m3,在节点3处有一个工厂集中用户，用气量为600m3/h。所输天然气的密 度为0.65kg/m3,运动粘度为25X10-6m2/s,温度为288K。中、低压调压站天然 气的出口压力为3650Pa,低压管网的计算压力降为1050Pa要求：1）对管网进行水力计算，确定出管网中各条管段的流量、

2、管径、压力降;2）其中局部计算需要用计算机编程，需提交计算程序。3）计算过程格式参照教材例题6-11。五9-1016652651629215202314503五10-11168097135129215366614431五11-12169668169529215565414014五12-13171239269029215863612603五13-14172810212529216105311757五14-15174381114229216248711894五15-1617595292129216370112251五16-1717 乃 23106929216506112462五17-1817909

3、4132729216668012414五18-19180665249429216946611199五19-2018223637962921735538683五20-2118380727642921766097198五21-2218537817322921786336745五22-231869495162921794417508五23-241885202582921799918529六0-11900911882921804719620六1-219166215929218092210740六2-319323315929218137311860六3-419480414529218181012994六

4、4-519637524629218234814027六5-619794659329218323314713六6-7199517211129218563613881六7-8201088153329218746013628六8-920265985329218860514054六9-1020423060729218950514725六10-11205801159129219138714414六11-12207372199529219367513697六12-13208943316729219713311810六13-14210514250129219992710587六14-152120851345

5、29220156310522六15-16213656108429220294010716六16-17215227125829220449010737六17-18216798156229220634310455六18-1921836929352922095718798六19-2021994044682922143305610六20-2122151132532922178763635六21-2222308220392922202072875六22-232246536072922211063547六23-242262243042922217024522日0-122779519129222218556

6、10日1-22293661622922226396727日2-32309371622922230937844日3-42325081472922235328976该城市配气系统所需的储气容积 ID316454日4-523407925029222407410005日5-623565060329222496910681日6-723722121482922274109811日7-823879215602922292619531日8-92403638682922304229941日9-1024193461829223133210602日10-11243505161929223324210263S11-1

7、224507620312922355659511日12-1324664732232922390807567日13-1424821825462922419176301日14-1524978913692922435786211日15-1625136011042922449746386S16-1725293112802922465466385日17-1825450215892922484276075日18-1925607329872922517064367日19-2025764445472922565451099日20-212592153311292260148-933日21-22260786207

8、5292262515-1729日22-23262357618292263425-1068日23-24263928309292264026-98解：1、计算各环的单位长度途泄流量，计算结果如下表:各环的单位长度途泄流量表1-1环号面积X104 m2居民数 人每人用气量 而/（人 h）本环供气量 m3 /h环周长 m沿环周边的单位 长度途泄流量 m3 /（m h）125212500. 051062. 525400.418230255000. 05127528600. 446340340000. 05170033400. 509总供气量=4637. 5m3/h2、根据计算简图，确定管网各条管段的初步

9、计算流量，其步骤如下：（1）假定零点的位置。距供气点（调压站）最远处为零点，此题中节点8距供 气点最远，因此，节点8为零点。（2）计算各条管段的途泄流量。（3）计算各条管段的输转流量，从零点开始，反推至供气点，假设节点的集中负 荷由两侧管段供气，那么转输流量以各分担一半左右为宜，假设两条管段向一条管段 供气，那么按两条管段各分担一半的供气量为原那么。（4）计算各条管段的初步计算流量。计算结果如下表：各管段的初步计算流量表1-2环号管段号管段 长度m单位长度途泄 流量qm3 / （m h）流量，m3/h附注途泄流量Qi0. 55Qi输转流 量 q2初步计算 流量 Q11-24200. 92738

10、9. 34214. 141210. 111424. 25两条管 段向同 一条管 段供气 时，两 条管段 各分担 一半的 供气量2-38500.418355. 30195. 42300495. 421-48500. 864734. 40403. 92734.241138.164-34200.418175. 5696. 56300396.5621-48500. 864734. 40403. 92734. 241138. 164-55800. 446258. 68142. 270142.271-65800. 955553. 90304. 651015. 351320. 006-58500. 4463

11、79. 10208.510208.5131-24200. 927389. 34214.141210. 111424. 252-96700. 509341.03187. 57213. 78401.359-84200. 509213. 78117. 580117.581-65800. 955553. 90304. 651015. 351320. 006-76700. 509341.03187. 57295. 22482. 797-85800. 509295. 22162. 370162. 373、低压管网允许的单位长度压力降（计算5%的局部损失），即： P/L= 10504-（1830X1.05）

12、=0.546 Pa/m4、根据初步计算流量和允许的单位长度压力降，通过低压管网水力计算公式（会 用到编程软件），计算管网中各条管段的管径；5、根据计算出的管径，选择与之接近的标准管径（向大的方向取值）；6、根据所选的标准管径和管段的初步计算流量，通过低压管网水力计算公式（会 用到编程软件），计算管网中各条管段的实际单位长度压力降和管段压力降（计 算5%的局部损失）；7、计算各环压力降的代数和和闭合差。低压管网闭合差计算公式：|2八尸| vinno/v.7 X 1UU /o0年|闭合差的允许差值在10%以内，假设超过10%的误差应进行校正计算。8、此题的初步计算的三个环的闭合差均大于10%,所以

13、下面进行校正计算。9、计算各环的校正流量：先计算各环的AQ，计算公式为:八。=1.752P在计算各环的AQ”，计算公式为：AQ =最后求出各环的校正流量A Q,计算公式为：AQ=AQ +AQ”10、确定管段的校正流量。当管段不与其它环相邻时，管段的校正流量就等于它所在环的校正流量；当管段与其它环相邻时，计算环管段的校正流量就等于计算环的校正流量减 去相邻环的校正流量。11、计算校正后的各条管段的流量校正后的各条管段的流量等于管段初步计算流量Q与管段校正流量之和，即：Q，= Q + AQ”12、根据校正后的各条管段流量和管段管径，通过低压管道水力计算公式（会用 到编程软件），计算各条管道校正后的

14、单位长度压力降和管段压力降（考虑5% 的局部损失）。13、计算校正后的各环压力降的代数和和各环的闭合差。在例题中经过一次校正计算，各环的误差值均在10%以内，因此计算合格。 如一次计算后仍未到达允许误差范围以内，那么应用同样方法再次进行校正计算。 第4步.一第13步的计算结果如下表所示：14、校核从供气点至零点的压力降： P I.6.7.8=348.96+169.54+82.22=600.72Pa 1050Pa,计算合格。15、低压环状管网水力计算结果如下表：低压环状管网水力计算结果表表1-4管段号管段长度，m管段管径，mm管段流量，m3/h管段压力降，Pa/m1-2420325X81429.

15、 06271.662-3850273X7535. 32227. 591-4850325X81081.82337. 374-3420219X7356. 66168. 0245580150125. 87165. 651-6580325X81371.53348. 966-5850219X7224.91151. 732-9670219X7366. 25280. 709-842015082. 4857. 336-7670273X7517.89169. 547-8580219X7197.4782.22计算机编程局部一、程序代码：(1)知 Ap/L、Q,求 D忆工程 1 - Forml (Code)| =1

16、1 回 |LkaJj ClickFPrivate Sub Conniand 1 Click()I DO = InputBoxCif偏脑健法：”)Ubell. Caption =管 & DO A i H = 3. 14TO = 273Q = Vai (Textl Text)V = Vd.axt2 Toxt) * 10 * -6T = 273 Vai (Text3 Text)P = Vai (TexU. Text)L = VQCToxtS Tt) p = Vai CText6 Text)Re = 4 Q /* DO * 0.001 3600 * v)注意雷诺数的计算全带酶单位For i = DO

17、To 10000 Stop 0.001=ipO = 1.13 * 10 A 10 * Q / DO A 4 * V X p * T / TOElself Re 2100 ThenX = 0.03 + 0U - 2100) / (6S * Re - 10 - 5)ApO = 1.9 10 * 6 (1 + (11.8 q-7m10*4*DO*v) / (23Q-10*5DO*v)*Qa2/DO*5*P T / TO Elself Re 3500 ThenIf Text?. Text =纲管，Then k = 0.2X = 0. 11 (k / DO + 68 / Re) * 0. 25ApO =

18、 6. 9 * 10 * 6 (k / DO 192.2 * DO v / Q) A 0.25 Q * 2 / DO A 5 P * T / TOElsclf Txt2 Text = ”格狭管，ThanX = 0 102236 * (1 / DO + 5158 DO v / Q) A 0 284APO = 8.4 10 A 6 * (1 / DO 4 5158 * D v / Q) A 0. 284 Q * 2 / DO A 5 P T / TOEnd IfEnd IfIf ApO - Ap 0 Th/I ApO - Ap -0.00011 Then Exit ForElse： DO = DO

19、 - 2 i = DOEnd IfEnd IfI Ap0 - Ap 0 ThenIf ApO - Ap 0,0001 ThonDO = i Exit For End IfEnd IfHext iTxt8. Text = DOEnd Sub 9 日!|ib3b|(2)知 Q、D,求 Ap/L二 工程 1 - Forml (Code)ComnandlComnandlComnandl | |ClickPrivate Sub Coamand2_Click()DO = Text9.Text -k = 3. 14TO = 273Q = Vai (Textl. Text)v = Vai (Txt2 Text

20、) 10 * -6T = 273 Vai CI ex t3. Text)P = Vd.(Txt4.Toxt)L = Vai (Text5 Text)Re = 4 * Q / (n, * BO * 0.001 3600 * v )If Re = 2100 ThenX. = 64 / ReApO = 1. 13 10 * 10 Q / DO * 4 v * p T / TOElself Re 2100 ThenK = 0.03 + (Re - 2100) / (6S R - 10 * 5)ApO = 1.9 10 * 6 (1 (118*Q-710*4D0v) / C23*Q-1O*5DOv)*Q

21、-2/DO,5*0 * T / TO Elself Re 3500 ThenIf Text7. Text = 有 Thenk = 0.2X = 0 H * (k / DO + 68 / Re) , 0,25ApO = 6.9 10 6 * (k / BO f 192. 2 * DO v / Q) * 0.25 Q * 2 / DO * 5 P T / TOEl sol Txt2,Txt =情帙管ThenX = 0.102236 * (1 / DO * 5158 DO v / Q) * 0. 284ApO = 6. 4 * 10 * 8 * (1 / DO 5158 * D * v / Q) *

22、 0 284 * Q * 2 / DO * S * P * T / TO 2nd IfEnd ITextlO Text = ApOEnd Sub玉JI二、程序设计界面:三、程序运行界面：以低压环状管网水力计算表表1-3中的卜2号管段的初步计算中的管径 计算，和选用标准管径后的单位长度压力降的计算为例。：1-2号管段的长度L=420m,初步计算流量Q二1424. 25n?/h,单位长度允许压力降 P/L=O. 546Pa/m那么其初步计算管径的计算结果如下：可知初步计算管径约为:316.5mm,那么选择标准管径为:325X8 mm再以标准管径325X8 mm和初步计算流量Q=1424. 25n?

23、/h,计算1-2号管段的单 位长度压力降，计算结果如下：可知1-2号管段的单位长度压力降约为AP/I尸0. 612Pa/m 注：余下管段分别按照以上方法计算出各自的管径和单位长度压力降。教材117页例题5-1上机作业:星期时间段供气量累计值 m3 /h生活用气 m3 /h工业用气 m3 /h用气量累计值 m3/h储气量 m3-0-115711552924471124*1-2314213129287022722-3471313129212933420*3-46284119292170445804-57855202292219856575-69426488292297864486-71099717

24、3729250075990*7-812568126129265616007*8-91413970229275556584*9-10157105002928346736410-111728113092929947733411-12188521642292118826970*12-1320423260629214780564313-1421994205929217131486314-15235651107292185295036-15-1625136893292197145422*16-1726707103529221041566617-1828278128529222618566018-1929

25、849241629225326452319-2031420367729229295212520-2132991267829232265726-.21-223456216782923423532722-233613350029235026110723-2437704250292355682136二0-139275156292360173258二1-240846132292364414405二2-342417132292368655552二3-443988120292372786710二4-545559204292377747785二5-647130493292385598571二6-748701

26、1756292406078094二7-8502721275292421748098二8-951843710292431768667二9-1053414505292439739441二10-11549851323292455889397二11-12565561660292475409016二12-1358127263429250466766113-14596982081292528396859二14-15612691119292542507019二15-1662840902292554447396二16-17644111046292567827629二17-1865982129929258373

27、7609二18-19675532442292611076446二19-20691243717292651164008二20-21706952706292681142581二21-22722661696292701022164二22-2373837505292708992938二23-2475408253292714443964二0-176979156292718925087三1-278550132292723166234二2-380121132292727417380三3-481692120292731538539=4-5832632042927364996145-68483449329274

28、43510399二6-7864051756292764839922=7-8879761275292780509926=8-9895477102927905110496三9-10911185052927984911269二10-119268913232928146411225=11-129426016602928341510845=12-13958312634292863429489三13-14974022081292887148688三14-15989731119292901258848三15-1610054490229291319922516-171021151046292926589457

29、三17-181036861299292942499437三18-191052572442292969828275三19-2010682837172921009915837三20-2110839927062921039894410二21-2210997016962921059773993三22-231115415052921067754766二23-241131122532921073195793四0-11146831582921077696914四1-21162541342921081958059四2-31178251342921086219204四3-41193961222921090341

30、0362四4-512096720729210953311434四5-612253849829211032312215四6-7124109177529211239011719四7-8125680128929211397011710四8-912725171729211498012271四9-1012882251129211578213040四10-11130393133729211741112982四11-12131964167829211938112583四12-13133535266229212233511200四13-14135106210329212473010376四14-1513667

31、7113129212615310524四15-1613824891229212735610892四16-17139819105829212870611113四17-18141390131329213031111079四18-1914296124682921330709891四19-2014453237562921371197413四20-2114610327352921401465957四21-2214767417142921421525522四22-231492455112921429546291四23-241508162552921435027314五0-11523871602921439538434五1-21539581352921443809578五2-315552913529214480810721五3-415710012329214522211878五4-515867120929214572312948五5-616024250429214651913723五6-7161813179329214860413209五7-8163384130229215019813186五8-916495572529215121513740