chkdat.m

利用ＭＡＴＬＡＢ实现了对测量中的平面网

function [n1,k]=chkdat(sd,pn,n1)
n=length(n1);
k=0;
for i=1:n
    i1=0;
    for j=1:sd
        if(n1(i)==pn(j))
            i1=1;
            n1(i)=j;
            break;
        end
    end
    if(i1==0)
%         fprintf(fit2,'%5d %5d\n',i,n1(i));
        k=1;
    end
end
return