fx-5800p全線坐標(biāo)正反算帶高程計(jì)算程序(線元法)(編輯修改稿)
2025-08-31 09:40 本頁面
【文章內(nèi)容簡介】 顯示測點(diǎn)水平偏移量LElse E√(A2D2)→L“DL(m)=”:L◢IfEnd:ReturnLbl 1ZL→E:Abs(E)→E:√(D2+E2)→W:WA→T: 計(jì)算測點(diǎn)至圓心的平距E，實(shí)測半徑W“R(m)=”:W◢“DR(m)=”:T◢If E≤A:Then D√(A2E2)→C“Dh(m)=”:C◢IfEnd:ReturnLbl 2:Abs(D)→D:Abs(Z)→Z:Abs(K)→K:Abs(F)→FIf ZK:Then ZF→E:Else Z+K→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→
外語相關(guān)推薦
鄂ICP備17016276號-1