1#@!#!123s

: / proc / thread-self / root / usr / share / graphviz / gvpr /

Filename : knbhd

back

/* knbhd - Return the k-neighborhood of a node, i.e., allnodes
 * whose path length from the given node is <= k.
 * ARGV[] = k node_name
 */
BEG_G {
  node_t  ctr;
  int     maxlen;

  graph_t comp = subg($, "kcomp");
  int     sid = 0, eid = 0;
  int     curlen;
  node_t  curnode;
  int     nlen[node_t];
  node_t  stk[int];
  node_t  other;
  edge_t  e;

  if (ARGC != 2) {
    printf (2, "Two arguments required\n");
    exit(1);
  }

  if (!sscanf(ARGV[0],"%d",&maxlen)) {
    printf (2, "Improper length parameter \"%s\"\n", ARGV[0]);
    exit(1);
  }
  maxlen++; /* length of 0 means unset */

  ctr = isNode ($, ARGV[1]);
  if (!ctr) {
    printf (2, "node %s not found\n", ARGV[1]);
    exit(1);
  }

  subnode (comp,ctr);
  nlen[ctr] = 1;
  curnode = ctr;
  while (curnode) {
    curlen = nlen[curnode];
    if (curlen == maxlen) break;
    
    for (e = fstedge(curnode); e; e = nxtedge(e,curnode)) {
      other = e.head;
      if (other == curnode) other = e.tail;
      if (nlen[other]) continue; /* already seen */
      subnode(comp,other);
      nlen[other] = curlen+1;
      stk[eid++] = other;
    }

    if (sid < eid) curnode = stk[sid++];
    else curnode = NULL;
  }
  
  induce(comp);
  write(comp);
}

Name	Size	Last Modified	Owner	Permissions
addedges	0.284 KB	April 06 2024 12:47:07	root	0644
addranks	0.811 KB	April 06 2024 12:47:07	root	0644
addrings	1.288 KB	April 06 2024 12:47:07	root	0644
anon	0.412 KB	April 06 2024 12:47:07	root	0644
attr	0.147 KB	April 06 2024 12:47:07	root	0644
bb	0.974 KB	April 06 2024 12:47:07	root	0644
bbox	0.52 KB	April 06 2024 12:47:07	root	0644
binduce	1.139 KB	April 06 2024 12:47:07	root	0644
bipart	0.444 KB	April 06 2024 12:47:07	root	0644
chkclusters	0.52 KB	April 06 2024 12:47:07	root	0644
chkedges	0.895 KB	April 06 2024 12:47:07	root	0644
cliptree	0.174 KB	April 06 2024 12:47:07	root	0644
col	0.587 KB	April 06 2024 12:47:07	root	0644
collapse	0.458 KB	April 06 2024 12:47:07	root	0644
color	1.406 KB	April 06 2024 12:47:07	root	0644
cycle	0.547 KB	April 06 2024 12:47:07	root	0644
dechain	0.258 KB	April 06 2024 12:47:07	root	0644
deghist	0.343 KB	April 06 2024 12:47:07	root	0644
deledges	0.113 KB	April 06 2024 12:47:07	root	0644
delmulti	0.388 KB	April 06 2024 12:47:07	root	0644
delnodes	0.243 KB	April 06 2024 12:47:07	root	0644
depath	0.534 KB	April 06 2024 12:47:07	root	0644
dijkstra	0.632 KB	April 06 2024 12:47:07	root	0644
flatten	0.086 KB	April 06 2024 12:47:07	root	0644
get-layers-list	0.271 KB	April 06 2024 12:47:07	root	0644
group	0.772 KB	April 06 2024 12:47:07	root	0644
histogram	0.312 KB	April 06 2024 12:47:07	root	0644
indent	0.369 KB	April 06 2024 12:47:07	root	0644
knbhd	1.197 KB	April 06 2024 12:47:07	root	0644
maxdeg	0.3 KB	April 06 2024 12:47:07	root	0644
path	0.438 KB	April 06 2024 12:47:07	root	0644
rotate	1.166 KB	April 06 2024 12:47:07	root	0644
scale	1.12 KB	April 06 2024 12:47:07	root	0644
scalexy	1.097 KB	April 06 2024 12:47:07	root	0644
span	0.136 KB	April 06 2024 12:47:07	root	0644
topon	0.419 KB	April 06 2024 12:47:07	root	0644
treetoclust	0.965 KB	April 06 2024 12:47:07	root	0644

2017 © D7net \| D704T team