Mercurial > hg > octave-lyh

comparison src/OPERATORS/op-cs-scm.cc @ 5760:8d7162924bd3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-04-14 04:01:37 by jwe]
author jwe
date Fri, 14 Apr 2006 04:01:40 +0000
parents 22994a5730f9
children 6b9cec830d72
comparison
equal deleted inserted replaced
5759:ce79d238f142 5760:8d7162924bd3
43 DEFBINOP_OP (sub, complex, sparse_complex_matrix, -) 43 DEFBINOP_OP (sub, complex, sparse_complex_matrix, -)
44 DEFBINOP_OP (mul, complex, sparse_complex_matrix, *) 44 DEFBINOP_OP (mul, complex, sparse_complex_matrix, *)
45 45
46 DEFBINOP (div, complex, sparse_complex_matrix) 46 DEFBINOP (div, complex, sparse_complex_matrix)
47 { 47 {
48 CAST_BINOP_ARGS (const octave_complex&, octave_sparse_complex_matrix&); 48 CAST_BINOP_ARGS (const octave_complex&, const octave_sparse_complex_matrix&);
49 49
50 SparseType typ = v2.sparse_type (); 50 SparseType typ = v2.sparse_type ();
51 ComplexMatrix m1 = ComplexMatrix (1, 1, v1.complex_value ()); 51 ComplexMatrix m1 = ComplexMatrix (1, 1, v1.complex_value ());
52 SparseComplexMatrix m2 = v2.sparse_complex_matrix_value (); 52 SparseComplexMatrix m2 = v2.sparse_complex_matrix_value ();
53 ComplexMatrix ret = xdiv (m1, m2, typ); 53 ComplexMatrix ret = xdiv (m1, m2, typ);