《矿山规划与设计》实验报告.doc

黑龙江科技学院 实 验 报 告 课程名称： 矿山规划与设计 专 业： 采矿工程 班 级： 采矿07-1班 姓 名： 学 号： 资源与环境工程学院 实验一：方案比较法上机编程 一、实验目的 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% 试用年成本法与净现值法评价方案。 A方案： 年成本法： 其中 万元 = 万元 方案的年平均成本： 净现值法： 万元 B方案： 年成本法： 其中万元 万元 万元 净现值法： 万元 C方案： 年成本法： 其中万元 万元 万元 净现值法： 万元 VB程序如下： Private Sub Command1_Click() Dim m As Integer, b As Integer, c As Single, d As Single, i As Single, f As Single m = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = Val(Text4.Text) i = Val(Text5.Text) f = m * 0.5 * c * ((1 + i) ^ (b - 1 + 1) + (1 + i) ^ (b - 4 + 1)) Text6.Text = f End Sub Private Sub Command2_Click() Dim m As Integer, b As Integer, c As Single, d As Single, i As Single, f As Single, g As Single m = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = Val(Text4.Text) i = Val(Text5.Text) g = Val(InputBox(请输入, 服务年限)) Text7.Text = d * m * 0.5 * ((1 / (1 + i)) + (1 / (1 + i) ^ 2) + (1 / (1 + i) ^ 3) + (1 / (1 + i) ^ 4)) + d * m * (1 / (1 + i) ^ 5) * ((1 - (1 / (1 + i)) ^ (g - 4)) / (1 - (1 / (1 + i)))) End Sub Private Sub Command3_Click() Dim m As Single, b As Single, c As Integer, i As Single c = Val(InputBox(请输入, 服务年限)) m = Val(Text6.Text) b = Val(Text7.Text) i = Val(Text5.Text) Text8.Text = (m + b) * ((i * ((1 + i) ^ c)) / ((1 + i) ^ c - 1)) End Sub Private Sub Command4_Click() Dim m As Integer, b As Single, c As Single, d As Singl