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

flashfishoo

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

chengjohn

用佛洛依德算法

zjqylcy

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

88静☆峰☆禅88

好东西很有用

xidianzxc

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

wssl103050

用图论算法就可以了  

Wait-wait!

图论算法
$ B% u6 @2 z. U: m, D' ]0 XFLOYED算法

( F% l5 ?* M; B# h+ p0 z设A为一个权矩阵 A=(Aij)nxn, dij表示vivj长度 rij 表示 vi到vj点钟的最短路中的一个点的编号
步骤
! o$ H, g  |( N; _. I7 G/ h
) U% e4 P4 B0 d# X/ }0 y, n一：赋初值。 dij=aij, rij=j k=1
二： 若 dik+dkj <dij 则 dj=dik+dkj, rij=k
三：若 k=n 则终止 否则领k=n+1
5 g7 m; f- C, b5 u2 Y
: ]2 x+ x# w( v- w$ Q3 R说白了就是，把所有点的距离计算一下 一个一个比较

flashfishoo

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

flashfishoo

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

梦天涯M

data=xlsread('E:\point');
n=size(data);
mindistance=(data(1,1)-data(2,1))^2+(data(1,2)-data(2,2))^2;
first=1;
second=2;
% k9 z" b% ?: H( vfor 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;
4 _+ l4 n! v' D0 w4 d6 O        if (distance<mindistance)
            mindistance=distance;
& G/ E7 B* [% k) e4 ]6 M            first=i;
: s" b8 T& P1 ~& N2 c            second=j;
- U, S6 T$ z; ]$ E0 p        end
    end
. d9 O) m7 E2 G, Jend
( Z( E, ~1 C& p# p* Sdisp(['最短距离为',num2str(sqrt(mindistance)),'     第一个点所在行',num2str(first),'     第二个点所在行',num2str(second)]);
' A+ r, @+ P4 ^6 q3 D            
0 @) v. m* M. p) d: M        
        
9 ]$ a/ Z7 c+ d$ |5 l