如何求一群点中最短两点间距离？

flashfishoo

帮帮忙啊，就在这些点中求最短两点间距离？（最短的距离）

chengjohn

用佛洛依德算法

zjqylcy

很简单么
  算出所有两点间的距离 估计是个15*15的上三角矩阵 然后找到一个最小的就OK了

88静☆峰☆禅88

好东西很有用

xidianzxc

用弗洛伊德算法吧，很好用的

wssl103050

用图论算法就可以了  

Wait-wait!

图论算法
FLOYED算法

设A为一个权矩阵 A=(Aij)nxn, dij表示vivj长度 rij 表示 vi到vj点钟的最短路中的一个点的编号
1 W. t4 T7 K5 F, d- T步骤

+ X2 }: K% k$ c一：赋初值。 dij=aij, rij=j k=1
" N4 D- ], x, c; M3 O; [二： 若 dik+dkj <dij 则 dj=dik+dkj, rij=k
' u# w6 P' C, e" n0 P& |& U7 }三：若 k=n 则终止 否则领k=n+1

9 T  V! J' C" g9 k6 b说白了就是，把所有点的距离计算一下 一个一个比较

flashfishoo

以后多多分享 以后多多分享

flashfishoo

谢了哈！谢了哈！谢了哈！

梦天涯M

data=xlsread('E:\point');
# ^0 w: {/ F4 On=size(data);
3 [2 D0 Q' j" l, q+ O4 n( tmindistance=(data(1,1)-data(2,1))^2+(data(1,2)-data(2,2))^2;
first=1;
second=2;
( w1 X/ B% A) t1 Z# m6 i. R5 U- F) Rfor i=1n(1,1)-1)
    for j=(i+1):n(1,1)
        distance=(data(i,1)-data(j,1))^2+(data(i,2)-data(j,2))^2;
        if (distance<mindistance)
& a  a8 h3 A, Z/ d4 k, I: [% y            mindistance=distance;
/ l% P. q" g3 s$ q7 G& N+ H8 q( I5 X            first=i;
            second=j;
& n- p: d2 T8 M4 u9 U6 V0 s        end
( t$ o: ^6 e! J    end
4 N" n2 p/ S9 X) f- O; Aend
disp(['最短距离为',num2str(sqrt(mindistance)),'     第一个点所在行',num2str(first),'     第二个点所在行',num2str(second)]);
            
        
        
& y1 K$ b) Y2 B' r) s        
  L) `# K% h2 u& {; b! H2 r