style.m

来自「利用ＭＡＴＬＡＢ实现了对测量中的平面网」· M 代码 · 共 31 行

%====导线类型的判断及闭合差求解,置于主函数中调用====
n=size(cpp1,2);
for i=1:n
    site=cpp1(i);
    for j=1:ed
        kdir1=0;
        if j~=site(1) & j~=site(end)
            [dir1,kdir1]=finddir(site(1),j,hg,f,dir,si,ni);
            if kdir1==1
                k1=j;
                break;
            end
        end
    end
    for j=1:ed
        kdir2=0;
        if j~=site(1) & j~=site(end)
            [dir2,kdir2]=finddir(site(end),j,hg,f,dir,si,ni);
            if kdir2==1
                k2=j;
                break;
            end
        end
    end
    k=kdir1+kdir2;
    if k==0
        [closediff,err]=orientleed(3,site,si,ni,pn,e,d,sid,g,f,dir,x0,y0);
    elseif k==1
        [closediff,err]=orientleed(2,site,si,ni,pn,e,d,sid,g,f,dir,x0,y0);
    else
        [closediff,err]=orientleed(1,site,si,ni,pn,e,d,sid,g,f,dir,x0,y0);