clear
clc

A=xlsread('C:\Documents and Settings\Administrator\桌面\B\zuobiao');
C=xlsread('C:\Documents and Settings\Administrator\桌面\B\qizhibiaohao') ;
%n=input('输入站点个数n=')
n=100；

DD=zeros(n,n)+inf;

for i=1:n
    P=find(A(:,1)==i);
    leng=length(P);
   
    for j=1:leng
        k=P(j);
        m=C(k,2);
        DD(i,m)= sqrt( (A(i,2)-A(m,2))^2+ (A(i,3)-A(m,3))^2   );
        DD(m,i)=DD(i,m);
    end
   
end