1、CASIO fx-5800P 计算器测量程序设计 2.2 版 （7 条线路） 作者：路甲人 1FX5800 计算器公路测量常用程序集 2.2 版一、程序功能主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括 C 型，S 型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。新版本优化：1、调整一次显示结果；2、交点法中考虑了不对称缓和曲线；3、修改原版本部分地方笔误.(红色为修改处)二、源程序1.总主程序（1、坐标计算放样程序 2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标
2、准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入 19 数子则选择 1 至 9 的程序，返回时，在桩号输入-1,返回选择选择计算类型。输入-2,返回选择线路。坐标计算中输入-3,则显示本段曲线要素。程序名：0ZCXLbl 0: 24DimZ：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
3、=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 Lbl 2:2F:90Z1:ProgQX: Lbl C:DKLC?Z:Z=-1=Goto 0:Z=-2=Goto 2:Z=-3=Goto X:ProgKM: X0
4、?X: Y0?Y:ProgTHB:PorgZD:Goto CCASIO fx-5800P 计算器测量程序设计 2.2 版 （7 条线路） 作者：路甲人 2LbI 3:ProgQX: 1.5K:W2?K:KZ24: 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:
5、Goto ELbl 5:ProgQX:0.5B:TH-GD?B:BZ23:Lbl F:2F:90Z1:KM?Z:Z=-1 =Goto 0:Z=-2 =Goto 5:ProgKM:X0?X:Y0?Y:0M:M0?M: MZ4:ProgFBX:Fix 2: PD ：Abs（D）-SO: L0=:Locate 6,4,O:ProgZD: Z4T: TW=:Lcoate 6,4,T Goto FLbl 6:ProgDX:LbI G:ProgQX:LbI H:1F:90Z1:KM?Z:Z=-1=Goto 0:Z=-2=Goto G:ProgKM:?D:ProgTHB:ProgXY:ProgJS:Prog
6、H:0M: M0?M:Fix 2:H-MT: TW=:Locate 6,4,T Goto HLbl 7:ProgDX:LbI I:ProgQX: Z0?Z:0D: LD:Z-,Y+? D:Abs(D) R:LR?R: DZ6:RZ7:ZZ8:LbI J:0Y: L0: DZH+,XZH-?Y:Y=-1=Goto 0:Y=-2=Goto I:ProgZP:Goto JLbl 8:ProgDX:Lbl K:?X:X=-1=Goto 0:X=-2=Goto 8:?Y:ProgJS:Goto KLbl 9:PorgDX:Lbl L:Prog”QX”:Lbl M:2F:90Z1: KM?Z:Z=-1=G
7、oto 0:Z=-2=Goto L:Z=-3=Goto X: ProgSD1: CASIO fx-5800P 计算器测量程序设计 2.2 版 （7 条线路） 作者：路甲人 30.5A:CQHD?A:“X0?X:Y0?Y:0M:M0?M:MZ8:AZ15:ProgSD: Goto M: Lbl X:Mat F Goto 02、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：FBXProg“THB”:DP:Prog“GD”:If DA:Then Goto 1:Else If GB:Then Goto 2:Els
8、e If GC:Then Goto 3:Else If GZ10:Then Goto 4:Else Goto 5:IfEnd:Lbl 1: L+Z14+Z15+Z16+Z17+Z18+(G-A)Z9+Z13Z8+Z12Z7+Z11Z6+Z10Z5S:Goto Z:Lbl 2: L+Z14+Z15+Z16+Z17+(G-B)Z8+Z12Z7+Z11Z6+Z10Z5S:Goto Z:Lbl 3:L+Z14+Z15+Z16+(G-C)Z7+Z11Z6+Z10Z5S:Goto Z:Lbl 4:L+Z14+Z15+(G-Z10)Z6+Z10Z5S:Goto Z:Lbl 5:L+Z14+GZ5 S:Got
9、o Z:CASIO fx-5800P 计算器测量程序设计 2.2 版 （7 条线路） 作者：路甲人 4Lbl T:L+Z23T:If GZ21:Then T+Z22 +Z21Z19+(G-Z21)Z20S:Goto Z:Else T+GZ19S:Goto Z: IfEnd:Lbl Z3.次程序 3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：SDProg “KM”:Prog“THB”: DZ13:0D:Prog“H”:Cos(Z10)Z4 E: H+Z5 Z5: H+Z7 Z7: E+Z5 Z10:If Z8Z10:T
10、hen 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 J
11、1: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 27. 线元法正算子程序()程序名：A0.1184634425A: 0.2393143352B：0.2844444444N：0.046910077K：0.2
12、307653449L：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. 线元法反算子程序
13、()程序名：BG-90T：Abs(Y-V)cos(T)-(X-U)sin(T)W：0D：Lbl 0：Prog “A“： CASIO fx-5800P 计算器测量程序设计 2.2 版 （7 条线路） 作者：路甲人 6T+QEW(C+WS)L：(J-Y)cos(L)-(I-X)sin(L)D：IF Abs(D)HN:Q=3=Mat F1,9N18.桥梁锥坡放样子程序（ZP）程序名：ZP(Z62（1-Y 2/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”
14、: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 坐标计算要素程序）CASIO fx-5800P 计算器测量程序设计 2.2 版 （7 条线路） 作者：路甲人 10If Z26615.555:Then 25900,11587.421,1847.983, 101 。 0923.1”,715.555,11045, 11045, 0Mat F:Goto 0: If
15、End: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 程序名：XA-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, 5
16、09885.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坐标,线元起点切线方位角,线
17、元长度，线元起点半径,线元终点半径, 线元判别Mat F:Goto 0:IfEnd: (线元判别:直线段取 0，缓和段和圆曲线段，根据左偏取-1,右偏取 1.)(线元判别及线元半径见后说明)-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 If Z
18、3=6:Then Prog “S-6”:Goto 0: Else Prog “S-7”:Goto 0: IfEndLbl 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
19、 高程竖曲线要素子程序)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本段竖曲线终点桩号(即为竖曲线交点桩号+切线长度) :Then ；C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；R-竖曲线半径；I竖曲线前纵坡；N竖曲线后纵坡 -1 程序名：I-1（线路 1 高程超高参数子程序）Z24K:2W:If D69.998: Then
20、 0.75Z5:1Z6:1.25Z7:1.25Z8:1.5Z9:10Z10:10Z11:10Z12:10Z13:2.5Z14:2Z15:2Z16：2Z17:2Z18:1.5Z19:1.75Z20:8Z21:2Z22 :Goto 0:IfEnd:If Z100.345 And Z82.402: Then 1Z5:1.25Z6:1.25Z7:1.5Z8: 10Z10:10Z11:10Z12: 2.5Z14:2Z15:2Z16：2Z17: 1.5Z19:1.75Z20:8Z21:2Z22 :Goto 0:IfEnd:Lbl R:If Z82.402 And Z69.998: Then 0.75Z5:
21、1Z6:1.5Z7:10Z10:10Z11: 2.5Z14:2Z15:2Z16:1.5Z19:1.75Z20:8Z21:2Z22 :Goto 0:IfEnd:If Z100.345 And Z82.402: Then 1.25Z5:1.5Z6: 10Z10: 2.5Z14:2Z15: 1.5Z19:1.75Z20:8Z21:2Z22 :Goto 0:IfEnd:LbI 0-2 程序名：W-2(线路 2 路基填挖边坡参数子程序)Lbl 1: If D69.998: Then 0.75Z5:1Z6:1.25Z7:1.25Z8:1.5Z9:10Z10:10Z11:10Z12:10Z13:2.5Z14
22、:2Z15:2Z16：2Z17:2Z18:1.5Z19:1.75Z20:8Z21:2Z22 :Goto 0:IfEnd:CASIO fx-5800P 计算器测量程序设计 2.2 版 （7 条线路） 作者：路甲人 13Lbl R:If Z82.402 And Z69.998: Then 0.75Z5:1Z6:1.5Z7:10Z10:10Z11: 2.5Z14:2Z15:2Z16:1.5Z19:1.75Z20:8Z21:2Z22 :Goto 0:IfEnd:LbI 0字程序中字母表示说明：Lbl L:If Z本段终点里程 And Z本段起点里程: Then 挖方第一阶边坡边率Z5；挖方第二阶边坡边
23、率Z6；挖方第三阶边坡边率Z7；挖方第四阶边坡边率Z8；挖方第五阶边坡边率Z9；挖方第一阶高度Z10；挖方第二阶高度Z11；挖方第三阶高度Z12；挖方第四阶高度Z13；挖方路基碎落台及水沟宽度Z14；挖方第二台阶平台宽度Z15；挖方第三台阶平台宽度Z16；挖方第四台阶平台宽度Z17；挖方第五台阶平台宽度Z18；填方第一阶边坡边率Z19；填方第二阶边坡边率Z20;填方第一阶高度Z21；填方第二台阶平台宽度Z22。（注：本程序只做出挖方五个台阶，填方二个台阶，如需增加，先需在程序 THB 和 FBX 程序中增加变量。再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判别语句。）三、使用说明
24、1、规定(1) “KM”为所求点桩号，反算时为输入大概桩号 (2) 当所求点位于中线时，=0；当位于中线左铡时，取负值；当位于中线中线右侧时，取正值。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以 10 的 45 次代替。（在用交点法时，P 子母代表偏角）(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。（交点法为圆半径）(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以 10 的 45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以 10 的 45 次代替；与圆曲线相接时，曲率半径等
25、于圆曲线的半径。(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
26、，JS=8，SD=9? 输入:1、坐标计算放样程序 2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序。XZ？YZ？为置仪点 X、Y 坐标，第一次运行输一次，以下运行不需再输入，下次再运行此程序调上次输值，如需改，则输入，不需改，则按确认键。“LX:XX=1,XA=2,XB=3,XC=4,XD=5,XE=6,XF=7”?选择经路，坐标计算中输入 0 值，变为输入线元段曲线要素。输 1 为第一条线路,输 2 为第二条线路.本程序暂设计实例为 7 条线路。KM
27、？ 正算时所求点的里程（反算输入大概桩号 DKLC）输入-1，返回输入选择计算类型，输入-2,返回选择线路，输入-3，调出本段线元参数，以矩阵显示，再运行从头开始 D ？ 正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)；CASIO fx-5800P 计算器测量程序设计 2.2 版 （7 条线路） 作者：路甲人 14运行高程计算查阅程序时，第一次先输入半幅中央分隔带的宽度（如中央分隔带为3 米，即输 1.5） X0？Y0？ 反算时所求桩号的 X、Y 坐标（放样程序中实测 X、Y 坐标） (2)显示部分:L0? 涵洞放样程序中,涵距中心轴线前后距离(斜距),前为正,后为负.M0?
28、 边坡放样程序中原地面标高输入TH-GH？ 边坡放样中填方超放宽值，默认值为 0.5m.W2？ 高程放样程序中,输入中央分隔带半幅宽度H-B？ 高程放样程序中,计算面至路面高差（默认路面为 0）SXG？ 水准仪输入视线高（全站仪输入 0）ZS？ 水准仪输入放样点中视读数（全站仪输入放样点的实测高程）。PJ1? PJ2? 涵洞计算中第一个夹角同 PJ。第二夹角为涵洞中轴线线与涵洞边线前进方向夹角。(同理适合在桥梁中斜交桥,平行布置中,桥台桩基坐标计算)默认值均为 90 度.LD:Z-,Y+? 桥梁锥坡向左右方向边长，左为负数，右为正数。(即为锥坡顶高程减地面高程后乘以填方坡比)LR? 锥坡向路线
29、前进或向后退方向边长。 Z0? 锥坡顶边桩号L0:DZH+,XZH-?锥坡放样中，椭圆上分段放样距离，大桩号锥坡输正数,小桩号锥坡输负数。(3)输出部分:XS=* 正算时，计算得出的所求点的 X 坐标YS=* 正算时，计算得出的所求点的 Y 坐标FWJ=* 正算时，计算得出的所求点的至置仪点方位角JL=* 正算时，计算得出的所求点的至置仪点距离KM=* 反算时，计算得出的所求点的里程D=* 反算时，计算得出的所求点的边距SJG=* 所求点位置设计路面顶标高(设计高)SCG=* 所求点位置实测标高（实测高）I=* 所求点位置设计路面横坡（D 输 0 时为，本段路基纵坡）T=*或 W=* 所求点位
30、置距设计标高填或挖高度值。(负为挖方值,正为填方值)SJGD=* 所求点位置路基设计半幅标准宽度L0=* 边桩放样程序中实测点至设计边坡点距离，正向内移，负向外移。(隧道程序中为超欠挖值，正为超挖，负为欠挖)TW=* 边桩放样程序中，实测放样边坡点至止桩号设计顶填挖高度值(负为挖方值，正为填方值)H0=* 隧道放样程序中测量点至设计面高度四、结束语1、本套程序实例线路给二条，如标段像匝道有多条线时，同理增加。2、由于本人没做过隧道，隧道程序只是参照本项目另一个标的图纸所做，如有不同，可以调整参数。原理应是一样的。3、为了更好的开发计算器程序，本人特建一 QQ 群，欢迎各位测友加入，QQ 群号是
31、：24817026。五、附注1、主程序名：0ZCX2、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度） 程序名：FBXCASIO fx-5800P 计算器测量程序设计 2.2 版 （7 条线路） 作者：路甲人 153.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值） 程序名：SD4：极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名： JS(一式)5路基宽度子程序: 路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程
32、序直接输入半幅宽度值至 L) 程序名： GD6坐标计算次程序（THB）7. 线元法正算子程序(A)8. 线元法反算子程序(B)9. 交点法正算子程序(Z)10. 交点法缓和段转化子程序(HX)11. 交点法反算子程序(ZX)12高程计算子程序（H）13.高程超高计算程序（I）14导线点子程序（DX）15线路选择子程序(线路选择输 0 时。则输曲线参数)（QX）16线路中线元段判别子程序（KM）17坐标计算参数转化子程序（F）18.桥梁锥坡放样子程序（ZP）19显示子程序 程序名：(XY) 程序名：(ZD)20数据子程序-1 程序名：XX-1（线路 1 坐标计算要素程序）-2 程序名：XA-2（
33、线路 2 坐标计算要素程序）XF-7-1 程序名：S-1 (线路 1 高程竖曲线要素子程序)-2 程序名：S-2 (线路 2 高程竖曲线要素子程序) S-7-1 程序名：I-1 （线路 1 高程超高参数子程序）-2 程序名：I-2 （线路 2 高程超高参数子程序）I-7-1 程序名：G-1 (线路 1 路基标准半幅宽度参数子程序)-2 程序名：G-2 (线路 2 路基标准半幅宽度参数子程序) G-7-1 程序名：SD1 (线路 1 隧道参数子程序)-2 程序名：SD2 (线路 2 隧道参数子程序)-1 程序名：W-1 (线路 1 路基填挖边坡参数子程序)-2 程序名：W-2 (线路 2 路基填挖边坡参数子程序) W-7
