-
大小: 5KB文件類(lèi)型: .zip金幣: 2下載: 0 次發(fā)布日期: 2021-06-02
- 語(yǔ)言: Matlab
- 標(biāo)簽:
資源簡(jiǎn)介
利用matlab進(jìn)行水準(zhǔn)網(wǎng)平差計(jì)算,matlab平差程序設(shè)計(jì)作業(yè)

代碼片段和文件信息
function?[X]?=?appro_elevation(H0msinf)
%==============================================
%function?[X]?=?appro_elevation(H0msinf)
%Calculate?approximate?elevation.
%Input:
%H0:???????the?dot?number?and?Initialized?elevation.
%msinf:???measurement?section?information.
%Output:
%X:?the?dot?number?and?approximate?elevation.
%==============================================
%調(diào)換測(cè)段起點(diǎn)和終點(diǎn)點(diǎn)號(hào),并把高差觀測(cè)值反號(hào),將原有測(cè)段信息與其上下拼接。
tt=[fliplr(msinf(?:?1:2))num2cell(-cell2mat(msinf(?:?3)))];
new_msinf=[msinf(?:?1:3);tt];
len=size(msinf1);
k=2*len;
X=H0;
%三次循環(huán)求未知點(diǎn)近似高程,直到所有點(diǎn)對(duì)應(yīng)高程值不為空。
while?search(X2)==1
????H0=X;
????for?i=1:len
??????????if?isnan(H0{i2})==1
?????????????????for?j=1:k
?????????????????????ww=new_msinf(j:k:);
?????????????????????pp=search(ww2H0{i1}1);
?????????????????????if?strcmp(pp‘undefinde‘)==1
?????????????????????????break;
?????????????????????end
?????????????????????
?????????????????????if?isnan(search(H01pp2))==0
?????????????????????????X{i2}=search(H01pp2)+search(ww2H0{i1}3);
?????????????????????????break;
?????????????????????end
?????????????????end
??????????end
????end
end
end
?屬性????????????大小?????日期????時(shí)間???名稱(chēng)
-----------?---------??----------?-----??----
?????文件????????1234??2018-11-30?16:49??appro_elevation.m
?????文件????????1234??2018-11-30?18:17??B_L.m
?????目錄???????????0??2018-12-01?14:53??data\
?????文件?????????149??2018-11-25?19:24??data\level?data.txt
?????文件?????????187??2018-11-29?21:55??data\level?data1.txt
?????文件????????3120??2018-11-30?18:21??data\level_result.txt
?????文件????????2532??2018-11-30?18:21??level_net_adjustment.m
?????文件????????1372??2018-11-30?16:25??search.m
評(píng)論
共有 條評(píng)論