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

求线路中心及中心两侧任意点高程程序 中铁十六局集团 杨忠领 说明： 1、 该高程计算程序只适合平曲线上有缓和曲线的情况；即适合两侧缓和曲线不等长的情况，也适合两侧缓和曲线等长的情况。如在平曲线上有断链，连续输入测设点里程时不能跨越断链点，而应从断链两侧分别求。 2、 该高程计算程序不适合平曲线没有缓和曲线的情况，也不适合曲线上没有超高的情况，遇此情况只有一个横坡，计算较为简单，无需程序。 3、 使用此程序时切勿输错字母和符号，否则会导致计算错误，应和正确结果反复比较后才可使用。否则由此导致的一切后果本人盖不负责。本人还有一套一次性确定出边坡开挖点的程序，由于时间关系没有发表，如有兴趣可和作者联系，以上两套程序在使用中有什么问题，可随时和作者联系1座机电话号码01。欢迎批评指正。 SQX L1 I“IL”W“IR”TR M“JDG” L2 Y S“SJDL”+T L3 LbI 0:｛X｝ L4 L X“CDL”+T-S：P √（R2+L2）-R：Q √（R2+（S+T-X）2）-R L5 G M-（S-X）I/100：H M+（X-S）/100 L6 X S-T C“CG1” G▲Goto1：△ L7 X S I W C“CG2” G-P▲Goto1：≠ I≤W C“CG2” G+P▲Goto1：△△△ L8 X Y I W C“CG3” H-Q▲Goto1：≠ I≤W C“CG3” H+Q▲Goto1：△△△ L9 C“CG4” H▲ L10 LbI 1：｛D｝ L11 D“HD” 0 Goto0：≠ Goto2△ L12 LbI 2 L13 E“I1” L14 X O ZHL” 〉U“ZG YG” C-ED/100▲:≠〉X≤A“HZL” 〉Prog8:≠〉U“ZG YG” C-ED/100▲△△ L15 Goto1 8 L1 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）（A-X）/Z）/100 :L C-ED/100:Q C+G:V C-G L4 X≤O +N 〉Goto1:≠〉X≤O +K 〉Goto2:≠〉Q C+FD/100:V C-FD/100:X≤A-Z 〉Goto2:≠〉N C+H:V C-H:X≤A-J 〉Goto2:≠〉X ≤A 〉Goto1△△△△ L5 LbI 1 L6 B 0 〉U“ZG” L▲U “YG” Q▲≠〉U“ZG” Q▲U “YG” L▲△ L7 Goto3 L8 LbI 2 L9 B 0 〉U“ZG” V▲U “YG” Q▲≠〉U“ZG” Q▲U “YG” V▲△ L10 LbI 3 程序执行： 开机——FILE——EXE 此时屏幕出现IL? 输入竖曲线左侧切线前进方向的坡度（带正负号，不带％）后执行EXE 此时屏幕出现IR? 输入竖曲线右侧切线前进方向的坡度（带正负号，不带％）后执行EXE 此时屏幕出现T? 输入竖曲线切线长度后执行EXE 此时屏幕出现SJDL? 输入竖曲线交点里程后执行EXE 此时屏幕出现JDG? 输入竖曲线交点高程后执行EXE 此时屏幕出现R? 输入竖曲线半径后执行EXE 此时屏幕出现CDL? 输入测设点里程后执行EXE 此时屏幕出现CGX XXXX.XXX 此结果为求出的线路中心线上测设点设计高程，后执行EXE 此时屏幕出现HD? 代表线路中心已求出的测设点左右横向待输入的横向距离（只输入正数，代表左右同样宽度），如果输入0，则程序就不求左右横向点高程，而继续求下一个线路中心线测设点的设计高程，因为输入0后屏幕将提示输入CDL。如果输入不是0的正数，执行EXE后则： 此时屏幕出现I1? 输入竖曲线覆盖范围内的平曲线直线上的横坡（一般为-2％时只输入2，如是其它值则输其他值，一律不输负号，不输％号）后执行EXE 此时屏幕出现ZHL? 输入测设点所在平曲线的直缓点里程后执行EXE 此时屏幕出现HZL? 输入测设点所在平曲线的缓直点里程后执行EXE 如果测设点在平曲线两端的直线段上，则屏幕会显示ZG YG XXXX.XXX,这就是横向距离为HD点的左右高程。如果测设点在平曲线ZHD-HZD范围内，则屏幕会继续向下的提示： 此时屏幕出现IB? 输入测设点所在平曲线上圆曲线的最大横坡度（只输入正数，不带％号）后执行EXE 此时屏幕出现L1? 输入平曲线左侧缓和曲线长度，后执行EXE 此时屏幕出现L2? 输入平曲线右侧缓和曲线长度，如两个缓和曲线等长则