VisualBasi在支管变径优化中的应用.docVIP

(1-1)(1-2)(1-3)(1-4) (1-1) (1-2) (1-3) (1-4) .?木文提出用Visual Basic编制支管管径优化程序。 在支管优化设计屮，经济管径组合的确定是最主要的环节。木文将从经济管径组合的数学模型的建立 入乎，编制出Vkual Basic程序。程序主耍采用枚举法计算经济结果，比较经济费川得到经济管径组合。 一、数学模型的建立 经济管径组合是指在年内管网造价和动力费用之和的最小值。本程序将枚举一条支管的所有管径组合 的总费川，从而比较出经济管径组合。 管道在年内总费用C为： C = Cl+C2 其中：c 年内总费用，元； Q 管道造价年折算值，元； C2 年运行动力费用，元； C, = K(A/ P，i，n) 其中： 一次性投资费用，元； A/P 复利因子； i 利率，^12/ 投资年限.二 c : l.lx 挖Qh,et 2 — 1000x3600x7/、, K屮：Y 水界重，fjih: Q 流量，I3/1 ； hi 水头损失_?1; * 电费，7匕/度； -I 全年运行吋间，■: hi h.a^hfi 其中： 各段管道沿程水义损失，■; 各段管道局部水头损失，I，取沿程水头损失的 hf= ^^LLLLLLLLLLLLLLLLLLLLLLLLLLLL(1 - 5) 其中：/、zi n 水失损失计算系数，^4?H,m=L73.c4.73； Q 支管流M，i5/1； I 支管长度，I / 支管内径，■ 根据以上公式计算出一条支管的各种可能管径组合的总费用C,比较!I!其中最小值，其对应的管径组 合为经济管径组合。 二、程序设计 以上讨论，nJ编制fh支管管径优化程序。程序流程阁如軋 数据输入 图14程序流程图 1.程序界面设计程序界面如下图所示:支管优化□,111X, 1.程序界面设计 程序界面如下图所示: 支管优化 □,111X, 年运行时间t ray 流星Q ^2) 图1-2程序界而浏览图 界而中①②文本框为数裾输入窗口，文本框③为数裾输fli窗口。具体控件屈性见下表: 表1-1 程序各控件属性表 屈 控^\性 件 name caption text Form Forml 支管优化 — CommandButton Command 1 计算 — CommandButton Command2 关闭 — CommandButton Commands 清除 — Lable Lable 1 年运行吋间t — Lablc Lablc2 流量Q — TextBox Textl / TextBox Text2 / RichTextBox RichTextBox 1 / I f 2.程序代码编制 支管共分成7段，每段管道的管径有四种选择，即040、⑽、063、075,建立数组d(l To 7, 1 To 4)存储每段管道的不同管径的选择。建立数组去qm(l to 7)存储各段流3。流fi示意图如下： 喷头1喷失2喷失3喷头4喷失5喷失6喷头7 代码如下： For i = 1 To 7 d(i，1) = 36 d(i, 2) = 46 d(i, 3) = 58.2 d(i, 4) = 70 l(i)= 18 qm(i) = i * q Next i 计算不同管道对应不同管径的水头损失，结果存储到数组h(M)。代码如下： For i = 1 To 7 For j = 1 To 4 h(i，j)= 1.15 *f*l(i)* (qm(i) A m) / (d(i, j) A b) Next j, i 搜索所科可能存在的管径组合，管径.组合需满足总水头损失小于6米，外计算各种管径组合的 总费用。代码如下： n = 1 For kl = 1 To 4 hfl =h(l，kl) For k2 = kl To 4 hf2 = hfl + h(2, k2) For k3 = k2 To 4 hf3 = hf2 + h(3, k3) For k4 = k3 To 4 hi4 = hl3 4- h(4, k4) For k5 = k4 To 4 hf5 = hf4 + h(5, k5) For k6 = k5 To 4 hf6 = hf5 + h(6, k6) For k7 = k6 To 4 hf7 = hf6 + h(7, k7) Ifhf76Then k = 2 * kd(d(7, k7)) + 18 * (kd(d(2, k2)) + kd(d(3, k3)) + kd(d(4, k4)) + kd(d(5, k5)) + kd(d(6, k6)) + kd(d(l,kl))) gjyhp(n).cl = k * 0.14682 gjyhp(n).c2 = fl(