fx-4850P_单一闭附合图根导线近似平差程序.pdf

fx-4850P 程序 单一闭附合图根导线近似平差计算程序PM3-1 MAPPING TRAVERSE PM3-1 显示程序标题 Norm:I=0:J=0 ZCLOSE(0) OR CONNECT(ELSE)= 导线类型，0 为闭合导线，其余为附合导线 PUNKNOWN POINT n= 未知导线点数 Deg:Fix 3 设置十进制度为单位 AXA(m), 0 TO BEAR A B(Deg)= 输入A 点x 坐标或输入≤0 的数值 A0 BYA(m)=: RBEAR A B(Deg)= A0 时输入A 点y 坐标，否则输入A→B 方位角 CXB(m)=:DYB(m)= 输入B 点坐标 A0 Pol(C-A,D-B):Cls: 计算A→B 方位角 J0 J=J+360 R=J: 判断方位角 DIST A B(m)=:I 显示A→B 平距 BEAR A B(DMS)=:R 显示A→B 方位角 Z 0 EXC(m)=:FYC(m)=: 附合导线时继续输入C 点坐标 GXD(m), 0 TO BEAR C D(Deg)=: 输入D 点x 坐标或输入≤0 的数值 G0 HYD(m)=:Pol(G-E,H-F):Cls: 计算C→D 方位角 J0 J=J+360 S=J: 判断方位角 DIST C D(m)=:I 显示C→D 平距 BEAR C D(DMS)=:S 显示C→D 方位角 SBEAR C D(Deg)= 输入C→D 方位角 R180 S=R-180: S=R+180 闭合导线时计算A→B 反方位角 BEAR B A(DMS)=:S 显示B→A 方位角 Defm 88 定义88 个扩充变量，最多计算20 个导线点 M=0:N=0:Q=P+1 累加边长和变量清零，循环初始设置 Lbl 0:N=N+1:Norm:POINT n=:N 显示当前输入的观测数据计数 {KO}:KANGLE +L,-R(Deg)=:Z[4N-3]=K 输入水平角观测值(左正右负) ODIST(m)=:Z[4N-2]=O 输入平距观测值 M=M+O 累加平距和 N=1 L=R+K: L=L+K 推算导线边方位角 Prog SUB3-11 调子程序处理方位角 Dsz Q:Goto 0 {K}:KLAST ANGLE+L,-R(Deg)=:Z[4(P+2)-3]=K 输入最后一个水平角(左正右负) L=L+K:Prog SUB3-11 调子程序处理方位角 U=L-S 方位角闭合差 Fix 1:ANGLE CLOSE ERROR(Sec)=:3600U 显示方位角闭合差(秒) W=60 (P+2) 以秒为单位的方位角闭合差限差 Abs (3600U)W ANGLE CLOSE ERROR OVER! 显示角度闭合差超限 V=-U ÷(P+2) 计算角度改正数 X=0:Y=0:N=0:Q=P+1 累加坐标增量变量