summaryrefslogtreecommitdiff
path: root/support/graphbase/book_components.w
blob: 854c140f10be9a2c95f771e67528fbb7e2fe6fa3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
% This file is part of the Stanford GraphBase (c) Stanford University 1992
\def\title{BOOK\_\kern.05emCOMPONENTS}
@i boilerplate.w %<< legal stuff: PLEASE READ IT BEFORE MAKING ANY CHANGES!
\def\<#1>{$\langle${\rm#1}$\rangle$}

\prerequisite{GB\_\thinspace BOOKS}
@* Bicomponents. This demonstration program computes the
biconnected components of GraphBase graphs derived from world literature,
using a variant of Hopcroft and Tarjan's algorithm [R. E. Tarjan, ``Depth-first
search and linear graph algorithms,'' {\sl SIAM Journal on Computing\/
\bf1} (1972), 146--160]. Articulation points and ordinary (connected)
components are also obtained as byproducts of the computation.

Two edges belong to the same  biconnected component---or ``bicomponent''
for short---if and only if they are identical or both belong to a
simple cycle. This defines an equivalence relation on edges.
The bicomponents of a connected graph with more than one vertex form a
free tree, if we say that two bicomponents are adjacent when they have
a common vertex (i.e., when there is a vertex belonging to at least one edge
in each of the bicomponents). Such a vertex is called an articulation
point; there is a unique articulation point between any two adjacent
bicomponents. If we choose one bicomponent to be the ``root'' of the
free tree, the other bicomponents can be represented conveniently as
lists of vertices, with the articulation point that leads toward the root
listed last. This program displays the bicomponents in exactly that way.

@ We permit command-line options in typical \UNIX\ style so that a variety of
graphs can be studied: The user can say `\.{-t}\<title>',
`\.{-n}\<number>', `\.{-x}\<number>', `\.{-f}\<number>',
`\.{-l}\<number>', `\.{-i}\<number>', `\.{-o}\<number>', and/or
`\.{-s}\<number>' to change the default values of the parameters in
the graph generated by |book(t,n,x,f,l,i,o,s)|.

When the bicomponents are listed, each character in the book is identified by
a two-letter code, as found in the associated data file.
An explanation of these codes will appear first if the \.{-v} or \.{-V} option
is specified. The \.{-V} option prints a fuller explanation than~\.{-v}; it
also shows each character's weighted number of appearances.

@^UNIX dependencies@>

@p
#include "gb_graph.h" /* the GraphBase data structures */
#include "gb_books.h" /* the |book| routine */
#include "gb_io.h" /* the |imap_chr| routine */
@#
@<Global variables@>;
@<Subroutines@>;
main(argc,argv)
  int argc; /* the number of command-line arguments */
  char *argv[]; /* an array of strings containing those arguments */
{@+Graph *g; /* the graph we will work on */
  register Vertex *v; /* the current vertex of interest */
  char *t="anna"; /* the book to use */
  unsigned n=0; /* the desired number of vertices (0 means infinity) */
  unsigned x=0; /* the number of major characters to exclude */
  unsigned f=0; /* the first chapter to include */
  unsigned l=0; /* the last chapter to include (0 means infinity) */
  long i=1; /* the weight for appearances in selected chapters */
  long o=1; /* the weight for appearances in unselected chapters */
  long s=0; /* the random number seed */
  @<Scan the command line options@>;
  g=book(t,n,x,f,l,i,o,s);
  if (g==NULL) {
    fprintf(stderr,"Sorry, can't create the graph! (error code %d)\n",
             panic_code);
    return -1;
  }
  printf("Biconnectivity analysis of %s\n\n",g->id);
  if (verbose) @<Print the cast of selected characters@>;
  @<Perform the Hopcroft-Tarjan algorithm on |g|@>;
}

@ @<Scan the command line options@>=
while (--argc) {
@^UNIX dependencies@>
  if (strncmp(argv[argc],"-t",2)==0) t=argv[argc]+2;
  else if (sscanf(argv[argc],"-n%u",&n)==1) ;
  else if (sscanf(argv[argc],"-x%u",&x)==1) ;
  else if (sscanf(argv[argc],"-f%u",&f)==1) ;
  else if (sscanf(argv[argc],"-l%u",&l)==1) ;
  else if (sscanf(argv[argc],"-i%ld",&i)==1) ;
  else if (sscanf(argv[argc],"-o%ld",&o)==1) ;
  else if (sscanf(argv[argc],"-s%ld",&s)==1) ;
  else if (strcmp(argv[argc],"-v")==0) verbose=1;
  else if (strcmp(argv[argc],"-V")==0) verbose=2;
  else {
    fprintf(stderr,"Usage: %s [-ttitle][-xN][-fN][-lN][-iN][-oN][-sN][-v]\n",
             argv[0]);
    return -2;
  }
}

@ @f Vertex int /* |gb_graph| defines these data types */
@f Arc int
@f Graph int

@<Subroutines@>=
char code_name[3][3];
char *vertex_name(v,i) /* return (as a string) the name of vertex |v| */
  Vertex *v;
  int i; /* |i| should be 0, 1, or 2 to avoid clash in |code_name| array */
{
  code_name[i][0]=imap_chr(v->short_code/36);
  code_name[i][1]=imap_chr(v->short_code%36);
  return code_name[i];
}

@ @<Print the cast of selected characters@>=
{
  for (v=g->vertices;v<g->vertices+g->n;v++) {
    if (verbose==1) printf("%s=%s\n",vertex_name(v,0),v->name);
    else printf("%s=%s,%s [weight %d]\n",vertex_name(v,0),v->name,v->desc,@|
     i*v->in_count+o*v->out_count);
  }
  printf("\n");
}

@*The algorithm.
The Hopcroft-Tarjan algorithm is inherently recursive. We will
implement the recursion explicitly via linked lists, instead of using
\Cee's runtime stack, because some computer systems bog down in the
presence of deeply nested recursion.

Each vertex goes through three stages during the algorithm. First it is
`unseen'; then it is `active'; finally it becomes `settled', when it
has been assigned to a bicomponent.

The data structures that represent the current state of the algorithm
are implemented by using five of the utility fields in each vertex:
|rank|, |parent|, |untagged|, |link|, and |min|. We will describe each of
these in turn.

@ First is the integer |rank| field, which is zero when a vertex is unseen.
As soon as the vertex is first examined, it becomes active and its |rank|
becomes and remains nonzero. Indeed, the |k|th vertex to become active
will receive rank~|k|.

It's convenient to think of the Hopcroft-Tarjan algorithm as a simple adventure
game, in which we want to explore all rooms of a cave. Passageways between
the rooms allow two-way travel. When we come
into a room for the first time, we assign a new number to that room;
this is its rank. Later on we may happen to come into the same room
again, and we will notice that it has nonzero rank; then we'll be able
to make a quick exit, saying ``we've already been here.'' (The extra
complexities of computer games, like dragons that might need to be
vanquished, do not arise.)

@d rank z.i /* the |rank| of a vertex is stored in utility field |z| */

@<Glob...@>=
int nn; /* the number of vertices that have been seen */

@ The active vertices will always form an oriented tree, whose arcs are
a subset of the arcs in the original graph. A tree arc from |u| to~|v|
will be represented by |v->parent==u|. Every active vertex has a
parent, which is usually another active vertex; the only exception is
the root of the tree, whose |parent| is a dummy vertex called |dummy|.
The dummy vertex has rank zero.

In the cave analogy, the `parent' of room |v| is the room we were in
immediately before entering |v| the first time. By following parent
pointers, we will be able to leave the cave whenever we want.

@d parent y.v /* the |parent| of a vertex is stored in utility field |y| */

@<Glob...@>=
Vertex dummy; /* imaginary parent of the root vertex */

@ All edges in the original undirected graph are explored systematically during
a depth-first search. Whenever we look at an edge, we `tag' it so that
we won't need to explore it again. In a cave, for example, we might
mark each passageway between rooms once we've tried to go through it.

In a GraphBase graph, undirected edges are represented as a pair of directed
arcs. Each of these arcs will be examined and eventually tagged.

The algorithm doesn't actually place a tag on its |Arc| records; instead,
each vertex |v| has a pointer |v->untagged| that leads to all
hitherto-unexplored arcs from~|v|. The arcs of the list that appear
between |v->arcs| and |v->untagged| are the ones already examined.

@d untagged x.a /* the |untagged| field points to an |Arc| record, or |NULL| */ 

@ The algorithm maintains a special stack, the |active_stack|, which contains
all the currently active vertices. Each vertex has a |link| field that points
to the vertex next lower on its stack, or to |NULL| if the vertex is
at the bottom. The vertices on |active_stack| always appear in increasing
order of rank from bottom to top.

@d link w.v /* the |link| field of a vertex occupies utility field |w| */

@<Glob...@>=
Vertex * active_stack; /* the top of the stack of active vertices */

@ Finally there's a |min| field, which is the tricky part that makes
everything work. If vertex~|v| is unseen or settled, its |min| field is
irrelevant. Otherwise |v->min| points to the active vertex~|u|
of smallest rank having the property that
there is a directed path from |v| to |u| consisting of
zero or more `mature' tree arcs followed by a single non-tree arc.

What is a tree arc, you ask. And what is a mature arc? Good questions. At the
moment when arcs of the graph are tagged, we classify them either as tree
arcs (if they correspond to a new |parent| link in the tree of active
nodes) or non-tree arcs (otherwise). The tree arcs therefore correspond to
passageways that have led us to new territory. A tree arc becomes mature
when it is no longer on the path from the root to the current vertex being
explored. We also say that a vertex becomes mature when it is
no longer on that path. All arcs from a mature vertex have been tagged.

We said before that every vertex is initially unseen, then active, and
finally settled. With our new definitions, we see further that every arc starts
out untagged, then it becomes either a non-tree arc or a tree arc. In the
latter case it begins as an immature tree arc and eventually matures.

The dummy vertex is considered to be active, and we assume that
there is a non-tree arc from the root vertex back to |dummy|. Thus,
there is a non-tree arc from |v| to |v->parent| for all~|v|, and |v->min|
will always point to a vertex whose rank is less than or equal to
|v->parent->rank|. It will turn out that |v->min| is always an ancestor
of~|v|.

Just believe these definitions, for now. All will become clear soon.

@d min v.v /* the |min| field of a vertex occupies utility field |v| */

@ Depth-first search explores a graph by systematically visiting all
vertices and seeing what they can lead to. In the Hopcroft-Tarjan algorithm, as
we have said, the active vertices form an oriented tree. One of these
vertices is called the current vertex.

If the current vertex still has an arc that hasn't been tagged, we
tag one such arc and there are two cases: Either the arc leads to
an unseen vertex, or it doesn't. If it does, the arc becomes a tree
arc; the previously unseen vertex becomes active, and it becomes the
new current vertex.  On the other hand if the arc leads to a vertex
that has already been seen, the arc becomes a non-tree arc and the
current vertex doesn't change.

Finally there will come a time when the current vertex~|v| has no
untagged arcs. At this point, the
algorithm might decide that |v| and all its descendants
form a bicomponent, together with |v->parent|.
 Indeed, this condition turns out to be true if and only if
|v->min==v->parent|; a proof appears below. If so, |v| and all its descendants
become settled, and they leave the tree. If not, the tree arc from
|v|'s parent~|u| to~|v| becomes mature, so the value of |v->min| is
used to update the value of |u->min|. In both cases |v| becomes mature,
and the new current vertex will be the parent of~|v|. Notice that only the
value of |u->min| needs to be updated, when the arc from |u| to~|v|
matures; all other values |w->min| stay the same, because a newly
mature arc has no mature predecessors.

In the cave analogy, a room |v| and its descendants will become a
bicomponent together with the room~|u| from which we entered~|v|
when there's no outlet from the subcave starting at~|v|
without coming back through |u| itself. Once such a bicomponent
is identified, we close it off and don't explore that subcave any further.

If |v| is the root of the tree, it always has |v->min==dummy|, so it
will always define a new bicomponent at the moment it matures.  Then
the depth-first search will terminate, since |v|~has no real parent.
But the Hopcroft-Tarjan algorithm will press on, trying to find a
vertex~|u| that is still unseen. If such a vertex exists, a
new depth-first search will begin with |u| as the root. This process
keeps on going until at last all vertices are happily settled.

The beauty of this algorithm is that it all works very efficiently
when we organize it as follows:

@<Perform the Hopcroft-Tarjan algorithm on |g|@>=
@<Make all vertices unseen and all arcs untagged@>;
for (vv=g->vertices; vv<g->vertices+g->n; vv++)
  if (vv->rank==0) /* |vv| is still unseen */
    @<Perform a depth-first search with |vv| as the root, finding the
      bicomponents of all unseen vertices reachable from~|vv|@>;

@ @<Glob...@>=
Vertex *vv; /* sweeps over all vertices, making sure none is left unseen */

@ It's easy to get the data structures started, according to the
conventions stipulated above.

@<Make all vertices unseen...@>=
for (v=g->vertices; v<g->vertices+g->n; v++) {
  v->rank=0;
  v->untagged=v->arcs;
}
nn=0;
active_stack=NULL;
dummy.rank=0;

@ The task of starting a depth-first search isn't too bad either. Throughout
this part of the algorithm, variable~|v| will point to the current vertex.

@<Perform a depth-first search with |vv| as the root...@>=
{
  v=vv;
  v->parent=&dummy;
  @<Make vertex |v| active@>;
  do @<Explore one step from the current vertex~|v|, possibly moving
        to another current vertex and calling~it~|v|@>@;
  while (v!=&dummy);
}

@ @<Make vertex |v| active@>=
v->rank=++nn;
v->link=active_stack;
active_stack=v;
v->min=v->parent;

@ Now things get interesting. But we're just doing what any well-organized
spelunker would do when calmly exploring a cave.
There are three main cases,
depending on whether the current vertex stays where it is, moves
to a new child, or backtracks to a parent.

@<Explore one step from the current vertex~|v|, possibly moving
        to another current vertex and calling~it~|v|@>=
{@+register Vertex *u; /* a vertex adjacent to |v| */
  register Arc *a=v->untagged; /* |v|'s first remaining untagged arc, if any */
  if (a) {
    u=a->tip;
    v->untagged = a->next; /* tag the arc from |v| to |u| */
    if (u->rank) { /* we've seen |u| already */
      if (u->rank < v->min->rank)
        v->min=u; /* non-tree arc, just update |v->min| */
    } else { /* |u| is presently unseen */
      u->parent = v; /* the arc from |v| to |u| is a new tree arc */
      v = u; /* |u| will now be the current vertex */
      @<Make vertex |v| active@>;
    }
  } else { /* all arcs from |v| are tagged, so |v| matures */
    u=v->parent; /* prepare to backtrack in the tree */
    if (v->min==u) @<Remove |v| and all its successors on the active stack
         from the tree, and report them as a bicomponent of the graph
         together with~|u|@>@;
    else  /* the arc from |u| to |v| has just matured,
             making |v->min| visible from |u| */@,
      if (v->min->rank < u->min->rank)
        u->min=v->min;
    v=u; /* the former parent of |v| is the new current vertex |v| */
  }
}

@ The elements of the active stack are always in order
by rank, and all children of a vertex~|v| in the tree have rank higher
than~|v|. The Hopcroft-Tarjan algorithm relies on a converse property: {\sl All
active nodes whose rank exceeds that of the current vertex~|v|
are descendants of~|v|.} (This holds because the algorithm has constructed
the tree by assigning ranks in preorder, ``the order of succession to the
throne''. First come |v|'s firstborn and descendants, then the nextborn,
and so on.) Therefore the descendants of the current vertex always appear
consecutively at the top of the stack.

Suppose |v| is a mature, active vertex with |v->min==v->parent|, and
let |u=v->parent|. We want to prove that |v| and its descendants,
together with~|u| and all edges between these vertices, form a
biconnected graph.  Call this subgraph~|H|. The parent links
define a subtree of~|H|, rooted at~|u|, and |v| is the only vertex
having |u| as a parent (because all other vertices are descendants
of~|v|). If |x| is any vertex of~|H| different from |u| and |v|,
there is a path from |x| to |x->min| that does not touch~|x->parent|,
and |x->min| is a proper ancestor of |x->parent|. This property
is sufficient to establish the biconnectedness of~|H|. (A proof appears
at the conclusion of this program.) Moreover, we cannot add any
more vertices to~|H| without losing biconnectivity; if |w|~is another
vertex, |w| has either been output already as a non-articulation point
of a previous biconnected component, or we can prove that
there is no path from |w| to~|v| that avoids the vertex~|u|.

Therefore we are justified in settling |v| and its active descendants now.
Removing them from the tree of active vertices does not remove any
vertex from which there is a path to a vertex of rank less than
|u->rank|; hence it does not affect the validity of the |w->min| value
for any vertex~|w| that remains active.

A slight technicality arises with respect to whether or not
the parent of~|v|, vertex~|u|, is part of the present bicomponent.
When |u| is the dummy vertex, we have already printed the final bicomponent
of a connected component of the original graph, unless |v| was
an isolated vertex. Otherwise |u| is an
articulation point that will occur in subsequent bicomponents,
unless this is the final bicomponent of a connected component.
(This aspect of the algorithm is probably its most subtle point;
consideration of an example or two should clarify everything.)

We print out enough information for a reader to verify the
biconnectedness of the claimed component easily.

@<Remove |v| and all its successors on the active stack...@>=
if (u==&dummy) { /* |active_stack| contains just |v| */
  if (artic_pt)
    printf(" and %s (this ends a connected component of the graph)\n",
              vertex_name(artic_pt,0));
  else printf("Isolated vertex %s\n",vertex_name(v,0));
  active_stack=artic_pt=NULL;
} else {@+register Vertex *t; /* runs through the vertices of the
                        new bicomponent */
  if (artic_pt)
    printf(" and articulation point %s\n",vertex_name(artic_pt,0));
  t=active_stack;
  active_stack=v->link;
  printf("Bicomponent %s", vertex_name(v,0));
  if (t==v) putchar('\n'); /* single vertex */
  else {
    printf(" also includes:\n");
    while (t!=v) {
      printf(" %s (from %s; ..to %s)\n",
        vertex_name(t,0), vertex_name(t->parent,1),vertex_name(t->min,2));
      t=t->link;
    }
  }
  artic_pt=u; /* the printout will be finished later */
}

@ Like all global variables, |artic_pt| is initially zero (|NULL|).

@<Glob...@>=
Vertex *artic_pt; /* articulation point to be printed if the current
  bicomponent isn't the last in its connected component */

@*Proofs.
The program is done but we still should prove that it works.
First we want to clarify the informal definition by verifying that
the cycle relation between edges, as stated in the introduction, is indeed an
equivalence relation.

\def\dash{\mathrel-\joinrel\joinrel\mathrel-}
Suppose $u\dash v$ and $w\dash x$ are edges of a simple cycle~$C$, while
$w\dash x$ and $y\dash z$ are edges of a simple cycle~$D$. We want to show
that there is a simple cycle containing the edges $u\dash v$ and $x\dash y$.
There are vertices $a,b\in C$ such that $a\dash^\ast y\dash z\dash^\ast b$
is a subpath of~$D$ containing no other vertices of $C$ besides $a$ and~$b$.
Join this subpath to the subpath in $C$ that runs from $b$ to~$a$ through
the edge $u\dash v$.

Therefore the stated relation between edges is transitive, and it is
an equivalence relation.
A graph is biconnected if it contains a single vertex, or if each of
its vertices is adjacent to at least one other vertex and any two edges are
equivalent.

@ Next we prove the well known fact that a graph is biconnected if and
only if it is connected and, for any three distinct vertices $x$,
$y$,~$z$, it contains a path from $x$ to~$y$ that does not touch~$z$.
Call the latter condition property~P.

Suppose $G$ is biconnected, and let $x,y$ be distinct vertices of~$G$.
Then there exist edges $u\dash x$ and $v\dash y$, which are either
identical (hence $x$ and~$y$ are adjacent) or part of a simple cycle
(hence there are two paths from $x$ to~$y$, having no other vertices in
common). Thus $G$ has property~P.

Suppose, conversely, that $G$ has property~P, and let $u\dash v,
w\dash x$ be distinct edges of~$G$. We want to show that these edges
belong to some simple cycle. The proof is by induction on
$k=\min\bigl(d(u,w),d(u,x),\allowbreak d(v,w),d(v,x)\bigr)$, where $d$~denotes
distance. If $k=0$, property~P gives the result directly. If $k>0$,
we can assume by symmetry that $k=d(u,w)$; so there's a vertex $y$
with $u\dash y$ and $d(y,w)=k-1$. And we have $u\dash v$ equivalent to
$u\dash y$ by property~P, $u\dash y$ equivalent to $w\dash x$ by induction,
hence $u\dash v$ is equivalent to $w\dash x$ by transitivity.

@ Finally, we prove that $G$ satisfies property~P if it has the
following properties: (1)~There are two distinguished vertices $u$
and~$v$.  (2)~Some of the edges of~$G$ form a subtree rooted at~$u$,
and $v$ is the only vertex whose parent in this tree is~$u$.
(3)~Every vertex~$x$ other than $u$ or $v$ has a path to its
grandparent that does not go through its parent.

If property P doesn't hold, there are distinct vertices $x,y,z$ such
that every path from $x$ to~$y$ goes through~$z$. In particular, $z$ must be
between $x$ and~$y$ in the unique path~$\pi$ that joins them in the subtree.
It follows that $z\ne u$ is the parent of some node $z'$ in that path; hence
$z'\ne u$ and $z'\ne v$. But we can
avoid $z$ by going from $z'$ to the grandparent of $z'$, which is
also part of path~$\pi$ unless $z$ is also the parent of another node
$z''$ in~$\pi$. In the latter case, however,
we can avoid $z$ by going from $z'$ to the grandparent of $z'$ and from there
to $z''$, since $z'$ and $z''$ have the same grandparent.

@* Index. We close with a list that shows where the identifiers of this
program are defined and used.