Mercurial > octave-nkf

comparison src/OPERATORS/op-scm-cm.cc @ 5322:22994a5730f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-04-29 13:04:24 by dbateman]
author dbateman
date Fri, 29 Apr 2005 13:04:25 +0000
parents 4c8a2e4e0717
children 2042301733ce
comparison
equal deleted inserted replaced
5321:84b72a402b86 5322:22994a5730f9
67 return octave_value (); 67 return octave_value ();
68 } 68 }
69 69
70 DEFBINOP (ldiv, sparse_complex_matrix, complex_matrix) 70 DEFBINOP (ldiv, sparse_complex_matrix, complex_matrix)
71 { 71 {
72 CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, 72 CAST_BINOP_ARGS (octave_sparse_complex_matrix&, const octave_complex_matrix&);
73 const octave_complex_matrix&); 73 SparseType typ = v1.sparse_type ();
74 74
75 return xleftdiv (v1.sparse_complex_matrix_value (), 75 ComplexMatrix ret = xleftdiv (v1.sparse_complex_matrix_value (),
76 v2.complex_matrix_value ()); 76 v2.complex_matrix_value (), typ);
77
78 v1.sparse_type (typ);
79 return ret;
77 } 80 }
78 81
79 DEFBINOP_FN (lt, sparse_complex_matrix, complex_matrix, mx_el_lt) 82 DEFBINOP_FN (lt, sparse_complex_matrix, complex_matrix, mx_el_lt)
80 DEFBINOP_FN (le, sparse_complex_matrix, complex_matrix, mx_el_le) 83 DEFBINOP_FN (le, sparse_complex_matrix, complex_matrix, mx_el_le)
81 DEFBINOP_FN (eq, sparse_complex_matrix, complex_matrix, mx_el_eq) 84 DEFBINOP_FN (eq, sparse_complex_matrix, complex_matrix, mx_el_eq)