基于matlab的水准网平差程序

基于matlab的水准网平差程序基于matlab的水准网平差程序基于matlab的水准网平差程序 水准网平差 解压文件 并运行leveling.m即可（安装M）

function [n1k]=changepiont（abpnn1）  % pn:所有点号  n1:起点终点点号
n=length（n1）;
k=0;
for（i=1:n）
    i1=0;
    for（j=1:ab）
        if（n1（i）==pn（j））
            i1=1;
            n1（i）=j;
            break;
        end
    end
    if（i1==0）
        k=1;
    end
end
return

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

     文件        290  2009-11-23 21:37  changepiont.m

     文件       4093  2009-12-05 21:22  leveling.m

----------- ---------  ---------- -----  ----

                 4383                    2