矿山程序设计.docVIP

例题 某矿井的设计能力是180t/a，拟提三个方案，矿井第一年，第四年各投总资 50%，移交生产后，前四年为设计产量的50%，第五年达产，服务年限为80 参数如下： 能力 建井期 吨煤投资 吨煤成本 售价 利率 A 180 5 88.6 24.5 40.5 10% B 180 6 82.3 25.6 40.5 10% C 180 7 80.5 27.8 40.5 10% 1,用年成本法评价A、B、C方案的优劣 A方案： 由年成本法公式有： 各年投资的净现值和： 各年运行成本的现值和 万元 所以，A方案的年平均成本：万元 B方案： 由年成本法公式有： 各年投资的净现值和： 万元 各年运行成本的现值和 万元 所以，B方案的年平均成本：万元 C方案： 由年成本法公式有： 各年投资的净现值和： 万元 各年运行成本的现值和 万元 所以，C方案的年平均成本：万元 2,用净现值法评价A、B、C方案的优劣 A方案： 万元 B方案： 万元 C方案： 万元 所以，A方案为方案最优。 在VB中编程序如下： Dim a As Single, b As Single, c As Single, d As Single, e As Single, f As Single, g As Single, h As Single, i As Single, j As Single, k As Single, l As Single, m As Single, n As Long, o As Single, p As Single, q As Single, r As Single, s As Single, t As Single, u As Single, v As Single, w As Single, x As Single, y As Single, z As Single Private Sub Command2_Click() Dim a1 As Single, a As Single, p As Single, b As Single, p0 As Single, c0 As Single Dim c As Single, f As Single, g As Single, h As Single, i As Single, j As Single Dim k As Single, l As Single, m As Single, n As Long, o As Single, q As Single Dim r As Single, s As Single, t As Long, u As Single, v As Single, w As Single Dim x As Single, y As Single, z As Single, d As Single a = Val(Text1.Text) b = Val(Text3.Text) p = a * b e = Val(Text5.Text) i = Val(Text6.Text) n = Val(Text2.Text) f = Val(Text7.Text) g = Val(Text8.Text) h = Val(Text9.Text) j = Val(Text10.Text) k = Val(Text11.Text) l = Val(Text12.Text) m = Val(Text13.Text) o = Val(Text14.Text) q = Val(Text15.Text) r = Val(Text16.Text) p0 = p * (f * (1 + i / 100) ^ n + g * (1 + i / 100) ^ (n - 1) + h * (1 + i / 100) ^ (n - 2) + j * (1 + i / 100) ^ (n - 3) + k * (1 + i / 100) ^ (n - 4) + l * (1 + i / 100) ^ (n - 5) + m * (1 + i / 100) ^ (n - 6) + o * (1 + i / 100)