CASIO计算器竖曲线计算程式..docVIP

CASIO 计算器竖曲线计算程式 R B J T Q X Q Q Z L H Q Z H C C P E H P : A = Q - T : B = Q + T 　 　 　Lbl 0 : ｛ I ｝ : I S Q A G= H - C ( Q - I ) ◢ 　 　 　 　 　 　≠= I B G = H + E ( I - Q ) ◢≠= S = I - Q : I Q ? D = I - A: P = S C : Goto 1 : ≠= D = B - I :: P = S E : Goto 1 　 　 　 　 　 　 　 　Lbl 1 : C 0 Goto 2 ◢ ≠= Goto 3 ◢ 　 　Lbl 2 : E 0 Goto 4 ◢ ≠= Goto 6 ◢ 　 　Lbl 3 : E 0 Goto 7 ◢ ≠= Goto 5 ◢ 　 　Lbl 4 : C E Goto 6 ◢ ≠= Goto 7 ◢ 　 　Lbl 5 : C E Goto 7 ◢ ≠= Goto 6 ◢ 　 　Lbl 6 : G G H = H + P - D2 ÷ 2÷ R 　 　 　 　 　 　 　 　 　 　 　 　 　Goto 0 　 　 　 　 　 　 　 　 　 　 　 　 　Lbl 7 : G G H = H + P + D2 ÷ 2÷ R 　 　 　 　 　 　 　 　 　 　 　 　 　Goto 0 　 　 　 　 　 　 　 　 　 BJ半径????????????????QX切线长??????QZL交点里程QZH交点高程??????CP前坡???????? HP后坡SQ所求里程公路三维坐标控制系统高程控制部分(for 4850) 公路三维坐标控制系统高程控制部分(for??CASIO4850)主程序DH{SZ}:SZS≤S1＝＞N=1:Prog“HDAT”:GOTO 1S≤S2＝＞N=2:Prog“HDAT”:GOTO 1S≤S3＝＞N=3:Prog“HDAT”:GOTO 1……Lbl 1:S ≤I ＝＞Q= F+G(S- E S ＞I ＝＞Q= F+G(S- E)+(-1)^J(S-I)^2/(2 MR= Q+11.75 P-0.03:”DH=”: Q= Q ◢Z=0＝＞Q= Q Z≠0＝＞Q= R {H}:H”H=”: T= Q-H“△H=”: T= T ◢{ABKL}: T=Abs T: U= T /??8 : T ≤8＝＞W= TA+14+LT ＞8＝＞W=8A+B(T-8)+14+2Int U+LT ＞16＝＞W=8A+8B+K(T-16)+14+2 Int U+L“DW”: W= W ◢“△W”: D= W-Abs Z◢竖曲线数据库HDATN=1＝＞E= xxxx.xxx: F= xxxx.xxx: G= xxxx.xxx: J= xxxx.xxx: M= xxxx.xxx:O= xxxx.xxxN=2＝＞E= xxxx.xxx: F= xxxx.xxx: G= xxxx.xxx: J= xxxx.xxx: M= xxxx.xxx: O= xxxx.xxxN=3＝＞E= xxxx.xxx: F= xxxx.xxx: G= xxxx.xxx: J= xxxx.xxx: M= xxxx.xxx: O= xxxx.xxx……I= E- O说明：(1)变量赋值说明E变坡点桩号??????F变坡点高程??????G变坡点前段坡比??????I该段竖曲线起点桩号即高差改正值为零处桩号??????J竖曲线系数??1为凸2为凹??????M竖曲线半径??????O 竖曲线切线长??????P路面横坡（已在坐标反算程序中赋值）??????Q路线设计高程，当Z=0时为中桩设计高程（或中分带边缘设计高程），当Z≠0??????时为路基边缘设计高程??????R 路基边缘设计高程??????T：“H”高差??????V边坡分级，第n级坡??????W开口、坡脚设计宽度（根据高差及坡比求得）可计算任意高度处的设计宽度??????D宽差（当其为负則向中桩方向移相应宽度，当其为正则向外移相应宽度）??????S、Z所测点对应桩号及距中桩处的距离??????A、B、K横断面一、二、三级坡比??????L附加宽度（以便根据横断面设计实际情况调整，象坠落台、护坡道、路堑处边沟设置宽度的不固定值设置及填方段为使路基满足设计的压实要求超填的宽度）??????H实测高程(2)编制思路该程序编者根据工地的实际情况编制在此仅供一个编制思路，用户需