卡西欧公路、铁路、隧道、桥梁测量计算程序(全).doc

卡西欧5800公路、铁路、隧道、桥梁测量计算程序(全) 坐标正算 ZBZS 已知一个起算的坐标点，根据测得的方位角和平距推算另一点的坐标值。 程序如下: “X0=”?B: 仪器点X坐标 “Y0=”?C: 仪器点Y坐标 “FWJ=”?F: 观测方位角 “PJ=”?D: 观测平距 Rec(D,F): B+I→X: C+J→Y: Cls: Fix 3: “Xp=”: 待求点X坐标 “Yp=”: 待求点Y坐标 Locate 7,1,X: 显示在第一行 Locate 7,2,Y◢ 显示在第二行 注解： （B，C）是仪器点的坐标，F为方位角，D为平距。在本程序中，采用了循环（多次）运算多点与仪器点的关系计算法。如果不必要，只算一个，那么把Lbl 0和Goto 0删除就行了。 坐标反算 ZBFS 根据两已知坐标点求算其方位角及距离。 程序如下: “X0=”?B: 仪器点X坐标 “Y0=”?C: 仪器点Y坐标 “Xp=”?X: 待求点X坐标 “Yp=”?Y: 待求点Y坐标 ol(X-B,Y-C): →J: I→D: J→F: Cls: Fix 3: “FWJ=”: 计算的方位角 F?DMS◢ 按度分秒显示 “PJ=”: 计算的平距 Locate 10,3,D◢ 平距显示在第三行 注解: 执行程序计算时,首先询问四变量两个点的坐标（B，C）、（X，Y）。为了明了显示结果具体是何意思，特地使用字符串“PJ=”表示平距，字符串“FWJ=”表示方位角，但要注意是字符串而非变量名。 直线段坐标计算 ZXZBJS 单一直线段任意里程位各点的坐标计算。 程序如下: 直线起点里程→Q: 直线起点X坐标→E: 直线起点Y坐标→F: 直线起点前进方位角→T: 2→DimZ: “KM=”?L: 待求点里程 “L-1,R+1”?K: 待求点位于前进方向左侧为-1,右侧为+1 “PJ=”?S: 待求点到线路设计中心的平距 Rec(Abs(Q-L),T): E+I→Z[1]: F+J→Z[2]: If K=1: Then Rec(S,T+90): Else Rec(S,T+270): IfEnd: Z[1]+I→X: Z[2]+J→Y: Cls: Fix 3: “Xp=”: 计算的X坐标 “Yp=”: 计算的Y坐标 Locate 7,1,X: X坐标显示在第一行 Locate 7,2,Y◢ Y坐标显示在第二行 注解: 如果本程序不需要反复计算其它里程位的坐标值,可以将Lbl 0和Goto 0删除掉。 直线段里程偏中距反算 ZXFS 程序如下: ?Q: 直线起点里程 ?M: 直线起点X坐标 ?N: 直线起点Y坐标 ?T: 直线起点方位角 “Xp=”?X: 观测点X坐标 “Yp=”?Y: 观测点Y坐标 Pol(X-M,Y-N): Jlt;0 =gt; J+360→J: Rec(I,J-T): Q+I→L: J→S: Cls; Fix 3: “KM=”： “DISP=”: Locate 7,1,L: Locate 10,2,S◢ 注解: 最好将?M:?N:?Q:?T: 放入数据程序中。如果是单一的直线，也可作用赋值语句。 圆曲线段坐标计算 YQXZBJS 单一圆曲线段任意里程位各点的坐标计算。 程序如下: 圆曲线起点里程→Q: 圆曲线起点X坐标→E: 圆曲线起点Y坐标→F: 圆曲线起点前进切线方位角→T: 圆曲线半径→R: 圆曲线转向方向(左转取-1,右转取+1)→P: 6→DimZ: “KM=”?L: 待求点里程 “L-