Mercurial > octave-nkf

comparison src/OPERATORS/op-s-cm.cc @ 7275:c099705f1aa7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-10 18:54:37 by jwe]
author jwe
date Mon, 10 Dec 2007 18:54:37 +0000
parents a1dbe9d80eee
children 82be108cc558
comparison
equal deleted inserted replaced
7274:44fdc33e5207 7275:c099705f1aa7
96 gripe_divide_by_zero (); 96 gripe_divide_by_zero ();
97 97
98 return octave_value (v2.complex_array_value () / d); 98 return octave_value (v2.complex_array_value () / d);
99 } 99 }
100 100
101 DEFBINOP (el_and, scalar, complex_matrix) 101 DEFNDBINOP_FN (el_and, scalar, complex_matrix, scalar, complex_array, mx_el_and)
102 { 102 DEFNDBINOP_FN (el_or, scalar, complex_matrix, scalar, complex_array, mx_el_or)
103 CAST_BINOP_ARGS (const octave_scalar&, const octave_complex_matrix&);
104
105 return mx_el_and (v1.double_value (), v2.complex_array_value ());
106 }
107
108 DEFBINOP (el_or, scalar, complex_matrix)
109 {
110 CAST_BINOP_ARGS (const octave_scalar&, const octave_complex_matrix&);
111
112 return mx_el_or (v1.double_value (), v2.complex_array_value ());
113 }
114 103
115 DEFNDCATOP_FN (s_cm, scalar, complex_matrix, array, complex_array, concat) 104 DEFNDCATOP_FN (s_cm, scalar, complex_matrix, array, complex_array, concat)
116 105
117 DEFCONV (complex_matrix_conv, scalar, complex_matrix) 106 DEFCONV (complex_matrix_conv, scalar, complex_matrix)
118 { 107 {