Mercurial > octave-nkf

comparison src/OPERATORS/op-s-cm.cc @ 5785:6b9cec830d72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-05-03 19:32:46 by dbateman]
author dbateman
date Wed, 03 May 2006 19:32:48 +0000
parents 4c8a2e4e0717
children 93c65f2a5668
comparison
equal deleted inserted replaced
5784:70f7659d0fb9 5785:6b9cec830d72
51 { 51 {
52 CAST_BINOP_ARGS (const octave_scalar&, const octave_complex_matrix&); 52 CAST_BINOP_ARGS (const octave_scalar&, const octave_complex_matrix&);
53 53
54 Matrix m1 = v1.matrix_value (); 54 Matrix m1 = v1.matrix_value ();
55 ComplexMatrix m2 = v2.complex_matrix_value (); 55 ComplexMatrix m2 = v2.complex_matrix_value ();
56 MatrixType typ = v2.matrix_type ();
56 57
57 return octave_value (xdiv (m1, m2)); 58 ComplexMatrix ret = xdiv (m1, m2, typ);
59
60 v2.matrix_type (typ);
61 return ret;
58 } 62 }
59 63
60 DEFBINOP_FN (pow, scalar, complex_matrix, xpow) 64 DEFBINOP_FN (pow, scalar, complex_matrix, xpow)
61 65
62 DEFBINOP (ldiv, scalar, complex_matrix) 66 DEFBINOP (ldiv, scalar, complex_matrix)