5800公路测量程序2.2+版(6条路线).doc

CASIO fx-5800P计算器测量程序设计2.2版 作者：蓝星 QQ:13119703 FX5800计算器公路测量常用程序集2.2 版 一、 程序功能主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本优化：1、调整一次显示结果；2、交点法中考虑了不对称缓和曲线；3、修改原版本部分地方笔误.(红色为修改处)二、源程序1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入19数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。输入-2,返回选择线路。坐标计算中输入-3,则显示本段曲线要素。程序名：0ZCXLbl 0: 17DimZ：Norm 2:1A：A:XY=1，ZD=2 ，GC=3，GD=4， BP=5，FM=6，ZP=7，JS=8，SD=9?A:A=1=Goto 1:A=2=Goto 2:A=3=Goto 3:A=4=Goto 4: A=5=Goto 5:A=6=Goto 6:A=7=Goto 7:A=8=Goto 8: A=9=Goto 9 :Lbl 1:ProgDX:LbI A:ProgQX:90B:PJ1?B:BC:PJ2?C:BZ1:CZ8:Lbl B:1F:KM?Z:Z= -1=Goto 0:Z=-2=Goto A:Z=-3=Goto X:ProgKM:?D:PorgTHB:0L:L0?L:Z2+Z1-Z8 E:X+L cos(E) X:Y+Lsin(E) Y:ProgXY:ProgJS:Goto B 8Lbl 2:2F:90Z1:ProgQX: Lbl C:DKLC?Z:Z=-1=Goto 0:Z=-2=Goto 2:Z=-3=Goto X:ProgKM: X0?X: Y0?Y:ProgTHB:PorgZD:Goto C8LbI 3:ProgQX:0B:H-B?B:BZ9:SXG?L:Lbl D:KM?Z:Z=-1=Goto 0:Z=-2=Goto 3:?D:ZS?P: PorgH:Fix 3:SJG=:Lcoate 6,4,H-Z9:SCG=:Lcoate 6,4,F:I=:Locate 6,4,I100: If UGoto 0:Z=-2=Goto 4:?D:ProgGD:Fix 3: SJGD=:Locate7,4,L: Goto E8Lbl 5:ProgQX:0.5B:TH-GD?B:BZ17:Lbl F:2F:90Z1:KM?Z:Z=-1 =Goto 0:Z=-2 =Goto 5:ProgKM:X0?X:Y0?Y:0M:M0?M: MZ4:Prog3FBX:Fix 2: PD ：Abs（D）-SO: L0=:Locate 6,4,O:ProgZD: Z4T: TW=:Lcoate 6,4,T Goto F8Lbl 6:ProgDX:LbI G:ProgQX:LbI H:1F:90Z1:KM?Z:Z=-1=Goto 0:Z=-2=Goto G:ProgKM:?D:ProgTHB:ProgXY:ProgJS:ProgH:0M: M0?M:Fix 2:H-MT: TW=:Locate 6,4,T Goto H8Lbl 7:ProgDX:LbI I:ProgQX:0D: LD:Z-,Y+? D:Abs(D) R: LR?R: Z0?Z: DZ6:RZ7:ZZ8:LbI J:0Y: L0:SZ+,DZ-?Y:Y=-1=Goto 0:Y=-2=Goto I:ProgZP:Goto J8Lbl 8:ProgDX:Lbl K:?X:X=-1=Goto 0:X=-2=Goto 8:?Y:ProgJS:Goto K8Lbl 9:PorgDX:Lbl L:Prog”QX”:Lbl M:2F:90Z1: KM?Z:Z=-1=Goto 0:Z=-2=Goto L:Z=-3=Goto X: ProgSD1: 0.5A:CQHD?A:“X0?X:Y0?Y:0M:M0?M:MZ8:AZ15:Prog5SD: Goto M:Lbl X:Mat F Goto 02、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：3FBXProg“THB”:DP:Prog“GD”:If D0:Then 0.75-LD:Goto H:Else L-0.75D:Goto H:IfEnd:Lbl H:Prog“H”:H-0.03-Z4 Z4: Prog “W-1”:If Z4A:Then Goto 1:Else If GZ8:Then Goto 2:Else Goto 3:IfEnd:Lbl 1:L+Z10+Z11+Z12+(G-A)Z7+Z9Z6+Z8Z5S:Goto Z:Lbl 2:L+Z10+Z11+(G-Z8)Z6+Z8Z5S:Goto Z:Lbl 3:L+Z10+GZ5 S:Goto Z:Lbl T:L+Z17T:If GZ15:Then (T+Z16+(G-Z15)Z14+Z15Z13)S:Goto Z:Else (T+GZ13)S:Goto Z:Lbl Z3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：5SDProg “KM”:Prog“THB”: DZ13:0D:Prog“H”:Cos(Z10)Z4 E: H+Z5 Z5: H+Z7 Z7: E+Z5 Z10:If Z8Z10:Then Goto R:Else Goto S:IfEnd:Lbl R: (Z13-Z9) 2+(Z8-Z5) 2 )- Z4-Z15 L:Goto L:Lbl S: Z4-Z6 S: (S 2-(Z7-Z5) 2 )SAbs(S)T:Abs(Z13-Z9)-TT:(T 2+(Z8-Z7) 2 )- Z6-Z15 L:Goto L:Lbl L: Fix 2: “L0=”: Locate 6,4,L:Prog“ZD”:“H0=”: Locate 6,4,Z8-H4：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JS(一式)X：Y：Z11K:Z12L:Pol(X-K, Y-L):IF J0:Then J+360J:IFEnd:Int(J)+0.01Int(60Frac(J)+0.006Frac(60Frac(J) J: Fix 4:“FWJ=”: Locate 6,4,J:Fix 3:“JL=”:Locate 6,4,IJS(二式)X：Y：Z11K:Z12L:Pol(X-K, Y-L):IF J1:Then Goto J: Else 1PC:(P-R)(2HPR) S:180E:If F=1:Then Abs(Z-O) W:Prog A:oto 2:Else XI:YJ:Prog B:OZ:DD:oto 2: IfEnd:LbI J: If F=1:Then Prog Z:oto 1:Else Prog ZX:oto 2: IfEnd:LbI 1:I+DCOS(Z2+Z1) X: J+DSin(Z2+Z1) Y: LbI 2 7. 线元法正算子程序()程序名：A0.1184634425A: 0.2393143352B：0.2844444444N：0.046910077K：0.2307653449L：0.5M：U+W(Acos(G+QEKW(C+KWS)+Bcos(G+QELW(C+LWS)+Ncos(G+QEMW(C+MWS)+Bcos(G+QE(1-L)W(C+(1-L)WS)+Acos(G+QE(1-K)W(C+(1-K)WS)X:V+W(Asin(G+QEKW(C+KWS)+Bsin(G+QELW(C+LWS)+Nsin(G+QEMW(C+MWS)+Bsin(G+QE(1-L)W(C+(1-L)WS)+Asin(G+QE(1-K)W(C+(1-K)WS) Y:G+QEW(C+WS)Z2:X+cos（Z2+ Z1）: Y+sin（Z2+ Z1）8. 线元法反算子程序()程序名：BG-90T：Abs(Y-V)cos(T)-(X-U)sin(T)W：0D：Lbl 0：Prog A： T+QEW(C+WS)L：(J-Y)cos(L)-(I-X)sin(L)D：IF Abs(D)0.01:Then Goto 1：Else W+DW:Goto 0: IfEnd: 8Lbl 1:0D：Prog A：(J-Y)sin(Z2+90) D9. 交点法正算子程序(Z)程序名：ZH2R24-H(4)2688R(3)A:H2-H(3)240R2B:（H2-N2）24R）Sin(Abs(P)-(H(4)-N(4)/2688/R(3)Sin(Abs(P)E:(R+A)tan(Abs(P)2)+B-ET:PAbs(P)W:0M:HC:If ZO -T:Then Z-OS:GZ2:Goto 2: IfEnd: If ZO -T+H:Then Z-O +TS:Prog “HX”:G+WKZ2:Goto 4:IfEnd:If ZO -T+RAbs(P)180+H2-N2: Then 180(Z-O +T-0.5H)RS : A+R(1-Cos(S)B : H2-H(3)240R2+Rsin(S)A:RM:G+WSZ2:Goto 4: IfEnd:O -T+RAbs(P)180+H2+N2-ZS:(R+N2R24-N(4)2688R(3)tan(Abs(P)2)+N2-N(3)240R2+ET :NH:Prog “HX”:G+PS:S-WKZ2:U+(T-A)Cos(S)-WBSin(S)I:V+(T-A)Sin(S)+WBcos(S)J:Goto 3: Lbl 4:U+(A-T)cos(G)-WBsin(G)I:V+(A-T)Sin(G)+WBcos(G)J: Goto 3: Lbl 2:U+Scos(Z2)I:V+Ssin(Z2)J: LbI 3:CH10. 交点法缓和段转化子程序(HX)程序名：HXS-S(5)40R2H2+S(9)3456R(4)H(4)A:S(3)6RH-S(7)336R(3)H(3)+S(11)42240R(5)H(5)B:90S2RHK:RHSM11. 交点法反算子程序(ZX)程序名：ZXZ:0D:Lbl 0:Prog“Z”:Pol(X-I,Y-J):J-Z2J:Isin(J)S:Icos(J) I:If Abs(I)0.1:Then Z+IZ:SD:Goto 2:Else Goto 1: LbI 1:If M=0:Then Z+IZ:Goto 0:Eles Pol(M-WS,I):(JM)/180I:Z+IZ:Goto 0:IfEnd:LbI 212高程计算子程序（H）程序名：HProg “S-1”:N-IA:AAbs(AW:RAbs(A2T:If ZC-T:Then G+I(Z-CH:Goto 0:IfEnd:If ZHN:Q=3=Mat F1,9N18.桥梁锥坡放样子程序（ZP）程序名：ZP(Z62（1-Y2/Z72）) X:Z8 Z:Prog“GD”:If D0:Then L+XD:Else L-XD:IfEnd:Z8+YZ:D:1F:90Z1:Prog“KM”:Prog“THB”:Prog“XY”:Prog“JS”19显示子程序（XY）和（ZD）程序名：XYFix 3:XS=:Locate 6,4,：YS=:Locate 6,4,：程序名：ZDFix 3:KM=:Locate 6,4,Z： D=:Locate 6,4,Z：20数据子程序(附后示例)-1程序名：XX-1（线路1坐标计算要素程序）If Z26615.555:Then 25900,11587.421,1847.983, 101。0923.1”,715.555,11045, 11045, 0Mat F:Goto 0: IfEnd:If Z26915.555:Then 26615.555,11448.97,2550.016,101。0923.1”,300,11045,1800,1Mat F:Goto 0:IfEnd:LbI 0: Prog“F”-2程序名：AX-2（线路2坐标计算要素程序）If Z122269.856:Then 121656.952, 2603848.019, 508351.147, 985322.6,660, 414744.1, 1415.097，3，300Mat F:Goto 0: IfEnd:If Z125115.9:Then 123984.982, 2601974.464, 509885.441, 1404106.8,700，-393143.7,2800，3，400Mat F:Goto 0:IfEnd:Lbl 0: Prog“F”说明：1、交点法：If Z交点HZ点桩号：Then交点桩号，交点X坐标，交点Y坐标，前交点至止交点方位角，交点前段缓和曲线长度，交点总偏角，圆半径，3，交点后段缓和曲线长度， Mat F:Goto 0: IfEnd:（如对称缓和曲线，圆半径后输，2后不用输后段缓和长，总偏角分正负，左偏为负，右偏为正）2、线元法：If Z本段线元终点桩号:Then 本段线元起点桩号,线元起点X坐标, 线元起点Y坐标,线元起点切线方位角,线元长度，线元起点半径,线元终点半径, 线元判别Mat F:Goto 0:IfEnd:(线元判别及线元半径见后说明)-1程序名：S-1(线路1高程竖曲线要素子程序)If Z3=1:Then Goto 1: Else If Z3=2:Then Prog “S-2”:Goto 0: Else If Z3=3:Then Prog “S-3”:Goto 0: Else If Z3=4:Then Prog “S-4”:Goto 0: Else If Z3=5:Then Prog “S-5”:Goto 0: Else Prog “S-6”:Goto 0: IfEnd: Lbl 1:If Z26157.8:Then 26000C:37.1G: 200000R:0.01500I:0.01222N:Goto 0:IfEnd:If Z27421.915:Then 27250C:32.65G:300000R: 0.01222I:-0.00356N:Goto 0:IfEnd:If Z27889.029:Then 27755C:36.64G:1000000R:-0.00356I:0.0079N:Goto 0:IfEnd:Lbl 0-2程序名：S-2(线路2高程竖曲线要素子程序)If Z183.007:Then 162.532C:46.1G:1365R:-0.0015I: 0.003N:Goto 0:IfEnd:If Z321.264:Then 282.532C:50.175G:1200R:0.033I: -0.021N:Goto 0:IfEnd:Lbl 0程序字母说明:If Z本段竖曲线终点桩号(即为竖曲线交点桩号+切线长度)；C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；R-竖曲线半径；I竖曲线前纵坡；N竖曲线后纵坡-1程序名：I-1（线路1高程超高参数子程序）1.5K:2W:If D0:Then Goto L:Else Goto R:IfEnd:Lbl L:If Z26615.555:Then 0S:-0.02M:Goto 0:IfEnd:If Z26735.555:Then 120S:26615.555C:-0.02M:0.02N:Goto 0:IfEnd:If Z26795.555:Then 60S:26735.555C:0.02M:0.04N:Goto 0:IfEnd:Lbl R: If Z26735.555:Then 0S:-0.02M: Goto 0:IfEnd:If Z26795.555:Then 60S:26735.555C:-0.02M:-0.04N:Goto 0:IfEnd:If Z27436.951:Then 0S:-0.04M: Goto 0:IfEnd:Lbl 0 -2程序名：I-2（线路2高程超高参数子程序）0.5K:1W:If D0:Then Goto L:Else Goto R:IfEnd:Lbl L:If Z100:Then 0S:-0.015M:Goto 0:IfEnd:If Z110:Then 10S:100C:-0.015M:-0.02N:Goto 0:IfEnd:If Z343.665:Then 0S: -0.02M: Goto 0:IfEnd:Lbl R: If Z100:Then 0S:-0.015M: Goto 0:IfEnd:If Z110:Then 10S:100C:-0.015M:-0.02N:Goto 0:IfEndIf Z375.665:Then 0S:-0.02M: Goto 0:IfEnd:Lbl 0 字程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）；S超高渐变段距离（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。-1程序名：G-1(线路1路基标准半幅宽度参数子程序)If Z3=1:Then Goto 1:Else If Z3=2:Then Prog “G-2”:Goto 0: Else If Z3=3:Then Prog “G-3”:Goto 0: Else If Z3=4:Then Prog “G-4”:Goto 0: Else If Z3=5:Then Prog “G-5”:Goto 0: Else Prog “G-6”:Goto 0: IfEnd:Lbl 1:If D0:Then Goto L:Else Goto R:IfEnd:Lbl L:If Z28110.727:Then ZC:17.25A:Goto 0:IfEnd:If Z28200.727:Then 28110.727C:17.25A:21.25B:90S:Goto 0:IfEnd:Lbl R: Z27927.478:Then ZC:17.25A: Goto 0:IfEnd:If Z28172:Then 27927.478C:17.25A:27.031B:244.522S:Goto 0:IfEnd:Lbl 0 -2程序名：G-2(线路2路基标准半幅宽度参数子程序)If D0:Then Goto L:Else Goto R:IfEnd:Lbl L:If Z69.998:Then ZC:28.25A:Goto 0:IfEnd:If Z82.402:Then 69.998C:28.25A:25.545B:12.404S:Goto 0:IfEnd:Lbl R: Z69.998:Then ZC:17.45A: Goto 0:IfEnd:If Z80.367:Then 69.998C:17.45A:16.787B:10.369S:Goto 0:IfEnd:Lbl 0 字程序中字母表示说明：C宽度渐变段起点桩号（不是渐变段C=Z）；A宽度渐变段起点半幅宽度; B宽度渐变段终点半幅宽度（不是渐变段，无需输入）；S-宽度渐变段距离（不是渐变段，无需输入）。-1程序名：SD1(线路1隧道参数子程序)If Z3=1:Then Goto 1: Else Prog “SD2”:Goto 0:IfEnd:Lbl 1:8.75Z4:-1.1Z5:4.77Z6:1.47Z7:-0.25Z9: 51。2857.1”Z10:Lbl 0-2程序名：SD2(线路2隧道参数子程序)5.43Z4:1.634Z5:7.93Z6:1.634Z7: 0Z9: 90Z10字程序中字母表示说明：Z4隧道上拱半径；Z5隧道上拱圆心至设计面高度；Z6隧道中腰部半径；Z7中腰圆心至设计面高度；Z9设计隧道中线与设计路基中线偏移值，左为负数，右为正数；Z10上部拱跨隧道半幅角度；-1程序名：W-1(线路1路基填挖边坡参数子程序)If Z3=1:Then Goto 1: Else If Z3=2:Then Prog “W-2”:Goto 0: Else If Z3=3:Then Prog “W-3”:Goto 0: Else If Z3=4:Then Prog “W-4”:Goto 0: Else If Z3=5:Then Prog “W-5”:Goto 0: Else Prog “W-6”:Goto 0:IfEnd:Lbl 1:0.75Z5:1Z6:1.25Z7:10Z8:10Z9:2.6Z10:2Z11:2Z12:1.5Z13:1.75Z14:8Z15:2Z16：LbI 0-2程序名：W-2(线路2路基填挖边坡参数子程序)1Z5:1Z6:1.25Z7:10Z8:10Z9:2.6Z10:1.5Z11:1.5Z12:1.5Z13:1.75Z14:8Z15:2Z16字程序中字母表示说明：Z5挖方第一阶边坡边率；Z6挖方第二阶边坡边率；Z7挖方第三阶边坡边率；Z8挖方第一阶高度；Z9挖方第二阶高度；Z10挖方路基碎落台及水沟宽度；Z11挖方第二台阶平台宽度；Z12挖方第三台阶平台宽度；Z13填方第一阶边坡边率；Z14填方第二阶边坡边率; Z15填方第一阶高度；Z16-填方第二台阶平台宽度。（注：本程序只做出挖方三个台阶，填方二个台阶，如需增加，先需在程序THB和4FBZ程序中增加变量。再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判别语句。）三、使用说明1、规定(1) “KM”为所求点桩号，反算时为输入大概桩号(2) 当所求点位于中线时，=0；当位于中线左铡时，取负值；当位于中线中线右侧时，取正值。 (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。（在用交点法时，P子母代表偏角） (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。（交点法为圆半径） (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。(7) Q值是判别用采用线元法还是交点法。交点法值为2或3，2为对称缓和曲线段交点法，3为不对称缓和段交点法。线元法，根据线元段取值，直线段取0，缓和段和圆曲线段，根据左偏取-1,右偏取1. (8) 为了区别字母O及数子0，特把字母O 加粗；为根号。2、输入与显示说明(1)输入部分：A:XY=1，ZD=2，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9? 输入:1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序。XZ？YZ？为置仪点X、Y坐标，第一次运行输一次，以下运行不需再输入，下次再运行此程序调上次输值，如需改，则输入，不需改，则按确认键。“LX:XX=1,AX=2,BX=3,CX=4,DX=5,EX=6”?选择经路，坐标计算中输入0值，变为输入线元段曲线要素。输1为第一条线路,输2为第二条线路.本程序暂设计实例为6条线路。KM？ 正算时所求点的里程（反算输入大概桩号 DKLC）输入-1，返回输入选择计算类型，输入-2,返回选择线路，输入-3，调出本段线元参数，以矩阵显示，再运行从头开始 D ？ 正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)X0？Y0？ 反算时所求点的X、Y坐标（放样程序中实测X、Y坐标） (2)显示部分:L0? 涵洞放样程序中,涵距中心轴线前后距离,前为正,后为负.M0? 边坡放样程序中原地面标高输入H-B？ 计算面至路面高差（默认路面为0）SXG？ 水准仪输入视线高（全站仪输入0）ZS？ 水准仪输入放样点中视读数（全站仪输入放样点的实测高程）。PJ1? PJ2? 涵洞计算中第一个夹角同PJ。第二夹角为涵洞中轴线线与涵洞边线前进方向夹角。 (同理适合在桥梁中斜交桥,平行布置中,桥台桩基坐标计算)默认值均为90度.TH-GH？ 边坡放样中填方超放宽值，默认值为0.5m.LD:Z-,Y+? 桥梁锥坡向左右方向边长，左为负数，右为正数。LR? 锥坡向路线前进或向后退方向边长。 Z0? 锥坡顶边桩号(3)输出部分:XS=*正算时，计算得出的所求点的X坐标YS=* 正算时，计算得出的所求点的Y坐标FWJ=* 正算时，计算得出的所求点的至置仪点方位角JL=* 正算时，计算得出的所求点的至置仪点距离KM=* 反算时，计算得出的所求点的里程D=* 反算时，计算得出的所求点的边距SJG=* 所求点位置设计路面顶标高(设计高)SCG=* 所求点位置实测标高（实测高）I=* 所求点