Mercurial > octave

comparison src/OPERATORS/op-cm-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 2042301733ce
comparison
equal deleted inserted replaced
5321:84b72a402b86 5322:22994a5730f9
53 return octave_value (v1.complex_matrix_value() * tmp); 53 return octave_value (v1.complex_matrix_value() * tmp);
54 } 54 }
55 55
56 DEFBINOP (div, complex_matrix, sparse_matrix) 56 DEFBINOP (div, complex_matrix, sparse_matrix)
57 { 57 {
58 CAST_BINOP_ARGS (const octave_complex_matrix&, 58 CAST_BINOP_ARGS (const octave_complex_matrix&, octave_sparse_matrix&);
59 const octave_sparse_matrix&);
60 59
61 return xdiv (v1.complex_matrix_value (), v2.sparse_matrix_value ()); 60 SparseType typ = v2.sparse_type ();
61
62 ComplexMatrix ret = xdiv (v1.complex_matrix_value (),
63 v2.sparse_matrix_value (), typ);
64
65 v2.sparse_type (typ);
66 return ret;
62 } 67 }
63 68
64 DEFBINOPX (pow, complex_matrix, sparse_matrix) 69 DEFBINOPX (pow, complex_matrix, sparse_matrix)
65 { 70 {
66 error ("can't do A ^ B for A and B both matrices"); 71 error ("can't do A ^ B for A and B both matrices");