fx-5800p全線坐標(biāo)正反算帶高程計(jì)算程序(線元法)-免費(fèi)閱讀
【正文】 (8)正算時(shí)可僅輸入里程Lp和邊距Dp及右交角ANG全線計(jì)算，反算時(shí)通過(guò)輸入測(cè)點(diǎn)的X、Y坐標(biāo)和右交角ANG后計(jì)算器自動(dòng)判斷該點(diǎn)所屬曲線元并利用該線元的曲線要素執(zhí)行反算中樁里程Lp及支距Dp。 (2) 當(dāng)所求點(diǎn)位于中線時(shí)，Z=0；當(dāng)位于中線左側(cè)時(shí)，Z取負(fù)值；當(dāng)位于中線中線右側(cè)時(shí)，Z取正值。2．計(jì)算原理：利用GaussLegendre 5點(diǎn)通用公式正算線路中邊樁坐標(biāo)、線外測(cè)點(diǎn)至曲線元起點(diǎn)和終點(diǎn)的垂距的符號(hào)是否相異（即DcaDcb0=該測(cè)點(diǎn)在其線元內(nèi)）進(jìn)行判斷并利用該線元要素反算中樁里程、支距，最后計(jì)算出放樣數(shù)據(jù)。二、源程序(TYQXJS)(A)Deg:fix 3119→DimZ“INPUT(0) Or DATA(Else)”?ILbl 0:“=XY,=SZ，=CK,=FY，=FY”?NIf N=1 Or N=5:Then Goto 1Else If N=2 Or N=3 Or N=4:Then Goto 2Else Goto 3IfEnd:IfEndLbl 1:“K(m)=”?SIf S0:Then Goto 0:IfEnd“JL(m)=”?ZIf Z≠0:Then “ANGLE→R(Deg)=”?M:IfEnd If I=0:Then Prog “DAT1”:Else Prog “DAT2”:IfEndSO→W:If W0:Then Goto 0:Else If WH:Then Goto 0:IfEnd:IfEndProg “SUBZS”:Prog “SUBGC”If Z0:Then“XL(m)=”:X◢ “YL(m)=”:Y◢ If N=5:Then Prog “SUBTW”:IfEndElse If Z0:Then “XR(m)=”:X◢ “YR(m)=”:Y◢If N=5:Then Prog “SUBTW”:IfEndElse “X(m)=”:X◢ “Y(m)=”:Y◢ “Hs(m)=”:L◢ “FWJ=”: F?DMS◢ IfEnd:IfEndGoto 1Lbl 2:“X(m)=”?X:If X0:Then Goto 0:IfEnd“Y(m)=”?YIf N=3 Or N=4:Then “H(m)=”?→Z[2]:IfEnd X→Z[4]:Y→Z[5]:90→MIf I=0:Then Prog “DAT1”G+QEH(C+HD)→F:1→J:U→Z[8J]:V→Z[8J+1]GM→A:FM→B:Prog “SUBZX1”:Goto BG+M→A:F+M→B:Prog “SUBZX1”:Goto B:IfEnd0→J:Lbl A: Isz JZ[8J+3]M→A:Z[8(J+1)+3]M→B:Prog “SUBZX1” If Z[6]Z[7]0:Then J→J:Prog“DAT1” :Goto B:IfEndZ[8J+3]+M→A:Z[8(J+1)+3]+M→B:Prog “SUBZX1” If Z[6]Z[7]0:Then J→J:Prog “DAT1” :Goto B:Else Goto A:IfEndLbl B:Prog“SUBFS”O(jiān)+W→S:Prog “SUBGC”“K(m)=”:S◢ “Hs(m)=”:L◢ “JL(m)=”:Z◢If N=3:Then Prog “WIDE”:IfEndIf N=4:Then Prog “SDFY”:IfEndGoto 2Lbl 3:“TYQXJS→END”2. 正算子程序(SUBZS)（A3）→A: →B:→Z[1]:→K:→L:→Z[3]U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Z[1]cos(G+QEZ[3]W(C+Z[3]WD))+Bcos(G+QE(1L)W(C+(1L)WD))+Acos(G+QE(1K)W(C+(1K)WD)))→X V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Z[1]sin(G+QEZ[3]W(C+Z[3]WD))+Bsin (G+QE(1L)W(C+(1L)WD))+Asin(G+QE(1K)W(C+(1K)WD)))→YG+QEW(C+WD)+M→FX+Zcos(F)→X:Y+Zsin(F)→YFM→F
外語(yǔ)相關(guān)推薦
鄂ICP備17016276號(hào)-1