魔兽世界邪能球茎种子:[原创]公路中边桩高程横破及路基抄平程序--点燃激情　传递梦想-http://wxbaip...

                    有了它,上工地告别图纸和资料

                     （程序中加入了路基抄平的计算）

         QXZDGC(主程序1)

 Lbl A

 {L}:L"DKI"                                    (待放样点的桩号)

 Prog “S”：Prog “SQX”：Prog“P”：Prog“PQX”

“HO=”:Z◢                                   (显示纵断中桩设计值)

 "HZ="O:◢                                     (显示横断左边桩设计值)

 "HY="P:◢                                     (显示横断右边桩设计值)

 Lbl B:{KM}:K=0=>Goto A⊿Y"HSGC":V"HSDS":M"QSDS"≤0=>{YV}:Goto B ⊿

 "Hn=":N=Y+V-M◢                    (测量点的实际高程)

 D≤0.75=>"E(HO=":W=Z-N◢           (中桩设计与实际高程之差,负挖正填,下同)

 Goto A⊿K=-1=>"E(HZ=":W=O-N◢      (左边桩设计与实际高程之差)

 Goto A⊿K=1=>"E(HY=":W=P-N◢       (右边桩设计与实际高程之差)

 Goto A ⊿     (说明：程序中的K是个变化参数，等于-1计算左边，等于1计算右边)

            SQX(主程序2)

 T=Abs((I-J)R÷2):R=R((I-J)÷Abs(I-J)):N=A-T

 W=A+T

 U=Abs (A-L)

 L≤N=>Z=H-JU-X"H0":Goto 1 ⊿      (H0表示一个合适的值,如路面到路基顶部的高度(结构层)等,下同)

 L≤A=>Z=H-JU+(L-N)2÷(2R)-X"H0":Goto 1 ⊿

 L≤W=>Z=H+IU+(W-L)2÷(2R)-X"H0":Goto 1 ⊿

 L>W=>Z=H+IU -X"H0"⊿

 Lbl 1

           PQX(主程序3)

 L≤S=>E=0.02:G=E:Goto 1 ⊿

 L≤(S+B)=>E=0.02-(L-S)÷B×(0.02+C):G= -E:Abs (E) ≤0.02=>G=0.02: ⊿Goto 1:⊿

 L≤(S+Q-B)=>E= -C:G= -E:Goto 1 ⊿

 L≤(S+Q)=>E=0.02-(S+Q-L)÷B×(0.02+C):G= -E:Abs (E) ≤0.02=>G=0.02: ⊿Goto 1:⊿

 L＞(S+Q)=>E=0.02:G=E⊿

 Lbl 1

 {D} :T=D-0.75:F=1=>"EZ=":E ◢  "EY=":G  ◢     (0.75表示中央分隔带为0.75*2=1.5米,D为输入边桩距中桩距离)

 O=Z-TE:P=Z-TG:≠>F=-1=>"EZ=":G◢   "EY=":E◢

 O=Z-TG:P=Z-TE⊿⊿

            S(子程序1，竖曲线数据库)

  L ≤145788.038(竖曲线终点桩号)=>R=40000(竖曲线半径):A=145600(竖曲线中心桩号):H=411.313(变坡点高程):J=0.0049(变坡点前纵坡):I=-0.0045(变坡点后纵坡):Goto 1: ⊿

***************

  L ≤145788.038(公路终点桩号)=>R=40000(竖曲线半径):A=145600(竖曲线中心桩号):H=411.313(变坡点高程):J=0.0049(变坡点前纵坡):I=-0.0045(变坡点后纵坡):Goto 1: ⊿

  Lbl 1

            P(子程序2 ,平曲线数据库)

  L ≤146999.541(平曲线超高终点桩号)=>B=120(超高缓和曲线长度):Q=612.094(超高曲线全长度):C=0.03(超高值):F=1(平曲线参数,左转=-1，右转=1):S=146387.447(超高缓和起点桩号):Goto 1: ⊿

***************

  L ≤146999.541(平曲线公路终点桩号)=>B=120(超高缓和曲线长度):Q=612.094(超高曲线全长度):C=0.03(超高值):F=1(平曲线参数,左转=-1，右转=1):S=146387.447(超高缓和起点桩号):Goto 1: ⊿ 

  Lbl 1

----------------------------------------------------

(一):三次抛物线超高公式:

          前缓和曲线:K=(L-S)÷B

          后缓和曲线:K=(S+Q-L)÷B

          E=e-(e+c)(3K²-2K³)

    或者：E=e-(2K-K^2)(e+c)

其中:E为待求断面横坡值;

         L为待放样点的桩号;

         S为超高缓和起点桩号;

         Q为超高曲线总长;

         B为超高缓和曲线长度;

         e为超高起点横坡值;

         c为超高终点横坡值.

----------------------------------------------------

 (二):线性超高公式:

         前段缓和曲线超高公式:E=0.02-(L-S)÷B×(0.02+C):

         后段缓和曲线超高公式:E=0.02-(S+Q-L)÷B×(0.02+C):  

  其中： B为超高缓和曲线长度

S为超高缓和起点桩号

L为放样点桩号

C为最大超高值.

Q为超高曲线总长度