Mercurial > hg > octave-avbm

comparison src/OPERATORS/op-cm-s.cc @ 3766:df962bbf1788

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2001-01-29 14:33:07 by jwe]
author jwe
date Mon, 29 Jan 2001 14:33:08 +0000
parents 0ff7323dab8b
children 7690958e7726
comparison
equal deleted inserted replaced
3765:e10451597802 3766:df962bbf1788
31 #include "mx-cm-s.h" 31 #include "mx-cm-s.h"
32 32
33 #include "gripes.h" 33 #include "gripes.h"
34 #include "ov.h" 34 #include "ov.h"
35 #include "ov-cx-mat.h" 35 #include "ov-cx-mat.h"
36 #include "ov-re-mat.h"
36 #include "ov-scalar.h" 37 #include "ov-scalar.h"
37 #include "ov-typeinfo.h" 38 #include "ov-typeinfo.h"
38 #include "ops.h" 39 #include "ops.h"
39 #include "xdiv.h" 40 #include "xdiv.h"
40 #include "xpow.h" 41 #include "xpow.h"
59 60
60 DEFBINOP_FN (pow, complex_matrix, scalar, xpow) 61 DEFBINOP_FN (pow, complex_matrix, scalar, xpow)
61 62
62 DEFBINOP (ldiv, complex_matrix, scalar) 63 DEFBINOP (ldiv, complex_matrix, scalar)
63 { 64 {
64 BINOP_NONCONFORMANT ("operator \\"); 65 CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_scalar&);
66
67 ComplexMatrix m1 = v1.complex_matrix_value ();
68 Matrix m2 = v2.matrix_value ();
69
70 return octave_value (xleftdiv (m1, m2));
65 } 71 }
66 72
67 DEFBINOP_FN (lt, complex_matrix, scalar, mx_el_lt) 73 DEFBINOP_FN (lt, complex_matrix, scalar, mx_el_lt)
68 DEFBINOP_FN (le, complex_matrix, scalar, mx_el_le) 74 DEFBINOP_FN (le, complex_matrix, scalar, mx_el_le)
69 DEFBINOP_FN (eq, complex_matrix, scalar, mx_el_eq) 75 DEFBINOP_FN (eq, complex_matrix, scalar, mx_el_eq)