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

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

举报
开通vip

附和导线近似平差计算程序附和导线近似平差计算程序P:A:B:I:J:K:L:Defm12 P=P+2:N=0:M=A W=60√P÷3600 LbI0 N=N+1 {C} Z[2N-1]=C:M=M+C M>180=>M=M-180:≠=>M=M+180⊿ NGoto0⊿ F=M-B:F>360=>F=F-360⊿F▲ AbsFF=-F÷P:≠=>Goto E⊿ N=0:M=A LbI1 N=N+1:M=M+Z[2N-1]+F M>180=>M=M-180▲ ≠=>M=M+180▲⊿ Z[2N-1]=M ...

附和导线近似平差计算程序
附和导线近似平差计算程序P:A:B:I:J:K:L:Defm12 P=P+2:N=0:M=A W=60√P÷3600 LbI0 N=N+1 {C} Z[2N-1]=C:M=M+C M>180=>M=M-180:≠=>M=M+180⊿ NGoto0⊿ F=M-B:F>360=>F=F-360⊿F▲ AbsFF=-F÷P:≠=>Goto E⊿ N=0:M=A LbI1 N=N+1:M=M+Z[2N-1]+F M>180=>M=M-180▲ ≠=>M=M+180▲⊿ Z[2N-1]=M NGoto1⊿ N=0:M=0:G=0:H=0:P=P-1 LbI2 N=N+1 {D}:Z[2N]=D:M=M+D X=DcosZ[2N-1]:Y=DsinZ[2N-1] G=G+X:H=H+Y Z[2N-1]=X:Z[2N]=Y NGoto2⊿ G=G+I-K▲H=H+J-L▲ T=√(G×G+H×H)▲ Q=M÷T▲ Q>2000=>G=-G÷M:H=-H÷M:≠=>Goto E⊿ N=0:X=I:Y=J LbI3 N=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]=X:Z[2N]=Y NGoto3⊿ LbI E 说明: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为导线相对闭合差分母,分子为1 13:N导线未知点数 14:V,U为导线第一边坐标增量平差值15:X,Y为导线未知点坐标平差值
本文档为【附和导线近似平差计算程序】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
下载需要: 免费 已有0 人下载
最新资料
资料动态
专题动态
is_633423
暂无简介~
格式:doc
大小:13KB
软件:Word
页数:4
分类:金融/投资/证券
上传时间:2019-01-26
浏览量:110