با سلام 
مدت هاست که به دنبال سورس کد KNN می گردم خودم تا حدودی مشکل را حل کردم اما یک جاهاییش به مشکل بر خوردم،متاسفانه خیلی وقتم را گرفته است ،اگر می تونید لطفا کمکم کنید.  روی کدزیر کار کردم اما هنوز دچار مشکل است ، اگر می توانید سورس کد KNN را از اول برایم بفرستید 
باتشکر فراوان از کمک شما
function test_data(:,2) = knn(test_data(1,

, tr_data,k)
numoftestdata = size(test_data,1);
numoftrainingdata = size(tr_data,1);
for sample=1:numoftestdata
   %Step 1: Computing euclidean distance for each testdata
   R = repmat(test_data(sample,

,numoftrainingdata,1) ;
   euclideandistance  = (R(:,1) - tr_data(:,1)).^2;
   %Step 2: compute k nearest neighbors and store them in an array
    [dist position] = sort(euclideandistance,'ascend');
    knearestneighbors=position(1:k);
    knearestdistances=dist(1:k);
    % Step 3 : Voting 
    for i=1:k
        A(i) = tr_data(knearestneighbors(i),2);  
    end
    M = mode(A);
    if (M~=1)
        test_data(sample,2) = mode(A);
    else 
        test_data(sample,2) = tr_data(knearestneighbors(1),2);
    end
end