Mercurial > octave-nkf

comparison src/OPERATORS/op-bm-bm.cc @ 4673:6639c2574023

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-12-10 16:11:54 by jwe]
author jwe
date Wed, 10 Dec 2003 16:11:54 +0000
parents 334a27c8f453
children c7ae43dfdea4
comparison
equal deleted inserted replaced
4672:2c5adf308c84 4673:6639c2574023
43 43
44 DEFUNOP (transpose, bool_matrix) 44 DEFUNOP (transpose, bool_matrix)
45 { 45 {
46 CAST_UNOP_ARG (const octave_bool_matrix&); 46 CAST_UNOP_ARG (const octave_bool_matrix&);
47 47
48 return octave_value (v.bool_matrix_value().transpose ()); 48 if (v.ndims () > 2)
49 {
50 error ("transpose not defined for N-d objects");
51 return octave_value ();
52 }
53 else
54 return octave_value (v.bool_matrix_value().transpose ());
49 } 55 }
50 56
51 // bool matrix by bool matrix ops. 57 // bool matrix by bool matrix ops.
52 58
53 DEFNDBINOP_FN (eq, bool_matrix, bool_matrix, bool_array, bool_array, mx_el_eq) 59 DEFNDBINOP_FN (eq, bool_matrix, bool_matrix, bool_array, bool_array, mx_el_eq)