matlab 水准网平差程序

利用matlab进行水准网平差计算，matlab平差程序设计作业

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.
%==============================================
%调换测段起点和终点点号，并把高差观测值反号，将原有测段信息与其上下拼接。
tt=[fliplr（msinf（ : 1:2））num2cell（-cell2mat（msinf（ : 3）））];
new_msinf=[msinf（ : 1:3）;tt];
len=size（msinf1）;
k=2*len;
X=H0;

%三次循环求未知点近似高程，直到所有点对应高程值不为空。
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

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件        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