水准网平差程序MATLAB

MATLAB 水准测量程序 ，符合一定的格式便可以进行程序计算与平差

function [okptTablineTab]=caculateH0（ptTablineTablineIndex）
                                                %输入参数lineIndex为起算边序号
lbname=lineTab（lineIndex2）;%起算边起点点名
lename=lineTab（lineIndex3）;%起算边终点点名
lhh=lineTab（lineIndex4）;%读取该边的高差观测值
lbindex=nameToindex（lbnameptTab）;%获取起点点序号
leindex=nameToindex（lenameptTab）;%获取终点点序号
lbH=ptTab（lbindex2）;%获取起点点标志
leH=ptTab（leindex2）;%获取终点点标志
if lbH==0 && leH~=0  %利用已知点标志来判断，如起点是未知点
                     %这里有两个参数nextpt和finishpt前者是相邻边的已知点，可以帮助查找相邻边。
                     %后者是概略高程已知点的序号，目的是防止在查找相邻边时查找到当前边
    ptTab（lbindex2）=ptTab（leindex2）-lhh;
    nextpt=lbindex;
    finishpt=leindex;
else               
    if lbH~=0 && leH==0 %如起点是已知点，终点是未知点，则计算概略高程
        ptTab（leindex2）=ptTab（lbindex2）+lhh;
        nextpt=leindex;
        finishpt=lbindex;
    else
                         %如果起点和未知概率高程已经计算完毕，则退出该子程序
                         %程序返回true值
        ok=true;
        return;
    end
end
                           %以下代码继续查找相邻边，相邻边特征是一点点序号为
                           %nextpt而另一点点序号不是finishpt。
[rowcol]=size（lineTab）;
nextbegin=0;
for i=1:row
    if lineTab（i2）==nextpt && finishpt~=lineTab（i3）
        nextbegin=i;%第i条边起点点序号是nextpt，而末点点序号
                    %不是finishpt
        break;
    else
        if lineTab（i3）==nextpt && finishpt~=lineTab（i2）
           nextbegin=i;%第i条边末点点序号是nextpt，而末点点序号
                    %不是finishpt
           break; 
        end
    end
end
ok=true;
if nextbegin~=0
    [okptTablineTab]=caculateH0（ptTablineTablineIndex）;
end
    
        
        
    
    

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

     文件       1878  2013-03-18 11:58  水准网平差程序\caculateH0.m

     文件        889  2013-03-17 21:06  水准网平差程序\getBegin.m

     文件        681  2013-03-17 21:00  水准网平差程序\getH0.m

     文件       1467  2013-03-18 18:48  水准网平差程序\getV.m

     文件        444  2013-03-17 21:13  水准网平差程序\hok.m

     文件        349  2013-03-17 20:21  水准网平差程序\isContr.m

     文件       9181  2013-03-18 19:13  水准网平差程序\lineTab.xlsx

     文件        161  2013-03-17 20:23  水准网平差程序\nameToindex.m

     文件       9157  2013-03-18 19:07  水准网平差程序\ptTab.xlsx

     文件        754  2013-03-18 19:37  水准网平差程序\水准测量平差主程序.m

     目录          0  2013-03-29 16:16  水准网平差程序

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

                24961                    11