fx5800計(jì)算器公路三維全能程序

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