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

flashfishoo

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

chengjohn

用佛洛依德算法

zjqylcy

很简单么
6 u) m0 G3 p) h, g1 d( u9 o# a0 u  算出所有两点间的距离 估计是个15*15的上三角矩阵 然后找到一个最小的就OK了

88静☆峰☆禅88

好东西很有用

xidianzxc

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

wssl103050

用图论算法就可以了  

Wait-wait!

图论算法
4 \! A- e# j0 E8 w1 ^FLOYED算法

设A为一个权矩阵 A=(Aij)nxn, dij表示vivj长度 rij 表示 vi到vj点钟的最短路中的一个点的编号
. p+ m) Z% O9 |* |, z步骤

一：赋初值。 dij=aij, rij=j k=1
二： 若 dik+dkj <dij 则 dj=dik+dkj, rij=k
; S0 ?5 V! H& z, c+ e三：若 k=n 则终止 否则领k=n+1

% G+ N+ J7 \' }- }% W, _, C6 [# [说白了就是，把所有点的距离计算一下 一个一个比较

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;
for i=1n(1,1)-1)
    for j=(i+1):n(1,1)
( O- p$ [3 b; l. K2 ~1 _/ L        distance=(data(i,1)-data(j,1))^2+(data(i,2)-data(j,2))^2;
: `0 o4 y' r3 ?6 J: R        if (distance<mindistance)
            mindistance=distance;
( I, b. [3 x8 X$ {- c* `2 ~            first=i;
0 g& G' O  s. a) J, t            second=j;
        end
% {0 ^3 Y) H& ?) M    end
3 W0 K$ H% q- p- Q  w/ O' H+ Tend
disp(['最短距离为',num2str(sqrt(mindistance)),'     第一个点所在行',num2str(first),'     第二个点所在行',num2str(second)]);
. \3 D) B- ^/ e& g! Y- c            
, f8 V3 s: L0 M1 _, d        
        
: m7 |9 C5 n: V# Z        
$ I% e; K* J# Y