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

坐标正算 ZBZS 已知一个起算的坐标点，根据测得的方位角和平距推算另一点的坐标值。 程序如下 : X0=“ ”?B: 仪器点 X 坐标 Y0=“ ”?C: 仪器点 Y 坐标 Lbl 0: “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◢ 显示在第二行 Goto 0 注解： （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): J0 = J+360→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: Lbl 0: 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 坐标显示在第二行 Goto 0 注解 : 如果本程序不需要反复计算其它里程位的坐标值 ,可以将 Lbl 0 和 Goto 0 删 除掉。 直线段里程偏中距反算 ZXFS 程序如下 : ?Q: 直线起点里程 ?M: 直线起点 X 坐标 ?N: 直线起点 Y 坐标 ?T: 直线起点方位角 “Xp= ”?X: 观测点 X 坐标 “Yp= ”?Y: 观测点 Y 坐标 Pol(X-M,Y-N): J0 = 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: 放入数据程序中。 如果是单一的直线， 也可作用赋