%平差值與精度評定
global??ed?dd??m1?m2?
global??c??uw0
global?pathname?net_name??a_datafile?
rddat2;
calcux0y0;
a_datafile=‘平差結(jié)果.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??導(dǎo)線網(wǎng)平差程序（最終）\adj.m

?????文件???????1794??2017-05-27?12:12??導(dǎo)線網(wǎng)平差程序（最終）\adjd.m

?????文件????????587??2017-05-26?17:51??導(dǎo)線網(wǎng)平差程序（最終）\adjs.m

?????文件???????1353??2017-05-27?09:18??導(dǎo)線網(wǎng)平差程序（最終）\adjxy.m

?????文件????????300??2017-06-05?21:53??導(dǎo)線網(wǎng)平差程序（最終）\alfa.m

?????文件????????389??2017-06-05?21:53??導(dǎo)線網(wǎng)平差程序（最終）\beta.m

?????文件???????4308??2017-05-26?16:59??導(dǎo)線網(wǎng)平差程序（最終）\calcux0y0.m

?????文件????????282??2017-05-25?21:46??導(dǎo)線網(wǎng)平差程序（最終）\chkdat.m

?????文件????????196??2017-05-05?11:14??導(dǎo)線網(wǎng)平差程序（最終）\dms_rad.m

?????文件?????????92??2017-05-29?10:05??導(dǎo)線網(wǎng)平差程序（最終）\editfile.m

?????文件???????1475??2017-05-31?14:32??導(dǎo)線網(wǎng)平差程序（最終）\ellipse.m

?????文件????????786??2017-05-05?12:14??導(dǎo)線網(wǎng)平差程序（最終）\invsqr.m

?????文件???????1051??2017-05-31?13:12??導(dǎo)線網(wǎng)平差程序（最終）\mainprogram.m

?????文件???????1285??2017-06-02?23:36??導(dǎo)線網(wǎng)平差程序（最終）\netzbild.m

?????文件???????3186??2017-05-27?09:58??導(dǎo)線網(wǎng)平差程序（最終）\obnorm.m

?????文件????????193??2017-05-05?12:17??導(dǎo)線網(wǎng)平差程序（最終）\rad_dms.m

?????文件???????3224??2017-05-31?00:09??導(dǎo)線網(wǎng)平差程序（最終）\rddat.m

?????文件???????2268??2017-05-26?21:49??導(dǎo)線網(wǎng)平差程序（最終）\rddat2.m

?????文件???????1627??2017-06-02?23:35??導(dǎo)線網(wǎng)平差程序（最終）\shuru.m

?????文件????????760??2017-05-27?11:05??導(dǎo)線網(wǎng)平差程序（最終）\trel.m

?????文件??????17381??2017-05-26?21:50??導(dǎo)線網(wǎng)平差程序（最終）\導(dǎo)線網(wǎng)數(shù)據(jù).txt

?????文件?????118989??2017-06-02?23:16??導(dǎo)線網(wǎng)平差程序（最終）\導(dǎo)線網(wǎng)數(shù)據(jù)平差結(jié)果.txt

?????文件??????10966??2017-06-02?23:16??導(dǎo)線網(wǎng)平差程序（最終）\導(dǎo)線網(wǎng)數(shù)據(jù)近似坐標(biāo).txt

?????文件??????20294??2017-06-02?23:16??導(dǎo)線網(wǎng)平差程序（最終）\導(dǎo)線網(wǎng)數(shù)據(jù)（備份）.txt

?????文件????????433??2017-05-26?21:50??導(dǎo)線網(wǎng)平差程序（最終）\控制網(wǎng)數(shù)據(jù).txt

?????文件???????4097??2017-05-27?12:07??導(dǎo)線網(wǎng)平差程序（最終）\控制網(wǎng)數(shù)據(jù)平差結(jié)果.txt

?????文件????????494??2017-05-27?12:07??導(dǎo)線網(wǎng)平差程序（最終）\控制網(wǎng)數(shù)據(jù)近似坐標(biāo).txt

?????文件????????433??2017-05-27?09:14??導(dǎo)線網(wǎng)平差程序（最終）\數(shù)據(jù)1.txt

?????文件???????4126??2017-06-02?23:38??導(dǎo)線網(wǎng)平差程序（最終）\數(shù)據(jù)1平差結(jié)果.txt

?????文件????????494??2017-06-02?23:38??導(dǎo)線網(wǎng)平差程序（最終）\數(shù)據(jù)1近似坐標(biāo).txt

............此處省略10個文件信息