Mercurial > octave
diff src/OPERATORS/op-cm-sm.cc @ 6221:8e0f1eda266b
[project @ 2007-01-03 17:23:33 by jwe]
author | jwe |
---|---|
date | Wed, 03 Jan 2007 17:23:34 +0000 |
parents | 6b9cec830d72 |
children | 93c65f2a5668 |
line wrap: on
line diff
--- a/src/OPERATORS/op-cm-sm.cc Sat Dec 30 17:29:35 2006 +0000 +++ b/src/OPERATORS/op-cm-sm.cc Wed Jan 03 17:23:34 2007 +0000 @@ -49,13 +49,25 @@ { CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_sparse_matrix&); - MatrixType typ = v2.matrix_type (); + if (v2.rows() == 1 && v2.columns() == 1) + { + double d = v2.scalar_value (); + + if (d == 0.0) + gripe_divide_by_zero (); - ComplexMatrix ret = xdiv (v1.complex_matrix_value (), - v2.sparse_matrix_value (), typ); + return octave_value (v1.complex_array_value () / d); + } + else + { + MatrixType typ = v2.matrix_type (); - v2.matrix_type (typ); - return ret; + ComplexMatrix ret = xdiv (v1.complex_matrix_value (), + v2.sparse_matrix_value (), typ); + + v2.matrix_type (typ); + return ret; + } } DEFBINOPX (pow, complex_matrix, sparse_matrix)