8
m = fix (100 * rand (1)) ;
9
n = fix (100 * rand (1)) ;
18
sprnk = sum (pp > 0) ;
28
fprintf ('sprnk: %d m %d n %d\n', sprnk, m, n) ;
30
[p,q,r,s] = dmperm (A) ;
45
plot ([c1 c2 c2 c1 c1]-.5, [r1 r1 r2 r2 r1]-.5, 'g') ;
48
[p2,q2,cp,rp] = dp (A,A') ;
52
if (any (sort (p2) ~= 1:m))
56
if (any (sort (q2) ~= 1:n))
79
fprintf ('k %d rows %d to %d cols %d to %d\n', k, r1, r2, c1, c2) ;
80
plot ([c1 c2 c2 c1 c1]-.5, [r1 r1 r2 r2 r1]-.5, 'g') ;
86
fprintf ('k %d rows %d to %d cols %d to %d\n', k, r1, r2, c1, c2) ;
87
plot ([c1 c2 c2 c1 c1]-.5, [r1 r1 r2 r2 r1]-.5, 'g') ;
89
B = C (r1:r2-1, c1:c2-1) ;
90
if (nnz (diag (B)) ~= size (B,1))
98
fprintf ('k %d rows %d to %d cols %d to %d\n', k, r1, r2, c1, c2) ;
99
plot ([c1 c2 c2 c1 c1]-.5, [r1 r1 r2 r2 r1]-.5, 'g') ;
101
B = C (r1:r2-1, c1:c2-1) ;
102
if (nnz (diag (B)) ~= size (B,1))
110
fprintf ('k %d rows %d to %d cols %d to %d\n', k, r1, r2, c1, c2) ;
111
plot ([c1 c2 c2 c1 c1]-.5, [r1 r1 r2 r2 r1]-.5, 'g') ;
113
B = C (r1:r2-1, c1:c2-1) ;
114
if (nnz (diag (B)) ~= size (B,1))
122
fprintf ('k %d rows %d to %d cols %d to %d\n', k, r1, r2, c1, c2) ;
123
plot ([c1 c2 c2 c1 c1]-.5, [r1 r1 r2 r2 r1]-.5, 'g') ;