高斯五線元法casio fx5800計(jì)算器任意線路坐標(biāo)正反算

1、高斯五線元法CASIO FX5800計(jì)算器任意線路中邊樁正反算程序中國(guó)中鐵十局集團(tuán)第二工程有限公司 作者:劉巖 qq:5343564MAIN主程序、樁號(hào)、橫距輸入程序1ZS 坐標(biāo)正算程序2FS坐標(biāo)反算程序3INPUT 實(shí)測(cè)坐標(biāo)輸入程序4KEYLOCK 鎖鍵程序防止按錯(cuò)鍵用于指定專用鍵繼續(xù)運(yùn)行的程序5PRINT 可獨(dú)立測(cè)試能正常運(yùn)行6DAT-01曲線要素?cái)?shù)據(jù)庫(kù)文件（請(qǐng)改為自己路線的要素）7如正確輸入以上程序，運(yùn)行MAIN，按“1”進(jìn)行坐標(biāo)反算，按“2”進(jìn)行坐標(biāo)正算。程序名:MAIN/:里程、橫距輸入程序:/Cls:Norm 17DimZZH?G /輸入樁號(hào)BZ?B /輸入邊樁距離，左負(fù)右正XJY

2、J?C /輸入斜交右角，如計(jì)算垂直線路的邊樁則默認(rèn)輸入為90C180WProgZSProgPRINT程序名：ZS 坐標(biāo)正算計(jì)算程序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(坐標(biāo)反算)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 實(shí)測(cè)坐標(biāo)輸入程序LbLSNorm 1:ClsXUYVPOT-N? /U輸入待求點(diǎn)N坐標(biāo)POT-E? /V輸入待求點(diǎn)E坐標(biāo) Ret

4、urn文件名:KEYLOCK/本程序用于鎖定鍵盤大部分按鍵，設(shè)定時(shí)間內(nèi)無(wú)按鍵則反回默認(rèn)健。只有“1”，“2”,這二個(gè)鍵可用，為了更方便說(shuō)明程序，以后將分別定義這二個(gè)鍵為熱鍵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/,顯示：樁號(hào)，N，E，B橫向偏移。熱鍵功能1 快捷坐標(biāo)反算2快捷坐標(biāo)正算Z1N當(dāng)前分段要

5、素N坐標(biāo)Z2E當(dāng)前分段要素E坐標(biāo)Z3M當(dāng)前分段要素起點(diǎn)樁號(hào)Z4H當(dāng)前分段要素起點(diǎn)方位角（正北）單位：弧度Z5A當(dāng)前分段要素起點(diǎn)曲率有左偏負(fù)右偏正（注意不是半徑）Z6R當(dāng)前分段要素終點(diǎn)曲率有左偏負(fù)右偏正（注意不是半徑）Z7L當(dāng)前分段要素長(zhǎng)度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功能 長(zhǎng)按1鍵進(jìn)行正算If I=36:Then Prog FS:Goto S:IfEnd /定義2功能 長(zhǎng)按2鍵進(jìn)行反算Goto S/文件名:DAT-01要素?cái)?shù)據(jù)庫(kù)文件。計(jì)算其它地方公路鐵路中樁坐標(biāo)，只需改動(dòng)該文件內(nèi)容既可。180JIf G331686.367:Then Cls: