summaryrefslogtreecommitdiffstats
path: root/src/misc/espresso/dominate.c
blob: a930d453f463c3a3b7692432944635b6390ac974 (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
/*
 * Revision Control Information
 *
 * $Source$
 * $Author$
 * $Revision$
 * $Date$
 *
 */
#include "mincov_int.h"


int 
sm_row_dominance(A)
sm_matrix *A; 
{
    register sm_row *prow, *prow1;
    register sm_col *pcol, *least_col;
    register sm_element *p, *pnext;
    int rowcnt;

    rowcnt = A->nrows;

    /* Check each row against all other rows */
    for(prow = A->first_row; prow != 0; prow = prow->next_row) {

    /* Among all columns with a 1 in this row, choose smallest */
    least_col = sm_get_col(A, prow->first_col->col_num);
    for(p = prow->first_col->next_col; p != 0; p = p->next_col) {
        pcol = sm_get_col(A, p->col_num);
        if (pcol->length < least_col->length) {
        least_col = pcol;
        }
    }

    /* Only check for containment against rows in this column */
    for(p = least_col->first_row; p != 0; p = pnext) {
        pnext = p->next_row;

        prow1 = sm_get_row(A, p->row_num);
        if ((prow1->length > prow->length) ||
                  (prow1->length == prow->length && 
                  prow1->row_num > prow->row_num)) {
        if (sm_row_contains(prow, prow1)) {
            sm_delrow(A, prow1->row_num);
        }
        }
    }
    }

    return rowcnt - A->nrows;
}

int 
sm_col_dominance(A, weight)
sm_matrix *A;
int *weight;
{
    register sm_row *prow;
    register sm_col *pcol, *pcol1;
    register sm_element *p;
    sm_row *least_row;
    sm_col *next_col;
    int colcnt;

    colcnt = A->ncols;

    /* Check each column against all other columns */
    for(pcol = A->first_col; pcol != 0; pcol = next_col) {
    next_col = pcol->next_col;

    /* Check all rows to find the one with fewest elements */
    least_row = sm_get_row(A, pcol->first_row->row_num);
    for(p = pcol->first_row->next_row; p != 0; p = p->next_row) {
        prow = sm_get_row(A, p->row_num);
        if (prow->length < least_row->length) {
        least_row = prow;
        }
    }

    /* Only check for containment against columns in this row */
    for(p = least_row->first_col; p != 0; p = p->next_col) {
        pcol1 = sm_get_col(A, p->col_num);
        if (weight != 0 && weight[pcol1->col_num] > weight[pcol->col_num])
        continue;
        if ((pcol1->length > pcol->length) ||
           (pcol1->length == pcol->length && 
                   pcol1->col_num > pcol->col_num)) {
        if (sm_col_contains(pcol, pcol1)) {
            sm_delcol(A, pcol->col_num);
            break;
        }
        }
    }
    }

    return colcnt - A->ncols;
}