一套5800比較全面的公路程序(編輯修改稿)
2024-09-07 12:20 本頁面
【文章內容簡介】 to 0←┘Lbl 1:0→D：Prog Ａ：(JY)247。sin(Ｚ［２］) →D:10．高程計算子程序（H）程序名：HProg “S0”:R:T:C:G:I:CT→F:ZF→L:C+T→E:GTI→Q:If T=O:Then Q+LI→H:Goto 0:Else If ZF:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2247。2247。R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I:（I）程序名：IProg”I0”:W=1= Goto 0:W=2=Goto 1:LbI 0:If L=0:Then Abs(D)M→V:Goto 2:Else Abs(D)((NM)(ZC)247。L+M)→V:Goto 2:IfEnd:LbI 1:If L=0:Then Abs(D)M→V:Goto 2:Else Abs(D)(((3((ZC)247。L)22((ZC)247。L)∧(3))(NM))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V247。E→I:I(EK)→V:12．數(shù)據子程序(附后示例)①程序名：X0（坐標計算要素程序）If Z≥25900 And Z≤:Then 25900→O:→U:→V:101。09’”→G:→H:11045→P: 11045→R: 0→Q:Goto 0: IfEnd:If Z≥ And Z≤:Then →O:→U:→V:101。09’”→G:300→H:11045→P: 1800→R:1→Q:Goto 0:IfEnd:If Z≥ And Z≤:Then →O:→U:→V:105。55’”→G:→H:1800→P: 1800→R:1→Q:Goto 0:IfEnd:……LbI 0:O:U:V:G:H:P:R:Q:程序字母說明：O線元起點樁號；U起點X坐標；V起點Y坐標；G線元起點樁號切線方位角。 Ｈ－線元長度，Ｐ－線元起點曲率半徑，Ｒ－線元終點曲率半徑,Q－線元判別(以道路中線的前進方向（即里程增大的方向）區(qū)分左右；當線元往左偏時，Q=1；當線元往右偏時，Q=1；當線元為直線時，Q=0)。②程序名：SO(高程豎曲線要素子程序)If Z≥25900 And Z≤:Then 200000→R:→T:26000→C:→G:→I:Goto 0:IfEnd:If Z≥ And Z≤:Then 300000→R:→T:27250→C:→G:→I:Goto 0:IfEnd:If Z≥ And Z≤:Then 1000000→R:→T:27755→C:→G:→I:Goto 0:IfEnd:……LbI 0:R:T:G:C:I:程序字母說明：C豎曲線交點樁號；G交點樁號高程（未豎曲線調整的）；T豎曲線切線長；R豎曲線半徑（分正負：凹曲線為正，凸曲線為負）；I－豎曲線前縱坡③程序名：I0（高程超高參數(shù)子程序）→K:2→W:If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z≥
醫(yī)療健康相關推薦
鄂ICP備17016276號-1