采区中部甩车场二次回转线路优化算法的研究

《采区中部甩车场二次回转线路优化算法的研究》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、采区中部甩车场二次回转线路题目：优化算法的研究姓名：高若翔高乃志班级：采矿06—6学号：21号20号指导教师：陈海波采区中部甩车场二次回转线路优化算法的研究高若翔高乃志（黑龙江科技学院资源与环境工程学院采矿工程06-6班，哈尔滨150027）摘要：本文介绍了一款软件。该软件用于计算采区中部甩车场的各项参数。它能对采区中部辅助提升线路进行优化。它只针对二次回转且设高低道的线路。本文深入探讨了程序中的一个算法。该算法用来对斜面竖曲线段进行优化。它主要针对高低道竖曲线半径选取进行计算。最终实现整个线路的优化设计。关键

2、词：中部车场；优化设计；vbResearchofoptimumalgorithmofthesecondturnrouteinthecentralminingareayardGAORuoxiang,GAONaizhi(HeilongjiangInstituteofScienceandTechnology,ResourceandEnvironmentEngineeringCollege。MiningEngineeringDepartment,Class06-6,Harbin150027,China)Abstract

3、:Thisarticleintroducesaprogram.Thisprogramisappliedtofigureouttheveryparametersofcentralminingareayard.Itisdesignedonlytotheroutewhichbothhavesecondturnandhigh-lowrails。Thisarticledescriptsthealgorithmoftheprogramdeeply.Thealgorithmisappliedtooptimizethevert

4、icalcurvesofslantroute。Itisdesignedmainlytocalculatetheradiusoftheverticalcurves,andthenrealizetheoptimizationofthewholeroutefinally.Keywords:centralyard;optimumdesign;visualbasic1概述当今科技迅猛发展，特别是信息技术的发展，已经深入到各行各业、各个领域中。采矿行业也与时俱进，加大了信息化力度，实现高产高效。然而，作者了解到，在矿井设计

5、中，虽然信息化水平比较高，但是计算机应用的发展比较滞后。比如采区中部甩车场线路的计算相当麻烦和费时费工，且容易出错。传统徒手计算非常困难，而文献《矿井开采设计》[1]中提到的电算化程序并不完整，而且很过时。本文介绍了一个基于vb的甩车场二次回转线路的优化程序，并且通过方案比较法讨论了其中的优化算法2条件分析根据甩车场运料及其他要求，其低道竖曲线半径一般在9~15m范围内，高道竖曲线半径一般在15~25m范围内选取。这样，由于高低道竖曲线组合的不同（7×11），则甩车场线路设计共有77种方案可供选取。为了从中选出

6、比较优越的方案。下面将提到的算法1中设计了一个嵌套的的循环，用来实现对这77个方案的遍历。单就技术上言，选用L2值（绝对值）最小的设计方案，线路设计有可能最优。但是，车场工程量的大小随高低道竖曲线半径大小的变化而变化。因此，在L2优越的前提下(-1000≤L2≤1000)选用高低竖曲线半径最小的方案，即可减少车场线路长度和井巷工程量，从而达到经济上优越的目的。实际上我们可以以RG、RD为坐标轴做直角坐标系，距离O点越远的点Z值越大。（其中Z为井巷工程量函数Z=RD+RG）我们又可以根据L1、L2同RD、RG的关

7、系得到下列线性规划[2][3]关系。目标函数Z=RG+RD约束条件其中下面即将讨论的算法二将用到上面这个理论。3算法实现这里有两个算法(由于笔者计算机水平有限,这两种算法可能不是最优算法)，代码如下：算法１FortRG=15000To25000Step1000FortRD=9000To15000Step1000……IfAbs(L2)<=1000ThenIfZ>tRG+tRDThenZ=tRG+tRDRG=tRGRD=tRDEndIfEndIfNextNextIfZ=999999999ThenCatchErr算法

8、2Fori=0To16q=FalseForu=0Toiv=i–uw=TrueIfu>10Thenw=FalseElseo=uEndIfIfv>6Thenw=FalseElsep=vEndIfIfwThenRD=9000+p1000RG=15000+o1000……IfAbs(L2)<=1000Thenq=TrueExitForEndIfEndIfNextIfqThenExitForEnd