1function test1 (wait) 2%TEST1 test sparse2 3% Example: 4% test1 5% See also cholmod_test 6 7% Copyright 2007, Timothy A. Davis, http://www.suitesparse.com 8 9fprintf ('=================================================================\n'); 10fprintf ('test1: test sparse2\n') ; 11 12if (nargin == 0) 13 wait = 0 ; 14end 15 16m = 3 ; 17n = 4 ; 18 19ii = { 1, [2 3]', 2, [ ] } ; 20jj = { 1, [2 3]', 3, [ ] } ; 21ss = { 1, [2 3]', pi, [ ] } ; 22 23for ki = 1:length (ii) 24 for kj = 1:length (jj) 25 for ks = 1:length (ss) 26 27 fprintf ('\n-----------------------------------------------\n') ; 28 i = ii {ki} %#ok 29 j = jj {kj} %#ok 30 s = ss {ks} %#ok 31 m %#ok 32 n %#ok 33 clear A1 A2 B1 B2 34 35 fprintf ('\nA1 = sparse (i,j,s,m,n)\n') ; 36 try % sparse, possibly with invalid inputs 37 A1 = sparse (i,j,s,m,n) %#ok 38 fprintf ('size A1: %d %d\n', size (A1)) ; 39 catch 40 A1 = 'A failed' ; 41 fprintf ('sparse failed\n') ; 42 end 43 44 fprintf ('\nA2 = sparse2 (i,j,s,m,n)\n') ; 45 try % sparse2, possibly with invalid inputs 46 A2 = sparse2 (i,j,s,m,n) %#ok 47 fprintf ('size A2: %d %d\n', size (A2)) ; 48 catch 49 A2 = 'A failed' ; 50 fprintf ('sparse2 failed\n') ; 51 end 52 53 fprintf ('\nB1 = sparse (i,j,s)\n') ; 54 try % sparse, possibly with invalid inputs 55 B1 = sparse (i,j,s) %#ok 56 fprintf ('size B1: %d %d\n', size (B1)) ; 57 catch 58 B1 = 'B failed' ; 59 fprintf ('sparse failed\n') ; 60 end 61 62 fprintf ('\nB2 = sparse2 (i,j,s)\n') ; 63 try % sparse2, possibly with invalid inputs 64 B2 = sparse2 (i,j,s) %#ok 65 fprintf ('size B2: %d %d\n', size (B2)) ; 66 catch 67 B2 = 'B failed' ; 68 fprintf ('sparse2 failed\n') ; 69 end 70 71 if (wait) 72 pause 73 end 74 75 if (~isequal (A1,A2) | ~isequal (B1,B2)) %#ok 76 fprintf (... 77 '========================== SPARSE AND SPARSE2 DIFFER\n') ; 78 end 79 80 end 81 end 82end 83 84fprintf ('test1 passed (review the above results)\n') ; 85