5800-更新版.doc

(一)、SUB 主程序 ( 5800万能综合 ) 100DimZ :“1.SZ=XY” ：“XY=2.SZ” ：“N”？N ：If N=1 ：Then Goto 1:EIse Goto2: If End Lbl1:“S=”？S :“Z=”？Z ：Prog“SUBZ” ：(PC)(2PC（BO）)D：Abs(SO)W ：Prog“SUB1” ：“XS=”：XX “YS=”： YY F90F: “F=” ：F DMS Goto18Lbl2: “S=”？S : “X=”？X:“Y=”？Y:Prog“SUBZ” ：(PC)(2PC（BO）)D：XI:YJ ：Prog“SUB2”：O+WS:“S=”:SS “Z=” ：ZZ Prog“SHZ” : “H=” : H HProg“SMZ” Goto2 8(二)、SUB1 子程序(正算)（注：E=180 ， F=1L ，M= 1K ）。0.1739274226 Z99： 0.3260725774Z98： 0.0694318442 Z97： 0.3300094782 L：U+W(Z99 cos(G+Q（180）Z97W(（1P）+ Z97WD)+ Z98 cos(G+（180）Q LW(（1P）+LWD) + Z98 cos(G+（180）（1L） Q W(（1P）+（1L）WD)+ Z99 cos(G+（180）（1Z97）Q W(（1P）+（1Z97）WD) X ：V+W(Z99sin(G+（180）Z97Q W(（1P）+ Z97WD)+ Z98sin(G+（180）QLW(（1P）+LWD)+ Z98sin(G+（180）（1L）QW(（1P）+（1L）WD)+ Z99sin(G+（180）（1Z97QW(（1P）+（1Z97）WD)Y：（G+（180）Q W(（1P）+WD)）+90 F ：X+ZcosF X ： Y+ZsinF Y 8(三)、SUB2 子程序 ( 反算 ) G90 T：Abs(YV)cos（T）(XU)sin(T) W： Z：Lbl：Prog“SUB1” ：T+（180）QW(（1P）+WD)L ：(JY)cos（L）(IX)sin(L) Z：If Abs （Z ）0.000001 ：Then Z ：Prog “SUB1”：(JY) sin（F）Z：Else W+Z W：Goto: If End 8(四)、SUBZ 子程序（数据库） If S 2378.450: Then If S 3573.369 ：Then 2567962.754 U:478639.703 V: 79 3710.4 G:3000P:3000C:2378.45O：3573.369B : 1 Q : If End : If End 8If S 3573.369 : Then If S 4888.217：Then 2568403.409 U:479741.918 V: 56 4753.82 G:4200P：4200C: 3573.369O : 4888.217 B : 1Q: If End : If End8If S 4888.217 : Then If S 5825.888：Then 2569282.517 U:480712.445 V: 38 5140.30 G:4000P：4000C: 4888.217O : 5825.888 B : 1Q: If End : If End 8（五）、SHZ 子程序 （左线 : 纵坡高程计算 ）If S 3300: Then If S 4375.801：Then 85.626+0.025(S 3300) H: If End : If End 8If S 4375.801: Then If S 4675.800：Then 112.521+0.025(S 4375.801) (S 4375.801)2(2120000) H: If End : If End 8（六）、 SM Z ： 子程序 （ 左线：隧道半径计算 R ） “M =”？M：If tan-1（M - H）Abs（6.7Abs ( Z）) 45：Then “R1= ”：（M - H）2（Abs（6.7 + Z）2）R y Eise“R 2 = ” ：（M H1.061）2 （Abs （6.7 + Z）1.061）2） R y二、输入与显示说明 ( 待修改) （一）数据库输入说明X0：线元起点（切点）的坐标（X）； Y0：线元起点（切点）的坐标（Y）； 0：线元起点（切点）里程 ； B？：所求线元的终点桩号； F0：线元起点（切线）的方位角； P：线元（曲线）起点的曲率半径 ，（当线元为完整缓和曲线时）。起点与直线相接时，曲率半径为无穷大，以10的45次代替；起点与圆曲线相接时，曲率半径等于圆曲线的半径。 C：线元终点的曲率半径。（当线元为完整缓和曲线时）。终点与直线相接时，曲率半径为无穷大，以10的45次代替；终点与圆曲线相接时，曲率半径等于圆曲线的半径。Q：线元转角方向(左偏Q= - 1，右偏Q= 1，直线段Q= 0)；(二)正算输入说明N？：输入1 ( 用边距和桩号 计算坐标X，Y ).S？: 所求点的桩号.Z？：所求点距线路中线的边距(左侧取负值, 右侧取正值，在中线上取零)(三) 反算输入说明N？: 输入2 . (用X，Y的坐标反算桩号和边距)。S？: 所求点的接近桩号. X？：反算时所求点的实测(X)坐标； Y？：反算时所求点的实测(Y)坐标. FS: 计算得出的(所求点的)切线方位角.M？：为所求点的实测高程。（四）显示部分：正算时: XS= : 计算得出的(所求点)X坐标； YS= : 计算得出的(所求点)Y坐标； 反算时: S= :，所求点的里程 ； Z= :反算时，所求点至线路中桩的边距。H=: 为设计高程。 R1和R2为隧道道洞身半径.(一)、SUB 主程序 ( 5800万能程序： 不带数据库时用此程序 ) 100DimZ : “1.SZ=XY” ：“XY=2.SZ” ：“N”？N：“X0”？U ：“Y0”？V：“F0”？G ：“RO”？P：“RK”？C：“SO” ？O ：“SK”？B ：“Q(1, 1,)”？Q ：(PC)(2PC（BO）)D：If N=1 ：Then Goto 1:EIse Goto2: If End Lbl1:“S=”？S :“Z