Mercurial > hg > octave-avbm
diff src/op-cm-cs.cc @ 2613:5bcee07be597
[project @ 1997-01-21 03:52:08 by jwe]
author | jwe |
---|---|
date | Tue, 21 Jan 1997 03:53:18 +0000 |
parents | 3723512a827a |
children | 60ae49e1284f |
line wrap: on
line diff
--- a/src/op-cm-cs.cc +++ b/src/op-cm-cs.cc @@ -118,8 +118,8 @@ { CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&); - MX_SC_BOOL_OP (ComplexMatrix, m, v1.complex_matrix_value (), \ - Complex, s, v2.complex_value (), \ + MX_SC_BOOL_OP (ComplexMatrix, m, v1.complex_matrix_value (), + Complex, s, v2.complex_value (), m (i, j) == s, 0.0); } @@ -144,8 +144,8 @@ { CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&); - MX_SC_BOOL_OP (ComplexMatrix, m, v1.complex_matrix_value (), \ - Complex, s, v2.complex_value (), \ + MX_SC_BOOL_OP (ComplexMatrix, m, v1.complex_matrix_value (), + Complex, s, v2.complex_value (), m (i, j) != s, 1.0); } @@ -191,8 +191,8 @@ { CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&); - MX_SC_BOOL_OP (ComplexMatrix, m, v1.complex_matrix_value (), \ - Complex, s, v2.complex_value (), \ + MX_SC_BOOL_OP (ComplexMatrix, m, v1.complex_matrix_value (), + Complex, s, v2.complex_value (), m (i, j) != 0.0 && s != 0.0, Matrix ()); } @@ -201,8 +201,8 @@ { CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&); - MX_SC_BOOL_OP (ComplexMatrix, m, v1.complex_matrix_value (), \ - Complex, s, v2.complex_value (), \ + MX_SC_BOOL_OP (ComplexMatrix, m, v1.complex_matrix_value (), + Complex, s, v2.complex_value (), m (i, j) != 0.0 || s != 0.0, Matrix ()); }