Mercurial > hg > octave-jordi

comparison src/OPERATORS/op-cm-s.cc @ 5785:6b9cec830d72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-05-03 19:32:46 by dbateman]
author dbateman
date Wed, 03 May 2006 19:32:48 +0000
parents 4c8a2e4e0717
children 93c65f2a5668
comparison
equal deleted inserted replaced
5784:70f7659d0fb9 5785:6b9cec830d72
63 { 63 {
64 CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_scalar&); 64 CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_scalar&);
65 65
66 ComplexMatrix m1 = v1.complex_matrix_value (); 66 ComplexMatrix m1 = v1.complex_matrix_value ();
67 Matrix m2 = v2.matrix_value (); 67 Matrix m2 = v2.matrix_value ();
68 MatrixType typ = v1.matrix_type ();
68 69
69 return octave_value (xleftdiv (m1, m2)); 70 ComplexMatrix ret = xleftdiv (m1, m2, typ);
71
72 v1.matrix_type (typ);
73 return ret;
70 } 74 }
71 75
72 DEFNDBINOP_FN (lt, complex_matrix, scalar, complex_array, scalar, mx_el_lt) 76 DEFNDBINOP_FN (lt, complex_matrix, scalar, complex_array, scalar, mx_el_lt)
73 DEFNDBINOP_FN (le, complex_matrix, scalar, complex_array, scalar, mx_el_le) 77 DEFNDBINOP_FN (le, complex_matrix, scalar, complex_array, scalar, mx_el_le)
74 DEFNDBINOP_FN (eq, complex_matrix, scalar, complex_array, scalar, mx_el_eq) 78 DEFNDBINOP_FN (eq, complex_matrix, scalar, complex_array, scalar, mx_el_eq)