主程序DH

{SZ}:SZ
S≤S1＝＞N=1:Prog“HDAT”:GOTO 1△
S≤S2＝＞N=2:Prog“HDAT”:GOTO 1△
S≤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 M△
R= 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+L△
T ＞8＝＞W=8A+B(T-8)+14+2Int U+L△
T ＞16＝＞W=8A+8B+K(T-16)+14+2 Int U+L△
“DW”: W= W ◢
“△W”: D= W-Abs Z◢

竖曲线数据库HDAT
N=1＝＞E= xxxx.xxx: F= xxxx.xxx: G= xxxx.xxx: J= xxxx.xxx: M= xxxx.xxx:
O= xxxx.xxx△N=2＝＞E= xxxx.xxx: F= xxxx.xxx: G= xxxx.xxx: J= xxxx.xxx: M= xxxx.xxx: O= xxxx.xxx△N=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)编制思路
该程序编者根据工地的实际情况编制在此仅供一个编制思路，用户需根据实际情况进行修改。
注意：程序中有下划线处数据说明（单位：cm）
11.75为中央分隔带边缘距硬路肩宽度，该段横坡为一定值（超高段需加入超高计算子程序，另外在设计宽度计算时加入加宽子程序即可）
0．03为土路肩内外侧高差，因土路肩与行车道及硬路肩横坡不同，故分开计算。（用户需根据实际情况修改）
2 为平台设置宽度，第n级坡的平台设置总宽度即为2n. （用户需根据实际情况修改）
      8  每级边坡设置高度.
     14  路面设计宽度（路线中线处距土路肩边缘设计宽度）
        该程序为公路三维控制系统中的一部分，即高程控制部分。该程序可与hanniu_1973老师的《曲线任意里程中边桩坐标正反算(CASIO fx-4850P)程序（第三次修改版）》及大部分坐标正反算程序联合使用（修改变量名后）。

如有疑问,请email至luozixiang#sina.com