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