fx-5800p全線坐標(biāo)正反算帶高程計算程序(線元法)(已修改)
2025-08-16 09:40 本頁面
【正文】 曲線任意里程中邊樁坐標(biāo)正反算(CASIO fx5800P計算器)程序一、 程序功能及原理：本程序由一個主程序(TYQXJS)和五個子程——正算子程序(SUBZS)、反算子程序(SUBFS)等構(gòu)成，可以根據(jù)曲線段——直線、圓曲線、緩和曲線（完整或非完整型）的線元要素（起點坐標(biāo)、起點里程、起點切線方位角、線元長度、起點曲率半徑、止點曲率半徑）及里程邊距或坐標(biāo)，對該曲線段范圍內(nèi)任意里程中邊樁坐標(biāo)進(jìn)行正反算。本修改版程序既可實現(xiàn)正算全線貫通，亦可實現(xiàn)反算全線貫通。本程序在CASIO fx5800P計算器運行。2．計算原理：利用GaussLegendre 5點通用公式正算線路中邊樁坐標(biāo)、線外測點至曲線元起點和終點的垂距的符號是否相異（即DcaDcb0=該測點在其線元內(nèi)）進(jìn)行判斷并利用該線元要素反算中樁里程、支距，最后計算出放樣數(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
外語相關(guān)推薦
鄂ICP備17016276號-1