导线网平差_原创文档.pdfVIP

导线网平差--第1页

导线网平差.txt老子忽悠孩子叫教育，孩子忽悠老子叫欺骗，互相忽悠叫代沟。▲男人

这花花世界，我要用什么颜色来吸引你。

***************************************************************************

********

本程序用于单一附（闭）合导线严密平差计算，采用按角度条件平差法。以方向观测值

中

误差的先验值作为单位权中误差。计算结果可求得各待定点的坐标平差值及其点位精度Mx，

My，

及M，并计算出各待定点误差椭圆元素E，F，Z

参考文献：郭久训．《控制网平差程序设计》北京：原子能出版社，2004．8

平差数据来源：潘正风等．《数字测图原理与方法》武汉大学出版社186页表6-5

等级：所用平差数据为首级图根导线数据（精度很不高）。本程序中写出了方位角和导线全

长相对闭合差的判

别，但考虑到程序的通用性，将这些限差判断当作了注释处理，而不实际运行。

程序不足：没有导线网的图形表达。

*******************************************************************************

****

Privatei%,j%,n%,tc#,tb#,B_x!,B_y!,e1!,e2!,m!,m0#,z#,aaAsBoolean,bb

AsBoolean,ccAsBoolean,ddAsBoolean

PrivateNaa#(2,2),Naa逆#(2,2),W#(2),K#(2),qq#(2),fx#(2),fy#(2)

PrivateA#(),Q#(),V#(),C#(),mx#(),my#(),mk#(),e#(),f#(),zz#()

PrivatePo()AsPoint

文件格式说明：

文件格式详见文件平差数据

PrivateSub打开文件_Click()打开文件

Dimff$,temp$,A_name$,A_x!,A_y!,A_l#,A_s!,B_name$,B_l#,C_name$,C_x!,

C_y!,D_name$,D_x!,D_y!

Form1.Cls清屏

打开数据文件

CommonDialog1.ShowOpen

出错处理

OnErrorGoToFileErr

导线网平差--第1页

导线网平差--第2页

ff=CommonDialog1.FileNameff是文件路径名

OpenffForInputAs#1以顺序文件方式打开文件，使用input

LineInput#1,temp读取文件中的说明语句

LineInput#1,temp读取文件中的说明语句

LineInput#1,temp读取文件中的说明语句

Input#1,n