5800公路線路坐標(biāo)正反算程序(完整版)
【正文】 曲線相接時(shí)，曲率半徑等于圓曲線的半徑。本程序轉(zhuǎn)化后可以在CASIO fx4800P計(jì)算器及 CASIO fx4850P計(jì)算器上運(yùn)行。P+Z[1]JD)180247。P+(1E)JD)180247。sin(F))→L: (O+J)→K:“LC=”:K◢L→L :“PJ（Z +Y）=”:L◢ 3. 反算，正算子程序(SUB1) →A:→B: →Z[4]:→C: →E: →Z[1]: ((PR)247。 1E45 125 16 X0 X ？ 反算時(shí)所求點(diǎn)的X坐標(biāo)Y ？ 反算時(shí)所求點(diǎn)的Y坐標(biāo)（1）輸入部分： QDX0 ？線元起點(diǎn)的X坐標(biāo) QDY0 ？線元起點(diǎn)的Y坐標(biāo) QDK0 ？線元起點(diǎn)里程QDFWJ ？線元起點(diǎn)切線方位角 ZDLC ？線元終點(diǎn)里程 QDR ？線元起點(diǎn)曲率半徑 ZDR？線元止點(diǎn)曲率半徑 Q ？ (5) 當(dāng)線元為完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。 本程序可以在CASIO fx4800P計(jì)算器及 CASIO fx4850P計(jì)算器上運(yùn)行。P+Z[1]JD)180247。P+(1E)JD)180247。sinF)→L: ”K=”: O+J→k◢”L=”:L→L◢ Goto 0 (Abs(KO)) →J：ProgSUB1： ?第二緩和曲線長(zhǎng)度(RZ[13])^(4) →Z[14]↙Z[12]^(3)247。2)R→E↙KS→Z[1] ↙↙Z[1]+B→Z[2] ↙↙ Z[2]+Q247。sin(A))→S↙Z[9]+((R+Z[6](R+Z[7])cos(A))247。2688247。＂QXFWJ(Z)=＂: Z▼DMS◢Goto 0 : IfEnd↙If D＞0 :Then Cls : ＂X(R)=＂:＂Y(R)=＂: Locate 6,1,F : Locate 6,2,G◢Goto 0 : IfEnd↙子程序1名： JDAIf O＜0 :Then作者:張玉楠 1→W : Else 1→W : IfEnd : WO→A ↙B2 247。R ^(3) →Z[7] ↙B247。sin(A))→T↙RAπ247。2→Z[3]↙Z[1]+LC→Z[4]↙Z[4]+C→Z[5]↙子程序2名： JDBXScos(M)→Z[19]:YSsin(M)→Z[20]↙X+Tcos(N)→Z[21]:Y+Tsin(N)→Z[22]↙If P＞Z[1]: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。6247。R(FM) →F Return 2. 反算主程序 3. 反算，正算子程序(SUB1) →A:→B: →Z[4]:→C: →E: →Z[1]: (I+J(Acos(G+QCJ(1247。π)+Acos(G+Q (1C)J(1247。π)+Bsin(G+Q(1E)J(1247。由于加入了數(shù)據(jù)庫(DATM)，可實(shí)現(xiàn)坐標(biāo)正反算的全線貫通。 二、使用說明 規(guī)定 止點(diǎn)與直線相接時(shí)，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。 線 元左右偏標(biāo)志(左偏Q=1，右偏Q=1，直線段Q=0)K ？ 正算時(shí)所求點(diǎn)的里程L ？M ? R0 Q 1E45 0 （注：該算例中線元要素Ls為程序修改前須輸入的線元長(zhǎng)度，程序修改后改為輸入線元終點(diǎn)里程KN） GAUSSLE坐標(biāo)正反算fx－5800程序 （GSZS）？K：Prog “DATMDZD”: ((PR)247。(2(HO(字母))PR))→D : (Acos(G+QCJ(1247。π)) →Z[8]:(Acos(G+Q (1C)J(1247。π)) →Z[14]:(Bsin(G+Q(1E)J(1247。由于加入了數(shù)據(jù)庫(DATM)，可實(shí)現(xiàn)坐標(biāo)正反算的全線貫通。 (6) 當(dāng)線元為非完整
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1