导线网平差（Traverse adjustment）.docVIP

导线网平差（Traverse adjustment） This procedure is used to calculate single attachment (closed) and wire, and adopt the adjustment method of Angle. In the direction of observations The prior value of the error is the error in the unit weight. The calculated results can obtain the coordinate adjustment value of each fixed point and its point precision Mx, My, and M, and calculate the elliptic elements of the fixed point error E, F, Z The design of control grid adjustment program Beijing: atomic energy press, 2004.8 Data source: pan zheng feng et al. the principle and method of digital mapping. 186 page table 6-5 of wuhan university press Grade: the flat difference data used is the data of the head of the diagram (not very high). In this program, the total length of the azimuth and the length of the wire are relatively closed no, but considering the universality of the program, these limits are treated as annotations instead of actually running. Lack of program: no graphic representation of wire mesh. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Private I %, j %, n %, tc #, B_x! , B_y! , e1! , e2! , m! M0 #, z#, aa As Boolean, bb As Boolean, cc As Boolean, dd As Boolean Private Naa# (2, 2), the Naa inverse # (2, 2), w # (2), K# (2), qq# (2), fx# (2), fy# (2) Private # (), Q# (), V# (), (), c # mx# (), my# (), mk# (), e# (), f (), zz# () Private Po () As a Point File format description: The file format is detailed in the file adjustment data. Private Sub opens the file _Click () to open the file Dim ff $, 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 Cls CommonDialog1. DialogTitle = open data file CommonDialog1. FileName = CommonDialog1 ShowOpen Error handling On Error GoTo FileErr Ff = commondialog1.filename ff is the file pathname Open ff For Input As # 1 Open the file in sequential f