CASIO--fx5800P连续计算高程放样程序.doc

CASIO-fx5800P型计算器 连续计算线路高程放样程序作者：刘宗远 2007-11-24 (定稿)【简述】为了适应现场快速、准确、灵活的放样要求，作者根据线路施工测量特点，运用计算器的编程功能，使整条线路的施工测量计算数据能连续快速的计算，只要把整条线路各个交点处的计算要素输入子程序中，你便拥有整条线路的“数据库”。在忙碌的施工现场，你不必携带大量的施工图和资料来查找平面、纵断面的设计要素，更不必担心设计要素的输入错误，从而使得计算和放样轻松、方便、快捷。【计算范围】高程部分包括：各等级公路和高速路的直线段、竖曲线段、缓和超高段中、边桩高程及放样计算。二、高程及放样程序【起算数据】：变坡点桩号A、变坡点高程B、前 后纵坡C D、竖曲半径R、横坡度F、最大超高横坡度G、ZH点桩号、YH点桩号、HZ点桩号、施工层厚度N、视线高W（一）主程序：GCFYSXG=？W：“N= 8 常量输入（视线高程、施工层厚度）Lbl 1：K0+0？L：B=？:ProgB8 变量输入及声明Abs(RK)2T8 竖曲线切线长,如需显示则在后面加上A-TH 8 竖曲线起点ZY桩号,如需显示则在后面加上A+TX 8 竖曲线终点YZ桩号,如需显示则在后面加上L-AM 8 待求点至变坡点的距离If LH:Then B+MC-N-WP: Goto 0:IfEnd8 前纵坡直线段中桩高程计算If LA:Then B+MC+J(T-Abs(M)2(2R)-N-WP: Goto 0:IfEnd8 前纵坡竖曲线中桩高程计算If LX:Then B+MD+J(T-Abs(M)2(2R)-N-WP: Goto 0:IfEnd8 后纵坡竖曲线中桩高程计算If LX:Then B+MD-N-WP: Goto 0:IfEnd8 后纵坡直线段中桩高程计算Lbl 0: If E=0:Then Goto 2: IfEnd8 直线部分中、边桩计算判断条件If LE:Then Goto 2: IfEnd8 直线部分中、边桩计算判断条件If LV:Then Goto 2: IfEnd8 直线部分中、边桩计算判断条件If LE:Then Goto 3: IfEnd8 前缓曲超高部分中、边桩计算判断条件If LU:Then Goto 4: IfEnd8 后缓曲超高部分中、边桩计算判断条件Lbl 2 8If O=0:Then“H=”:Abs(P)Z 显示直线部分中、边桩高程计算结果Else“HB=”:Abs(P-OF)Y 不需放样显示高程,否则显示放样水准尺计数IfEnd:Goto 18Lbl 3 8（L-E）（F+G）（V-U）-FS8 前缓曲线超高横坡度计算If SF:Then Goto 5：IfEnd8If SG:Then Goto 6:If SG:Then Goto 7:IfEnd:IfEnd8 超高起点(终点)至零界面、零界面至全超高及全超高部分的计算判断条件Lbl 4 8（V-L）（F+G）（V-U）-FS8 后缓曲线超高横坡度计算If SF:Then Goto 5:IfEnd8 超高起点(终点)至超高变坡零界面、零界面至全If SG:Then Goto 6:IfEnd8 超高、全超高部分If SG:Then Goto 7:IfEnd8计算判断条件Lbl 5 8If O=0:Then“H1=”:Abs(P)Z 超高起点(终点)至超高变坡零界面中、边桩高程Else“H-D1=”:Abs(P-OF)Y 计算结果显示“H-G1=”:Abs(P+OS)QIfEnd:Goto 18Lbl 6 8If O=0:Then“H2=”:Abs(P)Z 超高变坡零界面至全超高中、边桩高程Else“H-D2=”:Abs(P-OS)Y 计算结果显示“H-G2=”:Abs(P+OS)QIfEnd:Goto 18Lbl 7 8If O=0:Then“H3=”:Abs(P)Z 全超高中、边桩高程计算结果显示Else“H-D3=”:Abs(P-OG)Y“H-G3=”:Abs(P+OG)QIfEnd:Goto 18注：W“SXG”-视线高 N-施工层厚度 LK0+0-待求点桩号 B=-中桩至边桩距离（二）子程序：BIf LZY2:Then JD1A:H1B:I0C:I1D:R1R:IhF:ZH1E:YH1U:HZ1V:Imax1G:Goto 0: IfEnd8If LZY3:Then JD2A:H2B:I1C:I2D:R2R:IhF:ZH2E:YH2U:HZ2V:Imax2G:Goto 0: IfEnd8If LZY4:Then JD3A:H3B:I2C:I3D:R3R:IhF:ZH3E:YH3U:HZ3V:Imax3G:Goto 0: IfEnd8If LZYn+1:Then JDnA:HnB:In-1C:InD:RnR:IhF:ZHnE:YHnU:HZnV:ImaxnG:Goto0:IfEnd8注:ZYN+1:-下一个竖曲线起点桩号（如：变坡点2的计算范围为前竖曲线终点YZ1至后竖曲线起点ZY3，则在程序中“LZY3” 就应输入ZY3 的里程桩。同理，程序中“ LZY4 ” 就应输入ZY4 的里程桩。）A:-变坡点桩号（在程序中输入时以实际的变坡点里程桩号值替换程序中的JD1字符，以下同） B:-变坡点高程 C:-前纵坡度（输入带符号） D:-后纵坡度（输入带符号） F:-横坡度 R：-竖曲线半径 E:-ZH点桩号 U:-YH点桩号 V:-HZ点桩号 G:-最大超高横坡度 示 例如下图二、高程及放样数据计算1、首先根据设计图纸整理竖曲线要素，填入如上格式表中。2、将要素输入子程序B中：If L85196.4:Then84800A:60.04B:0.005C:0.0116D:20000R:0.02F:0E:0U:0V:0G:Goto 0:IfEnd 8If L85878.8:Then85470A:67.81B:0.0116C:-0.034D:12000R:0.02F:0E:0U:0V:0G:Goto 0:IfEnd 8If L86649.5:Then86000A:49.79B:-0.034C:-0.0037D:8000R:0.02F:0E:0U:0V:0G:Goto 0:IfEnd 8If L87510:Then86750A:47.02B:-0.0037C:0.003D:30000R:0.02F:87460.89E:88209.41U:88459.41V:0.03G:Goto 0:IfEnd8If L88800:Then87750A:50.02B:0.003C:-0.003D:80000R:0.02F:87460.89E:88209.41U:88459.41V:0.03G:Goto 0:IfEnd 83、运行主程序GCFY1）无超高段高程放样输入与显示如下:按“EXE”键，显示“SXG=？” 输入测站视线高程63.1(无须放样输入0)。按“EXE”键，显示“N=？” 输入施工层厚度0.5,（如水稳层、面层等）。按“EXE”键，显示“K0+0？” 输入待求点里程桩号84850。按“EXE”键，显示“B=？” 输入中桩至边桩的距离。求中桩输入0。按“EXE”键，显示“H=2.974” 中桩放样水准尺计数。(无须放样则为高程数)按“EXE”键，显示“K0+0？” 输入待求点里程桩号84850。按“EXE”键，显示“B=？” 输入中桩至边桩的距离。求边桩输入14。按“EXE”键，显示“HB=3.254” 边桩放样水准尺计数。(无须放样则为高程数)按“EXE”键，显示“K0+0？” 输入待求点里程桩号重复以上步骤继续计算下一桩号数据。2）进入超高段高程放样输入与显示如下：超高起点(终点)至超高变坡零界面路段按“EXE”键，显示“SXG=？” 输入测站视线高程51.5(无须放样输入0)。按“EXE”键，显示“N=？” 输入施工层厚度0.5,（如水稳层、面层等）。按“EXE”键，显示“K0+0？” 输入待求点里程桩号87500。按“EXE”键，显示“B=？” 输入中桩至边桩的距离。求中桩输入0。按“EXE”键，显示“H1=2.73” 中桩放样水准尺计数。(无须放样则为高程数)按“EXE”键，显示“K0+0？” 输入待求点里程桩号87500按“EXE”键，显示“B=？” 输入中桩至边桩的距离。求边桩输入14。按“EXE”键，显示“H-D1=3.01” 降低边放样水准尺计数。(无须放样则为高程数)按“EXE”键，显示“H-G1=2.9” 抬高边放样水准尺计数。(无须放样则为高程数)按“EXE”键，显示“K0+0？” 输入待求点里程桩号重复以上步骤继续计算下地桩号数据。进入超高变坡零界面至全超高段高程放样输入与显示按“EXE”键，显示“K0+0？” 输入待求点里程桩号88250。按“EXE”键，显示“B=？” 输入中桩至边桩的距离。求中桩输入0。按“EXE”键，显示“H2=3.48” 中桩放样水准尺计数。(无须放样则为高程数)按“EXE”键，显示“K0+0？” 输入待求点里程桩号88250按“EXE”键，显示“B=？” 输入中桩至边桩的距离。求边桩输入14。按“EXE”键，显示“H-D2=3.786” 降低边放样水准尺计数。(无须放样则为高程数)按“EXE”键，显示“H-G2=3.174” 抬高边放样水准尺计数。(无须放样则为高程数)按“EXE”键，显示“K0+0？” 输入待求点里程桩号重复以上步骤继续计算下地桩号数据。进入全超高段高程放样输入与显示按“EXE”键，显示“K0+0？” 输入待求点里程桩号88200。按“EXE”键，显示“B=？” 输入中桩至边桩的距离。求中桩输入0。按“EXE”键，显示“H3=3.33” 中桩放样水准尺计数。(无须放样则为高程数)按“EXE”键，显示“K0+0？” 输入待求点里程桩号88200按“EXE”键，显示“B=？” 输入中桩至边桩的距离。求边桩输入14。按“EXE”键，显示“H-D3=3.75” 降低边放样水准尺计数。(无须放样则为高程数)按“EXE”键，显示“H-G3=2.91” 抬高边放样水准尺计数。(无须放样则为高程数)按“EXE”