fx-5800P_单一闭附合图根导线近似平差程序PM3-1.pdfVIP

fx-5800P 程序 单一闭附合图根导线近似平差计算程序(PM3-1) (2) 程序PM3-1 ，占用内存1848 字节。 CLOSED Or CONNECTING MAPPING TRAVERSE PM3-1 显示程序标题 Norm 1 CLOSED(0) Or CONNECTING(1)=?Z 导线类型，0 为闭合导线，1 为附合导线 UNKNOWN POINT n=?P 未知导线点数 Deg:Fix 3 设置十进制度为单位 XA(m), 0 To BEAR AB(Deg)=?A 输入已知点A 的x 坐标或输入≤0 的数值 If A0:Then YA(m)=?B:Else BEAR AB(Deg)=?R:IfEnd A0 时为输入A 点y 坐标，否则为输入A→B 的方位角 XB(m)=?C:YB(m)=?D 输入已知点B 的坐标 If A0:Then Pol(C-A,D-B):Cls 计算A→B 的方位角 J0 J+360 J:J R DIST AB(m)=:I 显示A→B 的水平距离 BEAR AB(DMS)=:RDMS 显示A→B 的方位角 IfEnd If Z=1:Then XC(m)=?E:YC(m)=?F 附合导线，继续输入已知点C 的坐标 XD(m), 0 To BEAR CD(Deg)=?G 输入已知点D 的x 坐标或输入≤0 的数值 If G0:Then YD(m)=?H:Else BEAR CD(Deg)=?S:IfEnd G0 时为输入D 点y 坐标，否则为输入C→D 的方位角 If G0:Then Pol(G-E,H-F):Cls 计算C→D 的方位角 J0 J+360 J:J S DIST CD(m)=:I 显示C→D 的水平距离 BEAR CD(DMS)=:SDMS 显示C→D 的方位角 IfEnd Else If R180:Then R-180S:Else R+180S:IfEnd 闭合导线计算A→B 的反方位角 BEAR BA(DMS)=:S DMS 显示B→A 方向的方位角 IfEnd ClrStat:FreqOn 清除统计串列List X,List Y,List Freq，打开频度串列 0M 累加边长和变量清零 For 1I To P+1 Norm 1:POINT n=:I 显示当前输入的观测数据计数 ANGLE(Deg)=?List X[I] 输入水平角观测值 DIST(m)=?List Y[I] 输入水平距离观测值 List Y[I]+MM 累加水平距离和 If I=1:Then R+List X[I]L:Else List Freq[I-1]+List X[I]L:IfEnd 推算导线边方位角 If L180:Then L-180L:Else L+180L:IfEnd L360 L-360L 判断方位角是否大于360 LList Freq[I] 存储导线边方位角 Next LAST ANGLE(Deg)=?List X[P+2] 输入最后一个水平角 List Freq[P+1]+List X[P+2]L If L180:Then L-180L:Else L+180L:IfEnd L360 L-360L 判断