求线路中心及中心两侧任意点高程程序4500p计算器

1、求线路中心及中心两侧任意点高程程序中铁十六局集团杨忠领说明：1、 该高程计算程序只适合平曲线上有缓和曲线的情况；即适合两侧缓和曲线不等长的情况，也适合两侧缓和曲线等长的情况。如在平曲线上有断链，连续输入测设点里程时不能跨越断链点，而应从断链两侧分别求。2、 该高程计算程序不适合平曲线没有缓和曲线的情况，也不适合曲线上没有超高的情况，遇此情况只有一个横坡，计算较为简单，无需程序。3、 使用此程序时切勿输错字母和符号，否则会导致计算错误，应和正确结果反复比较后才可使用。否则由此导致的一切后果本人盖不负责。本人还有一套一次性确定出边坡开挖点的程序，由于时间关系没有发表，如有兴趣可和作者联系，以上两套

2、程序在使用中有什么问题，可随时和作者联欢迎批评指正。SQXL1 I“IL”W“IR”TR M“JDG”L2 Y=S“SJDL”+TL3 LbI 0:XL4 L=X“CDL”+T-S：P=（R2+L2）-R：Q=（R2+（S+T-X）2）-RL5 G=M-（S-X）I/100：H=M+（X-S）W/100L6 X<S-T=>C“CG1”=GGoto1：L7 X<S => I>W=> C“CG2”=G-PGoto1：> IW=> C“CG2”=G+PGoto1：L8 X<Y=> I>W=> C“CG3

3、”=H-QGoto1：> IW=> C“CG3”=H+QGoto1： L9 C“CG4”= HL10 LbI 1：DL11 D“HD”=0=> Goto0：> Goto2L12 LbI 2L13 E“I1”L14 X< O "ZHL”=U“ZG= YG”= C-ED/100:XA“HZL”=Prog8:U“ZG= YG”= C-ED/100L15 Goto18L1 F“IB” B“PJ” L2 N=(2+E)K“L1”/（E+F）:J =(2+E)Z“L2”/（E+F） L3 G=D（-E+（E+F）（X-O）/K）/100： H=D（-E+（E+F）（

4、A-X）/Z）/100 :L=C-ED/100:Q=C+G:V=C-GL4 XO +N=Goto1:XO +K=Goto2:Q= C+FD/100:V= C-FD/100:XA-Z=Goto2:N=C+H:V=C-H:XA-J=Goto2:X A=Goto1L5 LbI 1L6 B <0=U“ZG”=LU “YG”=QU“ZG”=QU “YG”= LL7 Goto3L8 LbI 2L9 B <0=U“ZG”=VU “YG”=QU“ZG”=QU “YG”= VL10 LbI 3程序执行：开机FILEEXE此时屏幕出现IL? 输入竖曲线左侧切线前进方向的坡度（带正负号，不带）后执行EX

5、E此时屏幕出现IR? 输入竖曲线右侧切线前进方向的坡度（带正负号，不带）后执行EXE此时屏幕出现T? 输入竖曲线切线长度后执行EXE此时屏幕出现SJDL? 输入竖曲线交点里程后执行EXE此时屏幕出现JDG? 输入竖曲线交点高程后执行EXE此时屏幕出现R? 输入竖曲线半径后执行EXE此时屏幕出现CDL? 输入测设点里程后执行EXE此时屏幕出现CGX =XXXX.XXX 此结果为求出的线路中心线上测设点设计高程，后执行EXE此时屏幕出现HD? 代表线路中心已求出的测设点左右横向待输入的横向距离（只输入正数，代表左右同样宽度），如果输入0，则程序就不求左右横向点高程，而继续求下一个线路中心线测设点的

6、设计高程，因为输入0后屏幕将提示输入CDL。如果输入不是0的正数，执行EXE后则：此时屏幕出现I1? 输入竖曲线覆盖范围内的平曲线直线上的横坡（一般为-2时只输入2，如是其它值则输其他值，一律不输负号，不输号）后执行EXE此时屏幕出现ZHL? 输入测设点所在平曲线的直缓点里程后执行EXE此时屏幕出现HZL? 输入测设点所在平曲线的缓直点里程后执行EXE(如果测设点在平曲线两端的直线段上，则屏幕会显示ZG=YG=XXXX.XXX,这就是横向距离为HD点的左右高程。如果测设点在平曲线ZHD-HZD范围内，则屏幕会继续向下的提示：此时屏幕出现IB? 输入测设点所在平曲线上圆曲线的最大横坡度（只输入正数，不带号）后执行EXE此时屏幕出现L1? 输入平曲线左侧缓和曲线长度，后执行EXE此时屏幕出现L2? 输入平曲线右侧缓和曲线长度，如两个缓和曲线等长则输入同一个数，后执行EXE此时屏幕出现PJ? 代表平曲线偏角，曲线顺时针时输入任意正数，逆时针时输入任意负数，不需输入真正的实际角度。后执行EXE此时屏幕出现ZG=XXXX.XXX 代表求出的中线上测设点左侧的横向距离为HD的点的高程，后执行EXE此时屏幕出现YG=XXXX.XXX