Mercurial > hg > octave-lyh

comparison test/test_transpose.m @ 14131:c3309e1ec50d stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
test: Use Octave coding and spacing conventions for fixed test scripts * build_bc_overload_tests.sh, build_bc_overloads_expected.m, build_sparse_tests.sh, test_args.m, test_contin.m, test_diag_perm.m, test_error.m, test_eval-catch.m, test_for.m, test_func.m, test_global.m, test_if.m, test_index.m, test_io.m, test_logical_index.m, test_null_assign.m, test_parser.m, test_prefer.m, test_range.m, test_recursion.m, test_return.m, test_slice.m, test_struct.m, test_switch.m, test_system.m, test_transpose.m, test_try.m, test_unwind.m, test_while.m: Use Octave coding and spacing conventions for fixed test scripts.
author Rik <octave@nomad.inbox5.com>
date Sun, 01 Jan 2012 20:04:52 -0800
parents fd0a3ac60b0e
children 72c96de7a403
comparison
equal deleted inserted replaced
14130:e13bfbc2c4c5 14131:c3309e1ec50d
14 ## 14 ##
15 ## You should have received a copy of the GNU General Public License 15 ## You should have received a copy of the GNU General Public License
16 ## along with Octave; see the file COPYING. If not, see 16 ## along with Octave; see the file COPYING. If not, see
17 ## <http://www.gnu.org/licenses/>. 17 ## <http://www.gnu.org/licenses/>.
18 18
19 %% test/octave.test/transpose/transpose-1.m 19 %% Basic tests
20 %!test 20 %!test
21 %! scalar = 2; 21 %! scalar = 2;
22 %! assert(scalar',2); 22 %! assert (scalar', 2);
23 23
24 %% test/octave.test/transpose/transpose-2.m
25 %!test 24 %!test
26 %! range = 1:4; 25 %! range = 1:4;
27 %! assert(range',[1;2;3;4]); 26 %! assert (range', [1;2;3;4]);
28 27
29 %% test/octave.test/transpose/transpose-3.m
30 %!test 28 %!test
31 %! vector = [1;2;3;4]; 29 %! vector = [1;2;3;4];
32 %! assert(vector',[1,2,3,4]); 30 %! assert (vector', [1,2,3,4]);
33 31
34 %% test/octave.test/transpose/transpose-4.m
35 %!test 32 %!test
36 %! matrix = [1,2;3,4]; 33 %! matrix = [1,2;3,4];
37 %! assert(matrix',[1,3;2,4]); 34 %! assert (matrix', [1,3;2,4]);
38 35
36 %% Basic tests on complex numbers
37 %!test
38 %! scalar = 2i;
39 %! assert (scalar', -2i);
40
41 %!test
42 %! range = (1:4)*i;
43 %! assert (range', [-1i;-2i;-3i;-4i]);
44
45 %!test
46 %! vector = [1;2;3;4]*i;
47 %! assert (vector', [-1i,-2i,-3i,-4i]);
48
49 %!test
50 %! matrix = [1,2;3,4]*i;
51 %! assert (matrix', [-1i,-3i;-2i,-4i]);
52
53 %% Test non-Hermitian transpose
54 %!test
55 %! scalar = 2i;
56 %! assert (scalar.', 2i);
57
58 %!test
59 %! range = (1:4)*i;
60 %! assert (range.', [1i;2i;3i;4i]);
61
62 %!test
63 %! vector = [1;2;3;4]*i;
64 %! assert (vector.', [1i,2i,3i,4i]);
65
66 %!test
67 %! matrix = [1,2;3,4]*i;
68 %! assert (matrix.', [1i,3i;2i,4i]);
69
70 %% Basic tests on float complex numbers
71 %!test
72 %! scalar = single (2i);
73 %! assert (scalar', single (-2i));
74
75 %!test
76 %! range = single ((1:4)*i);
77 %! assert (range', single ([-1i;-2i;-3i;-4i]));
78
79 %!test
80 %! vector = single ([1;2;3;4]*i);
81 %! assert (vector', single ([-1i,-2i,-3i,-4i]));
82
83 %!test
84 %! matrix = single ([1,2;3,4]*i);
85 %! assert (matrix', single ([-1i,-3i;-2i,-4i]));
86