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

flashfishoo

6 b# r1 ]1 K& J+ h5 R帮帮忙啊，就在这些点中求最短两点间距离？（最短的距离）

chengjohn

用佛洛依德算法

zjqylcy

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

88静☆峰☆禅88

好东西很有用

xidianzxc

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

wssl103050

用图论算法就可以了  

Wait-wait!

图论算法
FLOYED算法
$ N/ b/ m$ h5 {5 M, U8 T1 O( G1 t
设A为一个权矩阵 A=(Aij)nxn, dij表示vivj长度 rij 表示 vi到vj点钟的最短路中的一个点的编号
- t$ I7 ^& |1 P: A# j; y/ P步骤

5 R" c+ v1 @4 b- `8 |% G( t一：赋初值。 dij=aij, rij=j k=1
5 f& m0 {. Y2 m+ w5 o8 _7 ?二： 若 dik+dkj <dij 则 dj=dik+dkj, rij=k
三：若 k=n 则终止 否则领k=n+1
+ {1 o" ?* A' N  F  R
0 E* u" d" o2 w) `' S说白了就是，把所有点的距离计算一下 一个一个比较

flashfishoo

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

flashfishoo

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

梦天涯M

data=xlsread('E:\point');
n=size(data);
! m2 [9 _1 I9 ^2 e: v) l3 p* f! T; Cmindistance=(data(1,1)-data(2,1))^2+(data(1,2)-data(2,2))^2;
, B/ }4 [3 d$ G# B0 zfirst=1;
second=2;
for 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)
            mindistance=distance;
$ ~: ]& r. ~% W4 `4 O            first=i;
. q5 x, T5 b4 I4 d            second=j;
        end
    end
3 I3 `4 }- D; Y9 Q: O/ fend
6 {9 |) K% T6 q0 xdisp(['最短距离为',num2str(sqrt(mindistance)),'     第一个点所在行',num2str(first),'     第二个点所在行',num2str(second)]);
- R$ ?* v  ]$ X$ u            
4 w0 n" u/ r& z        
        
- [  c- J( `2 l" h; Z