卡西歐5800隧道放樣程序-資料下載頁
2025-07-30 00:25本頁面
【正文】 A: 420→L: 10^(45→P: 5500→R:Return:IfEndIf SThen →U→V: →O: →A: →L: 5500→P:5500→R:Return:IfEndIf SThen →U→V: →O: →A: 420→L: 5500→P 10^(45→R:Return:IfEndQXJSSUB1 坐標(biāo)正算子程序(1/R1/P)/L→D:SO→X:U+∮(cos(A+(X/P)+DX2)*180/π,0,X)→N:V+∮(sin(A+(X/P)+DX2)*180/π,0,X)→E:A+(X/P)+DX2)*180/π,0,X)→F:N+Zcos(F+G)→N:E+Zsin(F+G)→E:ReturnQXJSSUB2 坐標(biāo)反算子程序Lbl 1:0→Z:1→Q:Prog “QXJSSUB0”:(1/R1/P)/L→D:SO→X:U+∮(cos(A+(X/P)+DX2)*180/π,0,X)→N:V+∮(sin(A+(X/P)+DX2)*180/π,0,X)→E:A+(X/P)+DX2)*180/π,0,X)→F:N+Zcos(F+90)→N:E+Zsin(F+90)→E:Pol(NB+10^(46),EC+10^(46)):Isin(F90J)→W:S+W→S:If Abs(W):Then Goto 1:IfEndLbl 2:0→Z:Prog “QXJSSUB1”:(CE)/sin(F+90)→Z:Return第四種放樣程序 FY04中樁坐標(biāo)正反算程序根據(jù)4800P源程序改寫5800PFY 主程序Cls:Fix 3:“ = XY”:“ = SZ”:?N:“X0”? U：線元起點(diǎn)X坐標(biāo)“Y0”? V：線元起點(diǎn)Y坐標(biāo)“S0”? O：線元起點(diǎn)樁號(hào)“F0”? G：線元起點(diǎn)方位角“LS”? H：線元起點(diǎn)長度“R1”? P：線元起點(diǎn)半徑“R2”? R：線元終點(diǎn)半徑“0+”?Q：線元轉(zhuǎn)向方向（直線為0，左為1，右為1）1/P→C:(PR)/(2HPR)→D:180/π→E:If N=1: Then Goto 1: Else Goto 2:IfEnd:Lbl 1:“S=”?S: 里程“Z=”?Z: 偏移量Abs(SO)→W:Prog “ZS”:Cls:“Xp=”:“Yp=”:Locate 7,1,X:Locate 7,2,Y◢“FWJ=”:F90→F:F?DMS◢Goto 1:Lbl 2:“Xp”?X:X→I:“Yp”?Y:Y→J:Prog “FS”:O+W→S:Cls:“S”:“Z”:Locate 10,1,S:Locate 10,2,Z◢Goto 2ZS 正算子程序→A:→B:→K:→L:1L→F:1K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→X:V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD)) +Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Y:G+QEW(C+WD)+90→F:X+Zcos(F)→X:Y+Zsin(F)→YFS 反算子程序G90→T:Abs((YV)cos(T)(XU)sin(T))→W:0→Z:Lbl 0:Prog “ZS”:T+QEW(C+WD)→L:(JY)cos(L)(IX)sin(L)→Z:If Abs(Z) 10^(6):Then Goto 1:Else W+Z→W:IfEnd:Goto 0:Lbl 1:0→Z:Prog “ZS”:(JY)/sin(F)→Z
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1