基于MATLAB的导线网平差程序

本资源为17年的毕业设计成果。程序完全正确，可成功运行，直接运行mainprogram就行。WX同号，有问题可以W。

%平差值与精度评定
global  ed dd  m1 m2 
global  c  uw0
global pathname net_name  a_datafile 
rddat2;
calcux0y0;
a_datafile=‘平差结果.txt‘;
fit2=fopen（strcat（pathnamenet_namea_datafile）‘wt‘）;
if（fit2==-1）
    msgbox（‘输入文件或路径不正确‘‘Warning‘‘warn‘）;
    return;
end          
k=1;
while（k）
	m=m1+m2;
	obnorm;
	c=invsqr（c2*dd）;
	[uw0k]=adjxy（fit2）;
end
ellipse（uw0fit2）
n=2*dd;
sum=n*（n+1）/2.0;
n1=2*（ed+dd）;
sum1=n1*（n1+1）/2.0;
for i=sum1:-1:sum1-sum+1
    c（i）=c（i-（sum1-sum））;
end
for i=1:2*ed
     di=（i-1）*（n1-i/2.0）;
     for j=i:n1
          if（j==i）
              c（di+j）=0.00000001;
          else
              c（di+j）=0.0;
          end
     end
end
if（m1>0）
    adjs（uw0fit2）;
end
if（m2>0）
    adjd（uw0fit2）;
end
fclose（fit2）;
open（strcat（pathnamenet_namea_datafile））;
return

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        848  2017-05-27 12:15  导线网平差程序（最终）\adj.m

     文件       1794  2017-05-27 12:12  导线网平差程序（最终）\adjd.m

     文件        587  2017-05-26 17:51  导线网平差程序（最终）\adjs.m

     文件       1353  2017-05-27 09:18  导线网平差程序（最终）\adjxy.m

     文件        300  2017-06-05 21:53  导线网平差程序（最终）\alfa.m

     文件        389  2017-06-05 21:53  导线网平差程序（最终）\beta.m

     文件       4308  2017-05-26 16:59  导线网平差程序（最终）\calcux0y0.m

     文件        282  2017-05-25 21:46  导线网平差程序（最终）\chkdat.m

     文件        196  2017-05-05 11:14  导线网平差程序（最终）\dms_rad.m

     文件         92  2017-05-29 10:05  导线网平差程序（最终）\editfile.m

     文件       1475  2017-05-31 14:32  导线网平差程序（最终）\ellipse.m

     文件        786  2017-05-05 12:14  导线网平差程序（最终）\invsqr.m

     文件       1051  2017-05-31 13:12  导线网平差程序（最终）\mainprogram.m

     文件       1285  2017-06-02 23:36  导线网平差程序（最终）\netzbild.m

     文件       3186  2017-05-27 09:58  导线网平差程序（最终）\obnorm.m

     文件        193  2017-05-05 12:17  导线网平差程序（最终）\rad_dms.m

     文件       3224  2017-05-31 00:09  导线网平差程序（最终）\rddat.m

     文件       2268  2017-05-26 21:49  导线网平差程序（最终）\rddat2.m

     文件       1627  2017-06-02 23:35  导线网平差程序（最终）\shuru.m

     文件        760  2017-05-27 11:05  导线网平差程序（最终）\trel.m

     文件      17381  2017-05-26 21:50  导线网平差程序（最终）\导线网数据.txt

     文件     118989  2017-06-02 23:16  导线网平差程序（最终）\导线网数据平差结果.txt

     文件      10966  2017-06-02 23:16  导线网平差程序（最终）\导线网数据近似坐标.txt

     文件      20294  2017-06-02 23:16  导线网平差程序（最终）\导线网数据（备份）.txt

     文件        433  2017-05-26 21:50  导线网平差程序（最终）\控制网数据.txt

     文件       4097  2017-05-27 12:07  导线网平差程序（最终）\控制网数据平差结果.txt

     文件        494  2017-05-27 12:07  导线网平差程序（最终）\控制网数据近似坐标.txt

     文件        433  2017-05-27 09:14  导线网平差程序（最终）\数据1.txt

     文件       4126  2017-06-02 23:38  导线网平差程序（最终）\数据1平差结果.txt

     文件        494  2017-06-02 23:38  导线网平差程序（最终）\数据1近似坐标.txt

............此处省略10个文件信息