韩版女装货源网:CASIO4850 公路高程计算程序修改

来源:百度文库 编辑:九乡新闻网 时间:2024/03/29 06:20:25
CASIO4850 公路高程计算程序修改 作者:游戏人生 2007-2-20 16:44:00                                           有了它,上工地告别图纸和资料 QXZDGC(主程序1)
5 Lbl A
6 {L}:L"DKI"                                          (待放样点的桩号)
8 Prog “S”
9 Prog “SQX”
10 Prog“P”
11 Prog“PQX”
12 “HO=”:Z◢                                   (显示纵断中桩设计值)
13   "HZ="O:◢                                     (显示横断左边桩设计值)
15   "HY="P:◢                                     (显示横断右边桩设计值)
16 Lbl B:{KM}:K=0=>Goto A⊿Y"HSGC":V"HSDS":M"QSDS"≤0=>{YV}:Goto B ⊿ 17 "Hn=":N=Y+V-M◢                          (测量点的实际高程) 18 D≤0.75=>"E(HO=":W=Z-N◢           (中桩设计与实际高程之差,负挖正填,下同) 18 Goto A⊿K=-1=>"E(HZ=":W=O-N◢  (左边桩设计与实际高程之差)
19 Goto A⊿K=1=>"E(HY=":W=P-N◢   (右边桩设计与实际高程之差) 20 Goto A ⊿

SQX(主程序2)
1 T=Abs((I-J)R÷2):R=R((I-J)÷Abs(I-J)):N=A-T
2 W=A+T
3 U=Abs (A-L)
4 L≤N=>Z=H-JU-X"H0":Goto 1 ⊿      (H0表示一个合适的值,如路面到路基顶部的高度等,下同)
5 L≤A=>Z=H-JU+(L-N)2÷(2R)-X"H0":Goto 1 ⊿
6 L≤W=>Z=H+IU+(W-L)2÷(2R)-X"H0":Goto 1 ⊿
7 L>W=>Z=H+IU -X"H0"⊿
8 Lbl 1

PQX(主程序3)
1 L≤S=>E=0.02:G=E:Goto 1 ⊿
2 L≤(S+B)=>E=0.02-(L-S)÷B×(0.02+C):G= -E:Abs (E) ≤0.02=>G=0.02: ⊿Goto 1:⊿
3 L≤(S+Q-B)=>E= -C:G= -E:Goto 1 ⊿
4 L≤(S+Q)=>E=0.02-(S+Q-L)÷B×(0.02+C):G= -E:Abs (E) ≤0.02=>G=0.02: ⊿Goto 1:⊿
5 L>(S+Q)=>E=0.02:G=E⊿
6 Lbl 1
7 {D} :T=D-0.75:F=1=>"EZ="E ◢  "EY=":G  ◢     (0.75表示中央分隔带为0.75*2=1.5米,D为输入边桩距中桩距离) 8 O=Z-TE:P=Z-TG:≠>F=-1=>"EZ="G◢   G:"EY=":E◢ 9 O=Z-TG:P=Z-TE⊿⊿

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

P(子程序2 ,平曲线引导程序)
1  L ≤146999.541(平曲线超高终点桩号)=>B=120(超高缓和曲线长度):Q=612.094(超高曲线全长度):C=0.03(超高值):F=1(平曲线参数,左转=-1,右转=1):S=146387.447(超高缓和起点桩号):Goto 1: ⊿
***************
n  L ≤146999.541(平曲线公路终点桩号)=>B=120(超高缓和曲线长度):Q=612.094(超高曲线全长度):C=0.03(超高值):F=1(平曲线参数,左转=-1,右转=1):S=146387.447(超高缓和起点桩号):Goto 1: ⊿ 
2  Lbl 1 -----------------------------------------------------------------------------------------------------
(一):三次抛物线超高公式:           前缓和曲线:K=(L-S)÷B           后缓和曲线:K=(S+Q-L)÷B                               E=e-(e+c)(3K2-2K3)   其中: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):             C为最大超高值. ------------------------------------------------------------