fx-5800p全線坐標(biāo)正反算帶高程計(jì)算程序(線元法)-wenkub
2022-09-01 09:40:32 本頁面
【正文】 →E:IfEnd√(D2+E2)→W:WB→T “R(m)=”:W◢ “Rc(m)=”:T◢If E≤B:Then D√(B2E2)→C:E√(B2D2)→L 計(jì)算測點(diǎn)水平偏移量L、垂直偏移量C“Dh(m)=”:C◢ 顯示測點(diǎn)垂直偏移量C“DL(m)=”:L◢ 顯示測點(diǎn)水平偏移量LElse E√(B2D2)→L“DL(m)=”:L◢ 顯示測點(diǎn)水平偏移量LIfEnd:Return8．曲線元要素判斷數(shù)據(jù)庫：DAT2(兩條線路，可擴(kuò)充為多條線路)(A2)If I=2:Then Goto A:IfEndIf S第一線元終點(diǎn)里程:Then 1→J:Prog “DAT1”:ReturnElse If S第二線元終點(diǎn)里程:Then 2→J:Prog “DAT1”:ReturnElse If S第三線元終點(diǎn)里程:Then 3→J:Prog “DAT1”:ReturnElse If S第四線元終點(diǎn)里程:Then 4→J:Prog “DAT1”:ReturnIfEnd:IfEnd:IfEnd:IfEndIf S≥第四線元起點(diǎn)里程And S第五線元終點(diǎn)里程：Then 5→J：Prog “DAT1”：Return.................................Else If S第n線元里程：Then n→J：Prog “DAT1”：ReturnIfEnd:IfEnd:IfEnd:IfEndLbl AIf S第一線元終點(diǎn)里程:Then 1→J:Prog “DAT1”:ReturnElse If S第二線元終點(diǎn)里程:Then 2→J:Prog “DAT1”:ReturnElse If S第三線元終點(diǎn)里程:Then 3→J:Prog “DAT1”:ReturnElse If S第四線元終點(diǎn)里程:Then 4→J:Prog “DAT1”:ReturnIfEnd:IfEnd:IfEnd:IfEndIf S≥第四線元起點(diǎn)里程And S第五線元終點(diǎn)里程：Then 5→J：Prog “DAT1”：ReturnElse If S第n線元里程：Then n→J：Prog “DAT1”：ReturnIfEnd:IfEnd:IfEnd:IfEnd.................................9．高程數(shù)據(jù)庫子程序：DAT3（兩條線路，可擴(kuò)充為多條線路）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 起坡點(diǎn)與中樁高差常數(shù)“DIST→MID(m)=”?→B 起坡點(diǎn)與中樁距離常數(shù)“i=”?→C 路基填筑坡度CAbs(Z[2]L+A)→DAbs(Z)BD→E“DL(m)=”:E◢
外語相關(guān)推薦
鄂ICP備17016276號(hào)-1