fx-5800p全線坐標(biāo)正反算帶高程計算程序(線元法)-全文預(yù)覽
【正文】 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:If F0:Then F+360→F:IfEndReturn3. 反算子程序(SUBFS)GM→T:Abs((YV)cos(T)(XU)sin(T))→W:0→ZLbl C:Prog “SUBZS”T+QEW(C+WD)→L:(Z[5]Y)cos(L)(Z[4]X)sin(L)→ZIf Abs（Z）106:Then Goto D:Else W+Z→W：Goto C:IfEndLbl D:0→Z:Prog “SUBZS”:(Z[5]Y)247。曲線任意里程中邊樁坐標(biāo)正反算(CASIO fx5800P計算器)程序一、 程序功能及原理：本程序由一個主程序(TYQXJS)和五個子程——正算子程序(SUBZS)、反算子程序(SUBFS)等構(gòu)成，可以根據(jù)曲線段——直線、圓曲線、緩和曲線（完整或非完整型）的線元要素（起點坐標(biāo)、起點里程、起點切線方位角、線元長度、起點曲率半徑、止點曲率半徑）及里程邊距或坐標(biāo)，對該曲線段范圍內(nèi)任意里程中邊樁坐標(biāo)進行正反算。2．計算原理：利用GaussLegendre 5點通用公式正算線路中邊樁坐標(biāo)、線外測點至曲線元起點和終點的垂距的符號是否相異（即DcaDcb0=該測點在其線元內(nèi)）進行判斷并利用該線元要素反算中樁里程、支距，最后計算出放樣數(shù)據(jù)。R→L:IfEndReturn5. 垂距計算子程序(SUBZX1) (Z[5]Z[8J+1])cos(A)(Z[4]Z[8J])sin(A)→Z[6] (Z[5]Z[8(J+1)+1])cos(B)(Z[4]Z[8(J+1)])sin(B)→Z[7]Return：DAT1(兩條線路，可擴充為多條線路)(A1)If I=0:Then Goto E: Else If I=2:Then Goto F:IfEnd:IfEndJ=1=***→Z[8]:***→Z[9]:***→Z[10]:***→Z[11]:***→Z[12]:***→Z[13]:***→Z[14]:*** →Z[15]：IfEndJ=2=***→Z[16]:***→Z[17]:***→Z[18]:***→Z[19]:***→Z[20]:***→Z[21]:***→Z[22]:***→Z[23]:IfEndJ=3=***→Z[24]***→Z[25]:***→Z[26]:***→Z[27]:***→Z[28]:***→Z[29]:***→Z[30]:***→[31]:IfEnd………………………………………………..Goto HLbl F: J=1=***→Z[8]:***→Z[9]:***→Z[10]:***→Z[11]:***→Z[12]:**
外語相關(guān)推薦
鄂ICP備17016276號-1