Mercurial > octave

comparison scripts/special-matrix/magic.m @ 20891:95c0d4c07c56

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
magic: add tests for magic(2) (bug #46672)
author Carnë Draug <carandraug@octave.org>
date Mon, 14 Dec 2015 14:01:36 +0000
parents 7234cbd04292
children ecce63c99c3f
comparison
equal deleted inserted replaced
20889:a88142abca36 20891:95c0d4c07c56
83 %! for i = 3:30 83 %! for i = 3:30
84 %! A = magic (i); 84 %! A = magic (i);
85 %! assert (norm(diff([sum(diag(A)),sum(diag(flipud(A))),sum(A),sum(A')])),0); 85 %! assert (norm(diff([sum(diag(A)),sum(diag(flipud(A))),sum(A),sum(A')])),0);
86 %! endfor 86 %! endfor
87 87
88 ## Not a magic square but we must return something (bug #46672)
89 ## While one day we may change the actual return of magic (2),
90 ## this properties still must be true.
91 %!test
92 %! m = magic (2);
93 %! assert (size (m), [2 2])
94 %! assert (unique (m), [1; 2; 3; 4])
95
96 %!assert (magic (2), [4 3; 1 2])
88 %!assert (isempty (magic (-1))) 97 %!assert (isempty (magic (-1)))
89 %!assert (isempty (magic (0))) 98 %!assert (isempty (magic (0)))
90 %!assert (magic (1), 1) 99 %!assert (magic (1), 1)
91 %!assert (magic (1.5), 1) 100 %!assert (magic (1.5), 1)
92 101