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

flashfishoo

) ~% D5 p# U& b; |5 x! T$ V帮帮忙啊，就在这些点中求最短两点间距离？（最短的距离）

chengjohn

用佛洛依德算法

zjqylcy

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

88静☆峰☆禅88

好东西很有用

xidianzxc

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

wssl103050

用图论算法就可以了  

Wait-wait!

图论算法
1 S& a4 _* |! T) o9 XFLOYED算法
- f- Q7 \% D/ w3 p7 E8 P- f, E$ r
2 v( w$ I  b3 j! X# s3 t1 s设A为一个权矩阵 A=(Aij)nxn, dij表示vivj长度 rij 表示 vi到vj点钟的最短路中的一个点的编号
7 e4 M+ l/ `, v! S步骤
( U" r& r" n! K% ?% Y  R) o( l$ Y' P
一：赋初值。 dij=aij, rij=j k=1
: I* {# ]- D: ]4 T2 L二： 若 dik+dkj <dij 则 dj=dik+dkj, rij=k
三：若 k=n 则终止 否则领k=n+1

说白了就是，把所有点的距离计算一下 一个一个比较

flashfishoo

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

flashfishoo

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

梦天涯M

data=xlsread('E:\point');
! L3 _+ R" T' h2 x4 D2 v! Bn=size(data);
mindistance=(data(1,1)-data(2,1))^2+(data(1,2)-data(2,2))^2;
first=1;
second=2;
for i=1n(1,1)-1)
& O) k, w+ N  b( S" d3 f# j% n    for j=(i+1):n(1,1)
  i" w$ [; x4 d8 O* n( ]        distance=(data(i,1)-data(j,1))^2+(data(i,2)-data(j,2))^2;
        if (distance<mindistance)
            mindistance=distance;
            first=i;
4 v, Q0 S/ D- U) e( v            second=j;
* _5 F( }+ ^4 e2 w2 J+ n* m        end
/ l7 {! k0 S; \4 \6 K: ]/ B! v5 r    end
* G* X0 |: q/ ^0 `end
disp(['最短距离为',num2str(sqrt(mindistance)),'     第一个点所在行',num2str(first),'     第二个点所在行',num2str(second)]);
0 ~+ y9 Z) O- ~: {1 _            
, Z3 p; K& j0 G' f1 ]        
7 b0 B5 y" I! S. t- q$ y