Casio fx-4500PA计算器的道路中线测设程序.doc

Casio fx-4500PA计算器的道路中线测设程序330013） （2 江西省南昌市公路局 南昌 30006） 摘 要：本文介绍Casio fx-4500PA计算器配合全站仪测设道路中心线中线放样计算0 前 言 本文就坐标法测设道路中心线，计算配合全站仪在道路中线测设的计算程序基本测设原理坐标放样就是置全站仪于导线点或已知坐标的点上，用极坐标的方法测设中线。如图1所示，将仪器置于导线点，以导线点作为定向点，欲标定中线上点只要知道θ角和距离即可。当（x，y）、（x，y）和M（x，y）坐标已知，则可以求出θ和值。点M的坐标需要根据平面线形理论进行计算 图1 程序设计 Casio fx-4500PA计算器的编程空间容量只有1103 steps，变量从A～Z共26个（当然，可以用Defm来扩充，但每扩充一个变量，编程空间容量就会减小8steps，不合算）。为了能在有限的空间内编写出功能较完整，使用起来又方便的代码，就必须优化压缩程序，又不失可读性。程序分为三个模块，模块1是用于计算上面提到的θ和值 图2 模块1——PM FY流程图 3 Casio fx-4500PA计算bl 6:X=C+(T+Z-Y)CosF▲Y=D+(T+Z-Y)sinF▲Goto END L8 Lbl 25：Q=S-S xy5/（40R2H2）：P=SSS/（6RH）：Goto CS L9 Lbl 34：L=B+180（S-H）/（πR）：Q=RsinL+Q：P=R（1-CosL）+P：Goto CS L10 Lbl CS：S=√（QQ+PP）：U=tan-1（P/Q）：Goto XY L11 Lbl XY：K=1=X=F：≠O=0=X=F-A+180：≠X=F+A+180△△V=C+TCosX：W=D+TsinX：O=0=Goto RC：≠Goto LC△ L12 Lbl RC：K=0=K=F-A+U：≠K=F+180-U△Goto CXY L13 Lbl LC：K=0=K=F+A-U：≠K=F+180+U△Goto CXY L14 Lbl CXY：X=V+SCosK▲Y=W+SsinK▲Goto END L15 Lbl END Filename：INDATA L1 J″JD-ZH″：C″JD-X″：D″JD-Y″：F″JD-FUJ″ L2 O″RIG=0 LEF=1″ L3 A：R：H″Lh″ L4 G″BEGIN ZH=″：E″END ZH=″：″OK！″ 说明：文中的特殊符号与计算器按键的对应关系 = 为2ndF ENG ≠为2ndF ab/C △ 为2ndF √ ▲ 为2ndF ↑ 算例 假设需测设的路段位于交点3附近，即K73+562.841～ K79+314.451之间。 首先按FILE调用INDATA程序输入曲线要素数据。 JD-ZH? 75861.081 JD-X? 13069.746 JD-Y? 4987.335 JD-FUJ? 220°33°55°（即220°33′55″） RIG=0 LEF=1? 1 （是左转弯） A？ 47°26°5°（即47°26′05.0″） R? 5600 LH? 0 BEGIN ZH=? 72562.841 END ZH=? 79314.451 一次性输入以上数据后，可以连续测设本段6.75KM。 按以下数据调整好全站仪。 假设立仪点D0（3112476.091，495343.676） 交点号 交点坐标 交点桩号 转角值A 半径 R(m) 缓和曲线 曲线位置 计算方位角 X Y ZY QZ YZ 1 2 3 4 5 6 7 8 9 10 11 起点 3114435.911 502216.977 K68+385.896 234°26′19.9″ 1 3113843.604 501388.465 K69+404.355 右20°58′54.3″ 5500 0 K68+385.90 K69+392.95 K70+400.00 255°25′14.2″ 2 3113207.932 498944.477 K71+906.844 右12°34′45.8″ 6000 0 K71+245.53 K71+904.19 K72+562.84 268°00′0.02″ 3 3113069.746 494987.335 K75+861.081 左47°26′05.0″ 5600 0 K73+400.83 K75+718.93 K78+037.02 220°33′55″ 4 3109484.968 491918.575 K80+295.663 右20°13′50.0″ 5500 0 K79+314.45 K80+28