Mercurial > octave
diff src/OPERATORS/op-cs-scm.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-cs-scm.cc Sat Dec 30 17:29:35 2006 +0000 +++ b/src/OPERATORS/op-cs-scm.cc Wed Jan 03 17:23:34 2007 +0000 @@ -47,13 +47,24 @@ { CAST_BINOP_ARGS (const octave_complex&, const octave_sparse_complex_matrix&); - MatrixType typ = v2.matrix_type (); - ComplexMatrix m1 = ComplexMatrix (1, 1, v1.complex_value ()); - SparseComplexMatrix m2 = v2.sparse_complex_matrix_value (); - ComplexMatrix ret = xdiv (m1, m2, typ); - v2.matrix_type (typ); + if (v2.rows() == 1 && v2.columns() == 1) + { + Complex d = v2.complex_value (); + + if (d == 0.0) + gripe_divide_by_zero (); - return ret; + return octave_value (v1.complex_value () / d); + } + else + { + MatrixType typ = v2.matrix_type (); + ComplexMatrix m1 = ComplexMatrix (1, 1, v1.complex_value ()); + SparseComplexMatrix m2 = v2.sparse_complex_matrix_value (); + ComplexMatrix ret = xdiv (m1, m2, typ); + v2.matrix_type (typ); + return ret; + } } DEFBINOP (pow, complex, sparse_complex_matrix)