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

附录一 Visual Basic在支管变径优化中的应用 摘要：本文提出用Visual Basic编制支管管径优化程序。 在支管优化设计中，经济管径组合的确定是最主要的环节。本文将从经济管径组合的数学模型的建立入手，编制出Visual Basic程序。程序主要采用枚举法计算经济结果，比较经济费用得到经济管径组合。 数学模型的建立 经济管径组合是指在年内管网造价和动力费用之和的最小值。本程序将枚举一条支管的所有管径组合的总费用，从而比较出经济管径组合。 管道在年内总费用C为： 其中：C ——— 年内总费用，元； C1 ——— 管道造价年折算值，元； C2 ——— 年运行动力费用，元； 其中：K ——— 一次性投资费用，元； A/P ——— 复利因子； i ——— 利率，i=12% n ——— 投资年限,n=15； 其中：γ ——— 水容重，kN/m； Q ——— 流量，m3/h； hl ——— 水头损失,m； e ——— 电费,元/度； t ——— 全年运行时间，h； 其中：hfi ——— 各段管道沿程水头损失，m； hji ——— 各段管道局部水头损失，m，取沿程水头损失的15％； 其中：f 、m、n ——— 水头损失计算系数，f=94800,m=1.77,n=4.77； Q ——— 支管流量，m3/h； l ——— 支管长度, m d ——— 支管内径，m 根据以上公式计算出一条支管的各种可能管径组合的总费用C，比较出其中最小值，其对应的管径组合为经济管径组合。 程序设计 以上讨论，可编制出支管管径优化的Visual Basic程序。程序流程图如图： 图1-1 程序流程图 1．程序界面设计 程序界面如下图所示： 图1-2 程序界面浏览图 界面中①②文本框为数据输入窗口，文本框③为数据输出窗口。具体控件属性见下表： 表1-1 程序各控件属性表 name caption text Form Form1 支管优化 ― CommandButton Command1 计算 ― CommandButton Command2 关闭 ― CommandButton Command3 清除 ― Lable Lable1 年运行时间t ― Lable Lable2 流量Q ― TextBox Text1 / TextBox Text2 / RichTextBox RichTextBox1 / 2．程序代码编制 （1）支管共分成7段，每段管道的管径有四种选择，即Φ40、Φ50、Φ63、Φ75，建立数组d(1 To 7, 1 To 4)存储每段管道的不同管径的选择。建立数组去qm(1 to 7)存储各段流量。流量示意图如下： 图1-2 支管流量变化图 代码如下： 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 （2）计算不同管道对应不同管径的水头损失，结果存储到数组h(i, j)。代码如下： For i = 1 To 7 For j = 1 To 4 h(i, j) = 1.15 * f * l(i) * (qm(i) ^ m) / (d(i, j) ^ b) Next j, i （3）搜索所有可能存在的管径组合，管径组合需满足总水头损失小于6米，并计算各种管径组合的总费用。代码如下： n = 1 For k1 = 1 To 4 hf1 = h(1, k1) For k2 = k1 To 4 hf2 = hf1 + h(2, k2) For k3 = k2 To 4 hf3 = hf2 + h(3, k3) For k4 = k3 To 4 hf4 = hf3 + 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) If hf7 6