5800公路線路坐標(biāo)正反算程序-wenkub
2022-09-01 08:47:12 本頁面
【正文】 :Then Goto 1 :IfEnd↙Z[1]P→L↙X(S+L)cos(M)+Dcos(Z+H)→F↙Y(S+L)sin(M)+Dsin(Z+H)→G↙M→Z : Goto 5↙LbI 1 : If P＞Z[2]:Then Goto 2 :IfEnd↙PZ[1]→L:L→Z[12]:B→Z[13]:Prog＂JDC＂↙Z[19]+Z[14]cos(M)WZ[15]sin(M)+Dcos(Z+H)→F↙Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙M+90WL2 247。40247。6247。42240247。R 選擇線路，左幅=1，右幅=1，整體式=0 正算子程序 GSZS ((PR)247。(FM) →F Return 2. 反算主程序π)(Z[2]X)sin(G90+QJ(1247。 3. 反算，正算子程序(SUB1) →A:→B: →Z[4]:→C: →E: →Z[1]: (I+J(Acos(G+QCJ(1247。π)+Z[4]cos(G+QZ[1]J(1247。π)+Acos(G+Q (1C)J(1247。π)+Bsin(G+QEJ(1247。π)+Bsin(G+Q(1E)J(1247。π))) →Y： (G+QJ(1247。由于加入了數(shù)據(jù)庫(DATM)，可實現(xiàn)坐標(biāo)正反算的全線貫通。 組合程序5可實現(xiàn)M線的正算貫通，組合程序7可實現(xiàn)M線的反算貫通，組合程序6可實現(xiàn)坐標(biāo)計算到放樣一體化。 二、使用說明 規(guī)定 3) 當(dāng)線元為直線時，其起點、止點的曲率半徑為無窮大，以10的45次代替。止點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。 (7)曲線元要素數(shù)據(jù)庫（DATM）可根據(jù)線型不同分為各個線元段輸入到DATM中，即分為直線段、緩和曲線、圓曲線等。 線 元左右偏標(biāo)志(左偏Q=1，右偏Q=1，直線段Q=0)K ？ 正算時所求點的里程L ？M ? R0 Q 1E45 91 17 80 40 1E45 0 （注：該算例中線元要素Ls為程序修改前須輸入的線元長度，程序修改后改為輸入線元終點里程KN） GAUSSLE坐標(biāo)正反算fx－5800程序 （GSZS）？K：Prog “DATMDZD”: ((PR)247。π)) →Z[20]:((Z[2]X)sin(G90+QJ(1247。(2(HO(字母))PR))→D : (Acos(G+QCJ(1247。π)) →Z[6]: (Z[4]cos(G+QZ[1]J(1247。π)) →Z[8]:(Acos(G+Q (1C)J(1247。π)) →Z[12]:(Bsin(G+QEJ(1247。π)) →Z[14]:(Bsin(G+Q(1E)J(1247。π)) →Z[16]:( Z[12]+ Z[13]+ Z[14]+ Z[15]+ Z[16])→Z[17] : (JZ[17]) →Z[18]:(S+ Z[18]) →Y: (G+M) →Z[19]:(( Z[19]+QJ(1247。由于加入了數(shù)據(jù)庫(DATM)，可實現(xiàn)坐標(biāo)正反算的全線貫通。 3) 當(dāng)線元為直線時，其起點、止點的曲率半徑為無窮大，以10的45次代替。 (6) 當(dāng)線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設(shè)計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。 輸入與顯示說明 （1）輸入部分： I ？線元起點的X坐標(biāo) S？線元起點的Y坐標(biāo) O？線元起點里程G ？線元起點切線方位角 H ？線元終點里程 P ？線元起點曲率半徑 R？線元止點曲率半徑 Q ？ 線 元左右偏標(biāo)志(左偏Q=1，右偏Q=1，直線段Q=0)K ？ 正算時所求點的里程L ？ 正算時所求點距中線的邊距(左側(cè)取負(fù)值，右側(cè)取正值，在中線上取零)ANG？正算邊樁時左右邊樁連線與線路中線的右交角 X ？ 反算時所求點的X坐標(biāo)Y ？ 反算時所求點的Y坐標(biāo) M ? 斜交右角 （2）顯示部分 X正算時，計算得出的所求點的X坐標(biāo)Y正算時，計算得出的所求點的Y坐標(biāo)K反算時，計算得出的所求點的里程 L反算時，計算得出的所求點的邊距 三、算例 某匝道的由五段線元（直線+完整緩和曲線+圓曲線+非完整緩和曲線+直線）組成，各段線元的要素（起點里程S0、起點坐標(biāo)X0 Y0、起點切線方位角F0、線元長度LS、起點曲率半徑R0、止點曲率半徑RN、線元左右偏標(biāo)志Q）如下：
法律信息相關(guān)推薦
鄂ICP備17016276號-1