Error in ploting the network graph?how to make the code run??

1 次查看（过去 30 天）

Sneha Kolapalli 2017-4-10

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/334690-error-in-ploting-the-network-graph-how-to-make-the-code-run

评论： Walter Roberson 2017-4-12

   n=10;
   L=5;
   B=4;
   A=[L B];
% non-overlap distance > 5
distinct_BOUND = 2;
Z = zeros(n,2);
T = rand(1,2).*A;
Z(1,:) = T;
for i = 2:n
    T = rand(1,2).*A;
    for j = 1:i-1        
        while pdist([T;Z(j,:)],'euclidean') < distinct_BOUND
            T = rand(1,2).*A;
        end
    end
    Z(i,:) = T;
end
   z=round(Z);
   x=z(:,1);
   y=z(:,2);
   d=zeros(n,n-1);
  % here we set the transmitting range tr=4
  tr=4;
  for i=1:n
      for j=(i+1):n
          Xi=x(i,:);
          Yi=y(i,:);
          Xj=x(j,:);
          Yj=y(j,:);
         X = [Xi,Yi;Xj,Yj];
   d(i,j) =round( pdist(X,'euclidean'));
      end
  end
N=round((n*n-1)/2)
s=zeros(1,N);
t=zeros(1,N);
weights=zeros(1,N);
    for i=1:n
    for j=(i+1):n
    if d(i,j)<tr
    k=1;    
    D(1,k)=d(i,j);
    s(1,k)=i;
    t(1,k)=j;      
    end
    k=k+1;
    end
    end
      G = graph(s,t,weights)
  figure(3)
  plot(G)