高斯五线元法casio fx5800计算器任意线路坐标正反算

1、高斯五线元法CASIO FX5800计算器任意线路中边桩正反算程序中国中铁十局集团第二工程有限公司 作者:刘岩 qq:5343564MAIN主程序、桩号、横距输入程序1ZS 坐标正算程序2FS坐标反算程序3INPUT 实测坐标输入程序4KEYLOCK 锁键程序防止按错键用于指定专用键继续运行的程序5PRINT 可独立测试能正常运行6DAT-01曲线要素数据库文件（请改为自己路线的要素）7如正确输入以上程序，运行MAIN，按“1”进行坐标反算，按“2”进行坐标正算。程序名:MAIN/:里程、横距输入程序:/Cls:Norm 17DimZZH?G /输入桩号BZ?B /输入边桩距离，左负右正XJY

2、J?C /输入斜交右角，如计算垂直线路的边桩则默认输入为90C180WProgZSProgPRINT程序名：ZS 坐标正算计算程序ProgDAT-01RadG-MQ0.5(R-A)LKAQIKQ2J0.0469100770P:H+IP+JP2O0.2307653449P:H+IP+JP2T0.5P:H+IP+JP2D0.7692346551P:H+IP+JP2F0.9530899230P:H+IP+JP2P0.1184634425I0.2393143352J0.2844444444YN+Q(ICos(O)+JCos(T)+YCos(D)+JCos(F)+ICos(P)XE+Q(ISin(O)+

3、JSin(T)+YSin(D)+JSin(F)+ISin(P)YH+AQ+KQ2FX+BCos(F+W)XY+BSin(F+W)Y文件名:FS(坐标反算)ProgINPUT0B：M+L2G：ProgZSLbL S:RadU-XI:V-YJIf I=0 And J=0 :Then Goto A:IfEndPol(I,J)LbL A:Rec(I，J-F)G+IG:IF Abs(I)0.0001 :Then ProgZS:Goto S：IfEnd:JB/文件名：INPUT 实测坐标输入程序LbLSNorm 1:ClsXUYVPOT-N? /U输入待求点N坐标POT-E? /V输入待求点E坐标 Ret

4、urn文件名:KEYLOCK/本程序用于锁定键盘大部分按键，设定时间内无按键则反回默认健。只有“1”，“2”,这二个键可用，为了更方便说明程序，以后将分别定义这二个键为热键1000JLbL S0IDo:I+1I:IJ=Goto E:LpWhile Not(Getkey=35 Or Getkey=36 OrGetkey=37 OrGetkey=77 OrGetkey=73)Getkey=73=Stop /停止全部程序Getkey=0=Goto SGetkeyI:ReturnLbl E57I文件名:PRINT/,显示：桩号，N，E，B横向偏移。热键功能1 快捷坐标反算2快捷坐标正算Z1N当前分段要

5、素N坐标Z2E当前分段要素E坐标Z3M当前分段要素起点桩号Z4H当前分段要素起点方位角（正北）单位：弧度Z5A当前分段要素起点曲率有左偏负右偏正（注意不是半径）Z6R当前分段要素终点曲率有左偏负右偏正（注意不是半径）Z7L当前分段要素长度LbL S:ClsZH=:Locate 4,1,GN=:Locate 3,2,XE=:Locate 3,3,YB=:Locate 3,4,BProg KEYLOCKIf I=35:Then Prog MAIN:Goto S:IfEnd /定义1功能 长按1键进行正算If I=36:Then Prog FS:Goto S:IfEnd /定义2功能 长按2键进行反算Goto S/文件名:DAT-01要素数据库文件。计算其它地方公路铁路中桩坐标，只需改动该文件内容既可。180JIf G331686.367:Then Cls: