道路实用计算器编程.doc

道路实用计算器编程詹 韦华（江西中昌工程咨询监理有限公司，江西 南昌 330038）摘要 本文介绍道路施工测量中实际应用的CASIOfx4800P计算器的编程。该程序具有“赋值”输入一次性、计算自动寻觅性和不同用途间相互兼容性及野外施工的实用性。关键词 道路测量 CASIOfx4800P 编程道路测量中，笔者编制了最新CASIOfx4800P计算器的测量程序。应用该程序可简单、快速、连续的计算任一里程的中、边桩坐标。如配合全站仪可在施工现场进行任一中、边桩放样。其中程序的特点是：1、 一次性：全部线路上各曲线元素中经一次性输入，即可永久利用，不必换输；2、 寻觅性：应用时只要键入里程桩的里程数，即可自动寻觅到所处曲线段进行计算或放样；3、 兼容性：计算放样兼容，中桩与边桩兼容，左转与右转兼容；4、 实用性：计算器体积小、重量轻，该程序操作简单、便利，尤其在野外测量极具实用性。该程序是由一个主程序和数个三级嵌套子程序形成的程序组。其中有数个（道路全线内有几个平曲线，新设计几个）一级子程序，四个二级子程序和一个三级子程序。下面，将该程序写出，意在抛砖引玉，愿与同行共榷。CASIOfx4800P道路坐标测设应用编程1、主程序；ZBLblA Z Za，gotoB:gotoCLblB Prog “ZB1.SUB”LblC Za2,gotoD:gotoELblD Prog “ZB2.SUB”LblN Za.n/2goton+1LblN+1 Prog “ZBn.SUB”2、一级子程序：ZB1（ZB1ZBn基本相同）LBL1-LBL16（将各曲线主点桩号里程和平曲线元素及各直缓点（或直圆点）已知坐标赋值于对应自命符号）。LBL17 Prog “R.SUB”(或Prog “L.SUB”、Prog “ZBYR.SUB”、Prog “ZBYL.SUB”之一)LBL18 Goto 13、二级子程序一：R.SUBLbL1 Fix3 Z Z1= (Z-A)5/40R2m2，Z2= (Z-A)3/6Rm，Z3= (Z-A)3/33R3m3，Z4=T.SinH+T，Z5= T.SinH，Z6=（E-Z）-（E-Z）5/40R2m2，Z7=（E-Z）3/6Rm-（E-Z）7/33R3m3，Z8= 90（m+2Z-2B）/R，ZAgoto2:goto4LbL2 ZBgoto5:goto3LbL3 ZBgoto6:goto7LbL4 P=(Z-A)-Z1:Q=0:Z9=F+90:goto8LbL5 P=(Z-A)-Z1:Q= Z2- Z3Z9=F+(Z-A)K90=goto8LbL6 P=m/2-m3/240R2+RSinZ8:Q=m2/Z4R-m4/336R3+R-RCos Z8:Z9=F+(Z-B)180/R90:Goto8LbL7 P=Z4+Z6Cos(180-H)-Z7Sin(180-H):Q=Z5-Z6Sin(180-H)-Z7Cos(180-H):Z9=G-(E-Z)2K:goto8Lbl8 Prog “ZBF.SUB”4、二级子程序二：L.SUBLbL1LbL3(同上)Lbl4 P=(Z-A):Q=0 Z9=(F90):goto8LbL5 P=(Z-A)-Z1:Q=Z3-Z2: Z9=F-180(Z-A)2-K90:goto8Lbl6 P=m/2-m3/240R2+RSin Z8-R:Q=m2/Z4R-m4/336R3+R-RCosZ8-R:Z9=F-180/(Z-B)R90:Goto8LbL7 P=Z4+Z6Cos(180+H)-Z7Cos (180-H):Q=Z5+Z6Sin(180-H)+Z7Cos(180-H):Z9=G+180(E-Z)2K90:goto8LbL8 Prog “ZBF.SUB”5、二级子程序三：ZBYR.SUBLbl1 Fix3 Z ZBgoto2:goto4LbL2 ZBgoto3:goto1LbL3 P=RSin(180(Z-B)/R):Q=R-RCos(180(Z-B)/R):Z9=F+180/(Z-B)R90:Goto5LbL4 P=(Z-B):Q=0:Z9=F90:Goto5LbL5 Prog “ZBF.SUB”6、二级子程序四：ZBYL.SUBLbL1LbL2同（5）LbL3 P=RSin(180-(Z-B)/R):Q=R-RCos(180(Z-B)/R)-R:Z9=F-(Z-B)R90:Goto5LbL4 P=(Z-B):Q=0:Z9=F90:Goto5LbL5 Prog “ZBF.SUB”7、三级子程序：ZBF.SUBLbL1 N=0 goto2:goto3LbL2 X=PCosO+QSinO+uY=-PSinO+QcosO+VGoto4LbL3 X=PcosO+QsinO+u: Y=-PSinO+QcosO+v:X=X+NCosZ9 Y=Y+NSinOZ9 Goto4LbL4 S0Pol(X-S,Y-W): J L附：程序中的常用符号A ZH点里程 BHY点里程 C QZ点里程 D YH点里程 E HZ点里程 F切线坐标方位角 G 切线中标方位角 K=180/2Rm m 缓和段长度n 90001 （0）边桩判断符 H 转角 R 曲线半径O 360-F（坐标变换旋转角） T 切线长S 已知导线点纵坐标 W 已知导线点横坐标U ZH（或ZY）点纵点坐标 V ZH（或ZY）点横点坐标X 待求点纵坐标 Y 待求点横坐标主要参考文献交通土木工程测量人民交通出版社； 张坤宜 主编 1999.6控制测量学武汉测绘科技大学 1988.6测量学邹永廉 主编 1986.12地形测量学昌时恒 主编 1