fnn.rar_FNN_neighbors

%function [nearpoint,nearpos]=knn_deneme(Y,x0,k) % clear all; x=x_1;%sin(0:.2:8*pi)' + .1*randn(126,1); tao=1; N=length(x); Ra=var(x); mmax=10; FNN_1=zeros(mmax,1); m=2; % for m=1:mmax M=N-(m-1)*tao; Y_1=psr_deneme(x,m,tao); %FNN_1(m,1)=0; for n=1:M y0=ones(M,1)*Y_1(n,:); distance_1=sqrt(sum((Y_1-y0).^2,2));%m. boyuttaki uzakliklar [neardis nearpos]=sort(distance_1); sonucben(:,n)=[nearpos(2); nearpos(3)]; % ind=find(abs(n-nearpos) >= 0.0031);%2.6=1/median freq % ind=min(ind); % if n <= N-m*tao && nearpos(2) <= N-m*tao % D=abs(x(n+m*tao)-x(nearpos(2)+m*tao));%m+1. koordinat % % if n < M && nearpos(2) < M % % D=abs(x(n+m)-x(nearpos(2)+m)); % R=sqrt(neardis(2)^2+D^2); % if D/neardis(2) > 15 || R/Ra >= 2 % FNN_1(m,1)=FNN_1(m,1)+1; % end % end end % end % figure % plot(1:length(FNN_1),FNN_1) % title('ben')