findneibkpls.m

一个简单的pls程序吧

function [NearPos, NearDis] = findneibkpls(x,xt);
for j = 1 : size(x,1)
         Dis(j) = norm(xt - x(j,:),2);
end
d=12;
%排序计算相空间中第M点的(m+1)个参考邻近点
for i = 1 : (d + 1)
    NearDis(i) = Dis(i);
    NearPos(i) = i;
end

for i = (d + 2) : size(x,1) 
    for j = 1 : (d + 1)
        if (abs(i-j)>70) %& abs(i-j)<10*mtbp 
        if(Dis(i) < NearDis(j))
            NearDis(j) = Dis(i);
            NearPos(j) = i;
            break;
        end
        end
    end
end
% SortedDis = sort(NearDis);
% MinDis = SortedDis(1);
% %计算第M点的(m+1)个参考邻近点的权P[i]
% SumP = 0;
% for i = 1 : (d + 1)
%     P(i) = exp(-NearDis(i)/MinDis);
%     SumP = SumP + P(i);
% end
% P = P/SumP;