Untitled

clc
clear all
close all
n = 20;
points = rand(n,2) * 10;
distances = zeros(n,n);

for i=1:n
    for j=1:n
        distances(i,j) = sqrt((points(i,1) - points(j,1))^2 + (points(i,2) - points(j,2))^2 );
    end
end

indextarget = 1;
pointtarget = points(indextarget,:);

mindistance = inf;
closetpointindex = -1;

for j=1:n
    if j ~=indextarget
        if distances(indextarget,j) < mindistance
            mindistance = distances(indextarget,j);
            closetpointindex = j;
        end
    end
end
disp('delkhah:');
disp(pointtarget);
disp('nazdiktarin noghte: ');
disp(points(closetpointindex, :));
disp('fasele:');
disp(mindistance);

xlswrite('distances.xlsx', distances);