fx-5800p全線坐標(biāo)正反算帶高程計(jì)算程序(線元法)(文件)
【正文】 顯示實(shí)有寬度與應(yīng)有寬度之差值Return:SUBTW“TIANWA LINE”◢“DIST→MID(m)=”?A 起坡點(diǎn)與中樁距離常數(shù)“H→MID(m)=”?B 起坡點(diǎn)與中樁高差常數(shù)“T(1) Or W(Else)=”?C 填方邊坡為1，其它為挖方邊坡“i=”?E 填方或挖方邊坡坡度Abs(Z)A→D: DE→KIf C=1:Then LBK→W:Else L+B+K→W:IfEnd“JS H(m)=”:W◢ 計(jì)算出應(yīng)有高程“SC H(m)=”？→D 輸入實(shí)測(cè)高程DW→T“GC(m)=”:T◢ 顯示實(shí)測(cè)高程與計(jì)算高程的差異Return三、使用說(shuō)明規(guī)定 (1) 以道路中線的前進(jìn)方向（即里程增大的方向）區(qū)分左右；當(dāng)線元往左偏時(shí)，Q=1；當(dāng)線元往右偏時(shí)，Q=1；當(dāng)線元為直線時(shí)，Q=0。 (5) 當(dāng)線元為完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑為無(wú)窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。(7)曲線元要素?cái)?shù)據(jù)庫(kù)（DAT1）可根據(jù)線型不同分為各個(gè)線元段輸入到DAT1中，即分為直線段、緩和曲線、圓曲線等。2本次修改版不考慮CASIO fx4500PA，因其容量太小，擴(kuò)展變量實(shí)在太少而不能勝任。輸入與顯示說(shuō)明（一）、 輸入部分： 1. SZ = XY 2. XY = SZ N ? 選擇計(jì)算方式，輸入1表示進(jìn)行由里程、邊距計(jì)算坐標(biāo) ；輸入2表示由坐標(biāo)反算里程和邊距。 (6) 當(dāng)線元為非完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。 (3) 當(dāng)線元為直線時(shí)，其起點(diǎn)、止點(diǎn)的曲率半徑為無(wú)窮大，以10的45次代替。P→C:(PR)247。二、源程序(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→
外語(yǔ)相關(guān)推薦
鄂ICP備17016276號(hào)-1