fx-5800p全線坐標正反算帶高程計算程序(線元法)-文庫吧在線文庫
【正文】 fEnd:IfEndLbl AIf S第一線元終點里程:Then 1→J:Prog “DAT1”:ReturnElse If S第二線元終點里程:Then 2→J:Prog “DAT1”:ReturnElse If S第三線元終點里程:Then 3→J:Prog “DAT1”:ReturnElse If S第四線元終點里程:Then 4→J:Prog “DAT1”:ReturnIfEnd:IfEnd:IfEnd:IfEndIf S≥第四線元起點里程And S第五線元終點里程：Then 5→J：Prog “DAT1”：ReturnElse If S第n線元里程：Then n→J：Prog “DAT1”：ReturnIfEnd:IfEnd:IfEnd:IfEnd.................................9．高程數據庫子程序：DAT3（兩條線路，可擴充為多條線路）If I=0:Then Goto A:Else If I=2:Then Goto B:IfEnd:IfEndIf S≤46500:Then 46150→A:→B:40000→R:→D:→E:ReturnElse If S≤47200:Then 46800→A:→B:20000→R:→D:1→E:ReturnElse If S≤48400:Then 47500→A:→B:20000→R:1→D:→E:ReturnElse If S≤49600:Then 48700→A:→B:10000→R:→D:→E:ReturnIfEnd:IfEnd:IfEnd:IfEndIf S49600 And S≤50300:Then 49840→A:→B:100000→R:→D:→E:ReturnElse If I=2:Then 49800→A:→B:150000→R:→D:→E:ReturnIfEnd:IfEndLbl A:“C PEG(m)=”?→A“C H(m)=”?→B“R(m)=”?→R“I1=”?→D“I2=”?→EReturnLbl B49800→A:→B:150000→K:→D:→E:Return（WIDE）“WIDTH CHECK” ◢“H→MID(m)=”?→A 起坡點與中樁高差常數“DIST→MID(m)=”?→B 起坡點與中樁距離常數“i=”?→C 路基填筑坡度CAbs(Z[2]L+A)→DAbs(Z)BD→E“DL(m)=”:E◢ 顯示實有寬度與應有寬度之差值Return:SUBTW“TIANWA LINE”◢“DIST→MID(m)=”?A 起坡點與中樁距離常數“H→MID(m)=”?B 起坡點與中樁高差常數“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◢ 計算出應有高程“SC H(m)=”？→D 輸入實測高程DW→T“GC(m)=”:T◢ 顯示實測高程與計算高程的差異Return三、使用說明規(guī)定 (1) 以道路中線的前進方向（即里程增大的方向）區(qū)分左右；當線元往左偏時，Q=1；當線元往右偏時，Q=1；當線元為直線時，Q=0。本程序在CASIO fx5800P計算器運行。cos(F)→Z:Return4．高程計算子程序（SUBGC）(A4)Prog “DAT3”0．5RAbs((ED))→TIf ED:Then 1→C:Else 1→C:
外語相關推薦
鄂ICP備17016276號-1