方案比较法优化程序设计.doc

黑龙江科技大学 实 验 报 告 课程名称： 矿山规划与设计 专 业： 采矿工程 班 级： 采矿10-5班 姓 名：李艳波 孟凡彬 屈宏雁 学 号： 28 29 30 矿业工程学院 实验一：方案比较法优化程序设计 一、实验目的 1.矿井各设计方案之间的比较计算量较大，通过上机编制通用程序可以大大的减少计算量并能加深对方案比较法的理解。 2.加强计算机在煤矿的普及应用，从而提高利用计算机和系统的观点解决实际问题的综合能力。 二、实验原理 以矿井优化设计中的方案比较法中的各种经济评价方法如年成本法、净现值法等方法和原理为基本原理。 三、实验学时 4学时。 四、实验仪器设备 计算机及编程软件。 五、实验要求 1．编程计算各方案的年平均成本、净现值、投资偿还期，并进行方案的优劣比较。 2．结合课堂教学内容，掌握方案比较法，并能应用编制的优化设计程序解决实际应用问题。 六、实验内容及结果 1．叙述主要实验内容（包括学生在教师的指导下自主设计的已知条件和编制的计算机程序）。 井的设计能力是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方案： 万元 VB编程如下： Private Sub Command1_Click() Dim jj(1 To 10000) As Single For i = 1 To Val(Text3.Text) jj(i) = Val(InputBox(请输入建井期第 i 年投资所占总投资百分比)) / 100 Next i Dim dc(1 To 10000) As Single For i = 1 To Val(Text4.Text) - 1 dc(i) = Val(InputBox(请输入达产前第 i 年产量所占计划产量百分比)) / 100 Next i Dim a As Single Dim b As Single Dim c As Single Dim d As Single Dim e As Single Dim f As Single Dim g As Single Dim h As Single Dim j As Single Dim k As Single Dim l As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = Val(Text4.Text) e = Val(Text5.Text) f = Val(Text6.Text) g = Val(Text7.Text) h = Val(Text8.Text) / 100 j = Val(Text10.Text) l = Val(Text9.Text) Dim ca(1 To 10000) As Single Dim p(1 To 10000) As Single Dim co As Single co = 0 po = 0 For i = 1 To c p(i) = a * e * jj(i) * ((1 + h) ^ (c - i + 1)) po = po + p(i) Next i For i = 1 To d - 1 ca(i) = a * f