道路实用计算器编程.docVIP

道路实用计算器编程 詹 韦华 （江西中昌工程咨询监理有限公司，江西 南昌 330038） [摘要] 本文介绍道路施工测量中实际应用的CASIOfx﹣4800P计算器的编程。该程序具有“赋值”输入一次性、计算自动寻觅性和不同用途间相互兼容性及野外施工的实用性。 [关键词] 道路测量 CASIOfx﹣4800P 编程 道路测量中，笔者编制了最新CASIOfx﹣4800P计算器的测量程序。应用该程序可简单、快速、连续的计算任一里程的中、边桩坐标。如配合全站仪可在施工现场进行任一中、边桩放样。其中程序的特点是： 一次性：全部线路上各曲线元素中经一次性输入，即可永久利用，不必换输； 寻觅性：应用时只要键入里程桩的里程数，即可自动寻觅到所处曲线段进行计算或放样； 兼容性：计算放样兼容，中桩与边桩兼容，左转与右转兼容； 实用性：计算器体积小、重量轻，该程序操作简单、便利，尤其在野外测量极具实用性。 该程序是由一个主程序和数个三级嵌套子程序形成的程序组。其中有数个（道路全线内有几个平曲线，新设计几个）一级子程序，四个二级子程序和一个三级子程序。下面，将该程序写出，意在抛砖引玉，愿与同行共榷。 CASIOfx﹣4800P道路坐标测设应用编程 1、主程序；ZB LblA [Z] Z≦a，→gotoB:≠→gotoC LblB Prog “ZB1.SUB” LblC Z≦a2,→gotoD:≠→gotoE LblD Prog “ZB2.SUB” …… LblN Z≦a.n/2→goton+1 LblN+1 Prog “ZBn.SUB” 2、一级子程序：ZB1 （ZB1—ZBn基本相同） LBL1-LBL16（将各曲线主点桩号里程和平曲线元素及各直缓点（或直圆点）已知坐标赋值于对应自命符号）。 LBL17 Prog “R.SUB” 或Prog “L.SUB”、Prog “ZBYR.SUB”、Prog “ZBYL.SUB”之一 LBL18 Goto 1 3、二级子程序一：R.SUB LbL1 Fix3 Z Z[1] Z-A 5/40R2m2， Z[2] Z-A 3/6Rm， Z[3] Z-A 3/33R3m3， Z[4] T.SinH+T， Z[5] T.SinH， Z[6] （E-Z）-（E-Z）5/40R2m2， Z[7] （E-Z）3/6Rm-（E-Z）7/33R3m3， Z[8] 90（m+2Z-2B）/ΠR， Z≥A→goto2:≠→goto4△ LbL2 Z≤B→goto5:≠→goto3△ LbL3 Z≤B→goto6:≠→goto7△ LbL4 P Z-A -Z[1]:Q 0:Z[9] F+90:goto8 LbL5 P Z-A -Z[1]:Q Z[2]- Z[3] Z[9] F+ Z-A ·K±90 goto8 LbL6 P m/2-m3/240R2+R·SinZ[8]: Q m2/Z4R-m4/336R3+R-R·Cos Z[8]: Z[9] F+ Z-B ·180/ΠR±90:Goto8 LbL7 P Z[4]+Z[6]·Cos 180-H -Z[7]·Sin 180-H : Q Z[5]-Z[6]·Sin 180-H -Z[7]·Cos 180-H : Z[9] G- E-Z 2·K:goto8 Lbl8 Prog “ZBF.SUB” 4、二级子程序二：L.SUB LbL1—LbL3 同上 Lbl4 P Z-A :Q 0 Z[9] F±90 :goto8 LbL5 P Z-A -Z[1]:Q Z[3]-Z[2]: Z[9] F-180 Z-A 2-K±90:goto8 Lbl6 P m/2-m3/240R2+R·Sin Z[8]-R: Q m2/Z4R-m4/336R3+R-R·CosZ[8]-R: Z[9] F-180/ Z-B ΠR±90:Goto8 LbL7 P Z[4]+Z[6]·Cos 180+H -Z[7]·Cos 180-H : Q Z[5]+Z[6]·Sin 180-H +Z[7]·Cos 180-H : Z[9] G+180 E-Z 2·K±90:goto8 LbL8 Prog “ZBF.SUB” 5、ZBYR.SUB Lbl1 Fix3 Z Z≥B→goto2:≠→goto4△ LbL2 Z≤B→goto3:≠→goto1△ LbL3 P R·Sin 180 Z-B /ΠR : Q R-R·Cos 180 Z-B /ΠR : Z[9] F+180/ Z-B ΠR±90:Goto5 LbL4 P Z-B :Q 0: Z[9] F±90:Goto5 LbL5 Prog “ZBF.SUB” 6、二级子