直竖曲线高程计算

SZGJ（直竖曲线高程计算）

LbI0:H″GC″：B″ZH″：I：J：｛K｝：T=RAbS（J-I）/2：C=B-K：F=1：I＞J＝＞F=-1△K≤0＝＞｛HRBIJ｝：Goto:≠＞K＜B-T＝＞Z=0：P=I：≠＞K＜B＝＞Z=1：P=I：≠＞K＜B+T＝＞Z=1：P=J：≠＞Z=0：P=J△△△G=H-CP+ZF（T-AbSC）2/2/R▲Goto0

符号说明：GC—高程输入；ZH—交点桩号输入；I—（正负）上段坡度输入；J—（正负）下段坡度输入；

本人用的程序和大家分享，如有什么地方要改进的，我的QQ是525623592,加我一起探讨。

这几天忙啊，2公里多的隧道贯通了，天天都在洞是复核控制点。

隧道的贯通测量起到关键的作用，我想这能给搞隧道测量的技术人员提供帮助！