竖曲线4800计算程序.docVIP

竖曲线《SQX》主程序LbI?1?：{K}：Prog“B”：W=A－B:W＞0=U＝－1：≠U＝1△R：“T”：T＝Abs(RW/2)?▲“E”：E=T＾2÷2R▲C＝K-J：K≦J=I=A：≠I=B△H：AbsC≦T=“HS”：G=H+CI+U(T-?Abs?C)＾2÷2R▲≠“HS”：G=H+CI▲Goto?1《B》数据库K＞？=A=？：B=？：R=？：J=？：H=？△K＞？=A=？：B=？：R=？：…………附注：?????????1、K所求的桩号：A=坡度：B=坡度：R=半径：J=交点桩号：H=变坡点控制高程：?2、注意、B的正负。?????????3、本程序可以计算上百公里的路线中桩高程。?