卡西歐5800p計算器隧道施工測量程序設(shè)計(編輯修改稿)
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↙（輸入實測坐標及附近樁號）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返回進行里程，偏距計算。Z≠0進入高程計算)21: Prog”SOIDAODATA（隧洞數(shù)據(jù)庫路由引導(dǎo)）” SOIDAO”(進行隧洞超，欠挖計算)TYQXJSSUB1（坐標正算子程序）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（計算點X坐標）↙+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（計算點Y坐標）↙+QEW(C+WD)→Z[4]（計算點切線方位角）↙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ù)實際項目情況增減線路）:Locate 4,2,“TYQXJSERROR”▲7. Stop↙(線路不存在，則警告后終止運行)：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線元起點程，U,V線元起點坐標，G線元起點切線方位角，H線元長度，P線元起點半徑，R線元終點半徑，Q線元左右偏標志，左偏取1，右偏取+1，直線段取0)↙TYQXJSXS（顯示子程序）1. Cls:If T=1:Then “X=”:Locate 4,1,Z
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1