方案比较法优化程序设计.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 SingleFor i = 1 To Val(Text3.Text)jj(i) = Val(InputBox(请输入建井期第 & i & 年投资所占总投资百分比) / 100Next iDim dc(1 To 10000) As SingleFor i = 1 To Val(Text4.Text) - 1dc(i) = Val(InputBox(请输入达产前第 & i & 年产量所占计划产量百分比) / 100Next iDim a As SingleDim b As SingleDim c As SingleDim d As SingleDim e As SingleDim f As SingleDim g As SingleDim h As SingleDim j As SingleDim k As SingleDim l As Singlea = 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) / 100j = Val(Text10.Text)l = Val(Text9.Text)Dim ca(1 To 10000) As SingleDim p(1 To 10000) As SingleDim co As Singleco = 0po = 0For i = 1 To cp(i) = a * e * jj(i) * (1 + h) (c - i + 1)po = po + p(i)Next iFor i = 1 To d - 1ca(i) = a * f * dc(i) / (1 + h) i)co = co + ca(i)Next iFor i = d To bca(i) = a * f / (1 + h) i)co = co + ca(i)Next iText9.Text = (po + co) * h * (1 + h) b) / (1 + h) b - 1)Dim v(1 To 10000) As SingleDim vo As Singlevo = 0For i = 1 To d - 1v(i) = a * (g - f) * dc(i) / (1 + h) ivo = vo + v(i)If vo po ThenText11.Text = iEnd IfNext ivt = voFor i = d To bv(i) = a * (g - f) / (1 + h) ivt = vt + v(i)If Text11.Text = And vt po ThenText11.Text = iEnd IfNext iText10.Text = vt - poEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text11.Text = End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Label1_Click(