附合导线近似平差（转贴）给大家参考

chenxin360

附合导线近似平差（转贴）给大家参考
附合导线近似平差
L1
C=0:A>9TDefm 2(A－9△Lbl l:C=C+1:{I}rog 3:A[C+8]=D:C≠AT

Goto 1△{B}rog B:B=D－B=B/Arog C▲C=0
L2
Lbl 2:C=C+1:A[C+8]=A[C+8]－DC:B=A[C+8rog C▲C≠ATGoto 2△C=

8=0:E=0:F=0
L3
Lbl 3:C=C+1:{B}=D+B:E=E+Bcos A[C:F=F+Bsin A[C:A[A+C] =B:C≠

A +7TGoto 3△D▲{BI}:BGHI:E=E+B－H▲F=F+G－I▲D/√(E2+F2▲E=E/D

:F=F /D
L4
C=8bl 4:C=C+1:B=A[A+C]cos A[C]+B－EA[A+C▲G=A[A+C] sin A[C]

+G－FA[A+C▲C≠A+7TGoto4△Defm 0
     



说明：①程序10用以单一附合导线的近似平差计算；

②程序中：A=测站数、B=起算边坐标方位角、附合边坐标方位角、导线边边长、起点纵坐标、I=观测角(左角)、终点横坐标、G=起点横坐标、H=终点纵坐标；

③程序设计可以计算9个测站，大于是9站时只要计算器剩余有步骤数，程序会自动扩充储存器增加储存变量；

④算例如表：按Prog 10调用程序显示A？输入测站数5，按EXE键、显示B？输入起算边的坐标方位角169.5359，按EXE键、显示I？输入B点的观测角93.3642，按EXE键、显示I？输入C点的观测角179.56，依次输入各观测角…，按EXE键、显示B？输入附合边的坐标方位角250.06，按EXE键、显示导线的角度闭合差－0.003699999(－37″)，按EXE键、显示平差后B点至C点的坐标方位角83.30484，按EXE键依次显示各导线边平差后的坐标方位角…，按EXE键、显示B？输入B点至C点的边长126.11，按EXE键、显示B？依次输入各导线边的边长…，按EXE键、显示各边长之和508.96，按EXE键、显示B？输入起点纵坐标801.53，按EXE键、显示G？输入起点横坐标724.84，按EXE键、显示H？输入终点纵坐标959.29，按EXE键、显示I？输入终点横坐标1158.41，按EXE键、显示纵坐标闭合差0.093449934，按EXE键、显示横坐标闭合差－0.02045631，按EXE键、显示导线全长相对闭合差5320.360577(K=1/5320)，按EXE键、显示C点纵坐标815.754，按EXE键、显示C点横坐标850. 148，按EXE键依次显示D、E、F、G点的纵横坐标。