Mercurial > hg > octave-jordi
diff src/ov-cx-mat.cc @ 3220:3deb1105fbc1
[project @ 1998-11-19 00:06:30 by jwe]
author | jwe |
---|---|
date | Thu, 19 Nov 1998 00:06:34 +0000 (1998-11-19) |
parents | 30770ba4457a |
children | eba59b8c64dc |
line wrap: on
line diff
--- a/src/ov-cx-mat.cc +++ b/src/ov-cx-mat.cc @@ -90,40 +90,6 @@ return retval; } -octave_value -octave_complex_matrix::do_index_op (const octave_value_list& idx) -{ - octave_value retval; - - int len = idx.length (); - - switch (len) - { - case 2: - { - idx_vector i = idx (0).index_vector (); - idx_vector j = idx (1).index_vector (); - - retval = ComplexMatrix (matrix.index (i, j)); - } - break; - - case 1: - { - idx_vector i = idx (0).index_vector (); - - retval = ComplexMatrix (matrix.index (i)); - } - break; - - default: - error ("invalid number of indices (%d) for complex matrix value", len); - break; - } - - return retval; -} - #if !defined (CXX_NEW_FRIEND_TEMPLATE_DECL) extern void assign (Array2<Complex>&, const Array2<Complex>&); #endif @@ -220,30 +186,6 @@ return false; } -bool -octave_complex_matrix::is_true (void) const -{ - bool retval = false; - - if (rows () == 0 || columns () == 0) - { - int flag = Vpropagate_empty_matrices; - - if (flag < 0) - warning ("empty matrix used in conditional expression"); - else if (flag == 0) - error ("empty matrix used in conditional expression"); - } - else - { - Matrix m = (matrix.all ()) . all (); - - retval = (m.rows () == 1 && m.columns () == 1 && m (0, 0) != 0.0); - } - - return retval; -} - double octave_complex_matrix::double_value (bool force_conversion) const {