Demo entry 6687957

1

   

Submitted by anonymous on Jan 01, 2018 at 04:10
Language: Matlab. Code size: 736 Bytes.

clear;
clc;
disp('---现在开始水准网间接平差---');
%选择数据数据
[name,path]=uigetfile('*.xls','选择数据文件');
filepath=strcat(path,name);
%读取xls文件中的数据并返回
[unKnownP,numP,obNum,elevation,distance,kPH,obMatrix,pName,obName]=readxls(filepath); 
%进行平差及精度评定
[kPH,allx,V,correctH,correctE,aSigmaH,sigmaC]=solveAdjustment(unKnownP,numP,obNum,elevation,distance,kPH,obMatrix);
%输出简略结果
disp('---高程平差值为:');
result=strcat(pName,'---',num2str(correctH));
disp(result);
disp('---详细数据请保存后查看.');
option=input('***是否保存到Excel文件(y/n)?');
if strcmp(option,'y');
	%将平差结果保存至Excel文件
    writexls(path,pName,kPH,allx,correctH,aSigmaH,obName,elevation,V,correctE,sigmaC);
    disp('---已保存到result.xls。');
else
    disp('---未保存数据。');
end
disp('---平差结束,感谢使用.');

This snippet took 0.01 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).