《多点距离后方交会计算程序》由会员分享，可在线阅读，更多相关《多点距离后方交会计算程序（3页珍藏版）》请在金锄头文库上搜索。
1、多点距离后方交会计算程序李德彪主程序：PROG“DDHFJH”Cls:Defm 0:Defm 21: 注：先清除以前的扩充变量。再扩充 21 个变量，可存 7 个点。3 的倍数，可变为 6、9、12、15 等。Z： Z： 注：Z 为已知点个数。Q=1：S=0：T=0：N=0：U=0：注：Q=1 为顺时针，Q=-1 为逆时针。此处均按顺时针。Lbl 0:XYD:U=U+1 ZN+1=X:ZN+2=Y:ZN+3=D：N=N+3：NGoto 0 注：依次输入测站坐标和距离N=0：U=0：Lbl2：Cls:A=ZN+1:B=ZN+2:E=ZN+3:C=ZN+4:D=ZN+5:F=ZN+6:PROR”H
2、FJH”:S=S+X:T=T+Y:U=U+1:N=N+3:NGoto 2 “x=”:s=sU“Y=”：TU注：以下为粗差检测，可能存在已知点不兼容或距离测错的情况。设距离限值为 2cm，如有粗差，可能会有多点反映出来，先找出差值最大点。N=0：U=0：Cls: Lbl 3:D=Pol(X-ZN+1,Y-ZN+2):Abs(D-ZN+30.02 =”JIAN CHA”:UN=N+3:NGoto 3“END”子程序：PROG “HFJH” （此程序为网上下载，两点后方交会）A“XA=”：B “YA=”：C “XB=“：D”YB= “：E”D1= “：F”D2=“：Q”-1 ，+1“ ：J=0：G=
3、POL（C-1 ，D-B ）：H=J+QCOS -1（GG+EE-FF）2 GE：X=A+ECOS H ：Y=B+ESIN H例：PROG“DDHFJH“RUNZ？ 41 注: 输入第一组数据 以下 XY 坐标须与上图换个X？ 219.3704Y? 142.1058D? 85.6912 注: 输入第二组数据X? 167.9893Y? 266.2424D? 79.4273 注: 输入第三组数据X? 72.0677Y? 226.5398D? 84.4494 注: 输入第四组数据X?131.9636Y?119.0519Z?72.129结果X 147.9095Y 189.3957“END”大家把某一点的坐标或距离调大一点(超过 3 公分), 再运行试试.
