fx5800(2010-07-01：本程序以四節點法為計算內核,可計算多條線路正反算,中樁,邊樁高程計算,計算,超需要3秒.另本程序可以附加隧道超欠挖計算子程序,非常方便,因為每個隧道的斷面數據不一樣,所以在此沒有明確寫出,有需要的可以.本人 U=1＝＞Prog”ZS=FS”:U=2＝＞Porg”ZS”:U=3＝＞Porg”FS”:U=4＝＞Porg”XY＝＞ IfU=1:ThenProg”ZS- IfU=2:ThenProg”FS- ZS-XH //選擇線路IfW=1: //運行普通計算模式邊踞輸 If //Lbi1:”L=”? // Prog”PM-XL- IfW=1:ThenProg”B- ElseZ[3]→Z:Porg“B-H”：//按設計計算時候代入減去半邊綠化帶后的路基邊距，提取邊樁高 //選擇線路1～N //X Q+KrO(C+KD)→K:X、Y、QQ+ErO(C+ED)Q+FrO(C+FD)Q+MrO(C+MD)X+O(ICos(K)+JCos(E)+JCos(F)+ICos(M))→X: //計算出X坐標Y+O(ISin(K)+JSin(E)+JSin(F)+ISin(M))→Y: //計算出Y坐標Q+Or(C+D)→Q： X+Zcos(Q+90) //XY+ZSin(Q+90) //Y //V20 If V越小反算速度可能越慢，但是半徑過小有可能算不出來，10 //4 //X，Y //計算出X差和Y差（X里程，J邊）I/(1-CJ-2DJ) Abs(V LpWhileV＞1m: GCIfI- IfI-A=0:ThenGoto1 3P^(2^(S))-2P^(3^(S))→P: IfV=1:ThenIfN=- IfZ＜0：ThenIfE＞Z[4]:ThenZ[4]→E:IfEnd://計算左側時，橫坡大于一般橫坡取一般橫坡I+Abs(Z)E→O:IfEnd: IfZ＞0:ThenI+ZF→O:IfEnd IfN=1:ThenIfZ＜0:ThenI+Abs(Z)E→O:IfEnd: IfZ＞0:ThenIfE＞Z[4]:ThenZ[4]→E:IfEnd//右側高程橫坡大于一般橫坡，取一般橫坡I+ZE→O:IfEnd:IfEnd:IfEnd: IfV=2:ThenIfZ＞0:ThenI+ZE→O:IfEnd://圓曲線全和S曲線漸變部分右側高程得IfZ＜0:ThenI-Abs(Z)E→O:IfEnd:IfEnd://圓曲線全和S曲線漸變部分左側高程得 //12 //1.5-0.02→Z[4] //錄入-0。02為公路一般橫坡，根據設計修改路面寬度子程序0。5LUKUAN IfV=1:ThenPorg”GL-JK”// IfV=-1::ThenPorg”GL-JK”// Z+[2]→Z[3]IfEnd GL-JK本加寬程序欠缺S緩和曲線加寬程序，因為沒有遇到過，所以暫時空缺 //3*（B- //X //Y //X //顯示邊樁Y IfL＜A:Then“L-＜＜＜”；Stop:IfEnd: IfL＞B:Then”L+＞＞＞”:Stop:IfEnd: 公路簡易正算程序GL-JY-ZS1-Q+ErO(C+ED)Q+ErO(C+FD)Q+Or(C+D) // IfJ＞0:Then”-----YOU----“: Z[3] //錄入減去半個帶加上加寬值后的邊 Abs(Z)+Z[2 Z[10]→X：Z[11]→Y//XYXY為后步起算數 //進入邊坡計算子程序1程序邊坡計算子程序1BP–FY-1 //計算出邊坡高Abs(Z)+B+D+E→W://計算中線點距離邊坡距 // //設置邊坡平距為If //第二段邊坡高 //第三段邊坡高 //第四段邊坡高 3BP-FY-3IfG＜0: //如果測點高程小于該層邊坡高If ”:Porg:BP-FY Abs(N-A)*K+B-D→E: If //5”CHENG-GONG,WUCHA=”:E◢//成功后，顯示測點誤差 //右側錄入誤差Else-E→Z:Z→Z[10] //錄入XY坐標,進行下次計算 If //4Porg”CHENG-GONG,WUCHA=”:C◢// CE/(E-C)→F: IfJ＞0:ThenF→Z://右側錄入誤差ElseF→Z // //錄入XY坐標,進行下次計算“NONO”◢： 1 //進入路線2 L- // IfL≤第一線元止點里程：ThenX坐標→XY坐標IfL≤2S0E=-再計算高程，右偏的時候，計算出高程。然后屬于單圓曲線全或S曲線內插段的時候說明：輸入部分：L為計算里程，C為起點里程，N為曲線左右偏區別符號（左-1，右，I為縱向前坡坡度，A為縱向后坡坡度，E為半徑，F為起點橫坡，T為起點高程，S01為高次。V為一般段緩和段與全和卵型緩和段判斷要素。直線一般緩和段輸入1，全和S IfL≤該段止點里程：Then(直線一般緩和段輸入1，全和S緩和段輸入2)→V：+1）→N（01）→I（034）→A（）→E（→F（）→T（）→K（…二號線路高程G2