路线坐标计算.docVIP

Casio4850p坐标正、反算程序 1、ZBFS坐标反算程序 C“X1”：D“Y1”：E“X2”：F“Y2”： Fixm：Pol（E-C，F-D：“L1-2=”：I J≤0=＞J=J+360 ⊿“F1-2=”：J→DMS 说明： 输入X1、Y1、X2、Y2 L1-2：计算得出的距离 F1-2：计算得出的方位角(直接显示度分秒) 2、ZBZS坐标正算程序 C“X1”：D“Y1”：L“L1-2”：O“F1-2”：Fixm： “X2=”：X=C+Rec（L，O “Y2=”：Y=D+J 说明： 输入X1、Y1，L1-2的距离，F1-2的方位角 计算得出坐标X2、Y2 一、LXZB（坐标计算主程序） LbI Z：｛P｝ A=×××：V=××°××′××″：C=×××：D=×××： P≤直线的终点桩号＝＞Prog“ZX.SUB”：Goto Z⊿ （以上各字母含义详直线坐标计算子程序说明） A=×××：V=××°××′××″：C=×××：D=×××： R=×××：I=（1或-1）：P≤圆曲线终点桩号＝＞Prog“YQX.SUB”：Goto Z⊿ （以上各字母含义详圆曲线坐标计算子程序说明） A=×××：V=××°××′××″：C=×××：D=×××： B=×××：W=××°××′××″：E=×××：F=×××： R=×××：L=×××：I=（1或-1）：P≤HY点桩号＝＞Prog“HQ1.SUB”：Goto Z⊿ P≤YH点桩号＝＞Prog“HYQ.SUB”：Goto Z⊿ P≤HZ点桩号＝＞Prog“HQ2.SUB”：Goto Z⊿ （以上各字母含义详（HQ1.SUB、HYQ.SUB、HQ2.SUB）坐标计算子程序说明） 该主程序是简单的示例说明，具体的应根据图纸的线型组合，随机应变的做顺序调整，并将其输入Casio4850计算器。 二、ZX.SUB（直线坐标计算子程序） G=P-A：T=V “X=”：X=C+GcosT “Y=”：Y=D+GsinT ｛Q｝：Q=1 =Prog“BZ.SUB”⊿ 说明： G：所求桩号至起算点的距离 P：所求点的桩号 A：起算点的桩号 T：所求桩号的方位角 V：起始方位角 C、D：起算点的X、Y坐标 X、Y：显示所求桩号的坐标 Q：参数，为1时计算边标坐标，为0时不计算 三、YQX.SUB（圆曲线坐标计算子程序） G=P-A H=Rsin((G÷R)×(180÷π)) J=(R(1-cos((G÷R)×(180÷π))))I T=V+((G÷R)×(180÷π))I “X=”:X=C+HcosV-JsinV “Y=”:Y=D+HsinV+JcosV ｛Q｝:Q=1 =Prog“BZ.SUB”⊿ 说明： G：所求桩号至起算点的距离 P：所求点的桩号 A：起算点的桩号(指ZY点) R：圆曲线半径 T：所求桩号的方位角 V：起始方位角(指ZY点的方位角) C、D：起算点（ZY点）的X、Y坐标 X、Y：显示所求桩号的坐标 I：参数，（左偏为－1，右偏为＋1） Q：参数，为1时计算边标坐标，为0时不计算 四、HQ1.SUB（第一缓和曲线坐标计算子程序） G=P-A H=G-G^5÷(40R2L2)+G^9÷（3456R^4L^4）-G^13÷（599040 R^6L^6） J=(G^3÷(6RL)-G^7÷(336R^3L^3)+G^11÷(42240R^5L^5))I T=V+90G2÷(πRL)I “X=”:X=C+HcosV-JsinV “Y=”:Y=D+HsinV+JcosV ｛Q｝:Q=1 =Prog“BZ.SUB”⊿ 说明： G：所求桩号至起算点的距离 P：所求点的桩号 A：起算点的桩号(指ZH点) R：曲线半径 L：缓和曲线长Ls T：所求桩号的方位角 V：起始方位角(指ZH点的方位角) C、D：起算点（ZH点）的X、Y坐标 X、Y：显示所求桩号的坐标 I：参数，（左偏为－1，右偏为＋1） Q：参数，为1时计算边标坐标，为0时不计算 五、HYQ.SUB（带缓和曲线的圆曲线坐标计算子程序） G=P-A H=Rsin((L÷2÷R)×180÷π+(G-L)÷R×180÷π)+L÷2-L^3÷(240R2) J=(R(1-cos((L÷2÷R)×180÷π+(G-L)÷R×180÷π))+L2÷(24R)-L^4÷(2688R3))I T=V+90L÷(πR)I+(180(G-L)÷(πR))I “X=”:X=C+HcosV-JsinV “Y=”:Y=D+HsinV+JcosV ｛Q｝:Q=1 =Prog“BZ.SUB”⊿G=B-P H=G-G^5÷(40R2L2)+G^9÷（3456R^4L^4）-G^13÷（599040 R^6L^6） J=(G^3÷(6RL)-G^7÷(336R^3L^3)+G^1