1function dmspy_test
2%DMSPY_TEST test cspy, cs_dmspy, and cs_dmperm
3% Example:
4%   dmspy_test
5% See also: testall
6
7% Copyright 2006-2012, Timothy A. Davis, http://www.suitesparse.com
8
9index = ssget ;
10f = find (index.nblocks > 1) ;
11% f = find (index.nblocks > 1 & index.nrows == index.ncols & ...
12%    index.nnzdiag == index.nrows) ;
13[ignore i] = sort (index.nnz (f)) ;
14f = f (i) ;
15
16for i = f
17    Prob = ssget (i,index) ;
18    disp (Prob) ;
19    clf
20    subplot (2,2,1) ; cspy (Prob.A) ;
21    subplot (2,2,2) ; cs_dmspy (Prob.A) ;
22    [p,q,r,s,cc,rr] = cs_dmperm (Prob.A) ;                                  %#ok
23    subplot (2,2,3) ; plot (p) ;
24    subplot (2,2,4) ; plot (q) ;
25    drawnow
26end
27