Mercurial > octave

comparison src/OPERATORS/op-sm-s.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 8d7162924bd3
comparison
equal deleted inserted replaced
5321:84b72a402b86 5322:22994a5730f9
72 return xpow (v1.matrix_value (), tmp); 72 return xpow (v1.matrix_value (), tmp);
73 } 73 }
74 74
75 DEFBINOP (ldiv, sparse_matrix, scalar) 75 DEFBINOP (ldiv, sparse_matrix, scalar)
76 { 76 {
77 CAST_BINOP_ARGS (const octave_sparse_matrix&, const octave_scalar&); 77 CAST_BINOP_ARGS (octave_sparse_matrix&, const octave_scalar&);
78 78
79 SparseType typ = v1.sparse_type ();
79 SparseMatrix m1 = v1.sparse_matrix_value (); 80 SparseMatrix m1 = v1.sparse_matrix_value ();
80 Matrix m2 = Matrix (1, 1, v2.scalar_value ()); 81 Matrix m2 = Matrix (1, 1, v2.scalar_value ());
82 Matrix ret = xleftdiv (m1, m2, typ);
83 v1.sparse_type (typ);
81 84
82 return xleftdiv (m1, m2); 85 return ret;
83 } 86 }
84 87
85 DEFBINOP_FN (lt, sparse_matrix, scalar, mx_el_lt) 88 DEFBINOP_FN (lt, sparse_matrix, scalar, mx_el_lt)
86 DEFBINOP_FN (le, sparse_matrix, scalar, mx_el_le) 89 DEFBINOP_FN (le, sparse_matrix, scalar, mx_el_le)
87 DEFBINOP_FN (eq, sparse_matrix, scalar, mx_el_eq) 90 DEFBINOP_FN (eq, sparse_matrix, scalar, mx_el_eq)