5800给力程序.docVIP

给力5800程序新版 本程序为给力程序的升级版！升级后可以算多条线路!即一个主程序可以调用多条线路的数据.弥补了老程序只能算单一线路的不足。这样一来满足了多条匝道和路线的需求！在功能上，本程序延续老给力运行功能。依旧是正算功能，反算功能，构筑物计算功能，和坡脚放样功能。对程序好的方面，差的方面，请大家qq540733671邮箱540733671@留言！算列将发布在我的qq空间！ 本人创做本程序出于对程序的喜爱！只在方便大家！使用本程序的师傅！师兄弟！朋友们！在将本程序使用在实际工程前！请认真核对本程序得到的数据结果,并与设计图纸核对！以免操作或理解失误引的不必要损失！使用本程序为您的自愿行为，出差错后本人概不负责！ 表一 主程序名“GLCX” 行号 程序内容 相关说明 1 Deg: Fix 3:40→DimZ( 设置角度单位，数值显示格式，定义额外变量。 2 “XLXZ”? →Z[40]( 线路选择赋值。 3 Lbl 0( 4 Cls:“(1)ZS,(2)FS,(3)GZW,(4)PJFY”？Q( 1正算，2反算，3构造物放样，4坡脚放样。 5 Q=1=Goto1:Q=2=Goto2:Q=3=Goto:Q=4=Goto6( 7 Lbl 1( 8 ”KP=”? S( 输入相对应里程 9 Prog“GL2”( 调用给力2号子程序（下同） 10 Prog“GL3”( 调用给力3号子程序（下同） 11 “ZX”:Z[2] ◢ 显示相对应里程x坐标 12 “ZY”:Z[3] ◢ 显示相对应里程y坐标 13 “F”:F? DMS◢ 显示相对应方位角 14 “Z=”？Z( 输入距边桩距离，左负右正 15 “JD=”？G: G=0= Goto0( 与右线路的夹角 16 “X=”：Z[2]+ZCos(F+G) ◢ 计算并显示边桩x坐标 17 “Y=”：Z[3]+ZSin(F+G) ◢ 计算并显示边桩y坐标 18 Goto 1( 19 Lbl 2( 20 “FX”?I:“FY”?J: ”KP=”? S( 反算xy坐标及大概桩号 21 S=0= Goto 0( 22 Lbl 5( 23 Prog“GL2”( 24 Prog“GL3”( 25 A+Z[11](C+XD)-90→A( 26 (J-Z[3])COS(A)-(I-Z[2])SIN(A) →H( 27 If Abs（H）＞0.0001：Then S+H→S: Goto 5: IfEnd( 28 “K=”:S◢( 显示反算里程 29 “D=”:(Z[3]-J)÷sin（A）→D◢( 显示反算距离边距 30 Goto 2( 31 Lbl 3( 32 ”KP=”? S( 输入构造物中心桩号 33 Prog“GL2”( 34 “BL=”?Z: “JD=”？G: “BD=”?K( 输入半长（左负），与线路夹角，输入半宽（大里程方向正小里程输入负） 35 Prog“GL3”( 36 “X=”：Z[2]+(K÷sin（G）)COS(F)+ZCOS(F+G) ◢ 显示对应x坐标 37 “Y=”：Z[3]+ (K÷sin（G）)sin(F)+ZSIN(F+G) ◢ 显示对应y坐标 38 Goto 3( 39 Lbl 6( 40 “KP=”? S( 输入待放样的坡脚桩号 41 “Z=”? Z( 输入大概距中桩距离 42 Z=0=Goto 0( 43 Prog“GL2”( 44 Prog“GL3”( 45 “X=”：Z[2]+ZCOS(F+90) ◢ 显示大概距中桩距离x 46 “Y=”：Z[3]+ZSIN(F+90) ◢ 显示大概距中桩距离y 47 “CLG”?C:”SJG”?B:”B”?A( 输入测量高程，输入坡顶设计高程，输入半宽B输入时要左负右正！ 48 1.5→Z[28]:1.75→Z[30]: 8→Z[27]( 1.5第一级边坡率，1.75第2级边坡率，8由一级变为两级边坡高度，（按不同工程程做修改） 49 If B-C≤Z[27]: Then Cls：”PL=”: (A÷Abs（A）））”PL=”: (A÷Abs（A）））( 52 Z[29] → Z◢ 根据参数算出的距边距离 53 Cls( 54 “PX=”:Z[2]+ZCOS(F+90) ◢ 显示对应宽度x坐标 55 “PY=”:Z[3]+ZSIN(F+90) ◢ 显示对应宽度y坐标 56 Goto 6( 表2 程序名“GL1” 行号 程序内容 相关说明 1 Mat B[1,1] →U: Mat