附和导线近似平差计算程序

《附和导线近似平差计算程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、附和导线近似平差计算程序P：A：B：I：J：K：L：Defm12P=P+2：N=0：M=AW=60√P÷3600LbI0N=N+1｛C｝Z[2N-1]=C：M=M+CM>180=>M=M-180：≠=>M=M+180⊿N＜P=>Goto0⊿F=M-B：F＞360=>F=F-360⊿F▲AbsF＜W=>F=-F÷P：≠=>GotoE⊿N=0：M=ALbI1N=N+1：M=M+Z[2N-1]+FM＞180=>M=M-180▲≠=>M=M+180▲⊿Z[2N-1]=MN＜P=>Goto1⊿N=0：M=0：G=0：H=

2、0：P=P-1LbI2N=N+1｛D｝：Z[2N]=D：M=M+DX=DcosZ[2N-1]：Y=DsinZ[2N-1]G=G+X：H=H+YZ[2N-1]=X：Z[2N]=YN＜P=>Goto2⊿G=G+I-K▲H=H+J-L▲T=√(G×G+H×H)▲Q=M÷T▲Q＞2000=>G=－G÷M：H=－H÷M：≠=>GotoE⊿N=0：X=I：Y=JLbI3N=N+1▲D=√(Z[2N-1]×[2N-1]+Z[2N]×[2N])V=Z[2N-1]+DG▲U=Z[2N]+DH▲X=X+V▲Y=Y+U▲Z[2N-1

3、]=X：Z[2N]=YN＜P=>Goto3⊿LbIE说明：1程序中Defm12是按4个未知点设置的，计算时要进行修改。如未知点数为n，修改数为2（n+2）。1：P输入未知点数2：A输入起点方位角3：输入终点方位角4：I，J输入起点坐标5：K，L输入终点坐标6：C从导线起点依次观测角7：F角度闭合差8：M导线第一边依次方位角平差值9：D导线第一边依次输边长10：G，H为（⊿X，⊿Y）导线闭合差11：T为导线绝对误差12：Q为导线相对闭合差分母，分子为113：N导线未知点数14：V，U为导线第一边坐标增量平差值15

4、：X，Y为导线未知点坐标平差值