Mercurial > octave

comparison src/OPERATORS/op-cs-sm.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
45 DEFBINOP_OP (sub, complex, sparse_matrix, -) 45 DEFBINOP_OP (sub, complex, sparse_matrix, -)
46 DEFBINOP_OP (mul, complex, sparse_matrix, *) 46 DEFBINOP_OP (mul, complex, sparse_matrix, *)
47 47
48 DEFBINOP (div, complex, sparse_matrix) 48 DEFBINOP (div, complex, sparse_matrix)
49 { 49 {
50 CAST_BINOP_ARGS (const octave_complex&, const octave_sparse_matrix&); 50 CAST_BINOP_ARGS (const octave_complex&, octave_sparse_matrix&);
51 51
52 SparseType typ = v2.sparse_type ();
52 ComplexMatrix m1 = ComplexMatrix (1, 1, v1.complex_value ()); 53 ComplexMatrix m1 = ComplexMatrix (1, 1, v1.complex_value ());
53 SparseMatrix m2 = v2.sparse_matrix_value (); 54 SparseMatrix m2 = v2.sparse_matrix_value ();
55 ComplexMatrix ret = xdiv (m1, m2, typ);
56 v2.sparse_type (typ);
54 57
55 return xdiv (m1, m2); 58 return ret;
56 } 59 }
57 60
58 DEFBINOP (pow, complex, sparse_matrix) 61 DEFBINOP (pow, complex, sparse_matrix)
59 { 62 {
60 CAST_BINOP_ARGS (const octave_complex&, const octave_sparse_matrix&); 63 CAST_BINOP_ARGS (const octave_complex&, const octave_sparse_matrix&);