
function  D=graph_dist_matrix(G)
   V=size(G,1);
   D=-ones(V);
   for k=1:V
      [tree1,tree2,dist]=spanning_tree(G,k);
      D(k,:)=dist;
   end % for k 
return
