卡西歐5800p計(jì)算器隧道施工測量程序設(shè)計(jì)(編輯修改稿)
2025-08-26 00:30 本頁面
【文章內(nèi)容簡介】 ↙13. Pol(Z[7]M,Z[8]N):J＜0＝＞J+360→J↙14. 1→T:Prog“TYQXJSXS”↙15. Lbi3:“S=”?S:IS→S▲ If Abs(S)≥:Then Goto3:Else Goto1:IfEnd↙16. Lbi2:“Xm=”?X:“Yn=”?Y:”SXG=”?Z[17]:“Kp=”?K↙（輸入實(shí)測坐標(biāo)及附近樁號）17. Z[5]＞0＝＞Prog“TYQXJSDATA”↙18. Prog“TYQXJSSUB2”↙19. 2→T:Prog“TYQXJSXS”↙20.”Z1=”?Z:Z=0＝＞Goto2:Prog”BPEHDATD”:Prog”BPEHBPH”(Z=0返回進(jìn)行里程，偏距計(jì)算。Z≠0進(jìn)入高程計(jì)算)21: Prog”SOIDAODATA（隧洞數(shù)據(jù)庫路由引導(dǎo)）” SOIDAO”(進(jìn)行隧洞超，欠挖計(jì)算)TYQXJSSUB1（坐標(biāo)正算子程序）1．1247。P→C：（PR）247。（2HPR）→D：180247。π→E↙→A:→Z[1]:→S:→L:1L→Z[2]:1S→Z[3]↙+W(ACos(G+QESW(C+SWD))+Z[1]Cos(G+QELW(C+LWD))+Z[1]Cos(G+Z[2]QEW(C+Z[2]WD))+A Cos(G+Z[3]QEW(C+Z[3]WD)))→X（計(jì)算點(diǎn)X坐標(biāo)）↙+W(ASin(G+QESW(C+SWD))+Z[1]Sin(G+QELW(C+LWD))+Z[1]Sin(G+Z[2]QEW(C+Z[2]WD))+A Sin(G+Z[3]QEW(C+Z[3]WD)))→Y（計(jì)算點(diǎn)Y坐標(biāo)）↙+QEW(C+WD)→Z[4]（計(jì)算點(diǎn)切線方位角）↙TYQXJSSUB2（反算里程和邊距子程序）1． X→I：Y→J↙2． Abs(JV)Cos(G90)(IU)Sin(G90)→W:0→B↙3． Lbi0:Prog”TYQXJSSUB1”↙4． (G90)+QEW(C+WD)→L↙5． (JY)CosL(IX)SinL→B↙6． If AbsB＜10^(6):Then Goto1:Else W+B→W:Goto0:IfEnd↙7． Lbi1:0→B:Prog“TYQXJSSUB1”↙8． (JY)247。Sin(Z[4]+90)→B↙9． O+W→K:B→B↙(K為反算樁號，B為偏距)TYQXJSDATA（路由器） Z[5]=1:Then Prog“TYQXJSDAT1”:Goto1:IfEnd↙(調(diào)用線路一數(shù)據(jù)庫據(jù)) Z[5]=2:Then Prog“TYQXJSDAT2”:Goto1:IfEnd↙（調(diào)用線路二數(shù)據(jù)庫據(jù)） Z[5]=3:Then Prog“TYQXJSDAT3”:Goto1:IfEnd↙（調(diào)用線路三數(shù)據(jù)庫據(jù)） Z[5]=4:Then Prog“TYQXJSDAT4”:Goto1:IfEnd↙（調(diào)用線路四數(shù)據(jù)庫據(jù)）5.。（根據(jù)實(shí)際項(xiàng)目情況增減線路）:Locate 4,2,“TYQXJSERROR”▲7. Stop↙(線路不存在，則警告后終止運(yùn)行)：MatB[1,1]→O:MatB[1,2]→U:MatB[1,3]→V:Mat[1,4]→G:MatB[1,5]→H:MatB[1,6]→P:MatB[1,7]→R:Mat[1,8]→Q(將線元數(shù)據(jù)賦值給相關(guān)變量。O線元起點(diǎn)程，U,V線元起點(diǎn)坐標(biāo)，G線元起點(diǎn)切線方位角，H線元長度，P線元起點(diǎn)半徑，R線元終點(diǎn)半徑，Q線元左右偏標(biāo)志，左偏取1，右偏取+1，直線段取0)↙TYQXJSXS（顯示子程序）1. Cls:If T=1:Then “X=”:Locate 4,1,Z
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1