Mercurial > hg > octave-avbm

comparison src/op-cm-cs.cc @ 2825:60ae49e1284f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-03-25 23:17:36 by jwe]
author jwe
date Tue, 25 Mar 1997 23:32:15 +0000
parents 5bcee07be597
children 8b262e771614
comparison
equal deleted inserted replaced
2824:e56a90687a1e 2825:60ae49e1284f
100 static octave_value 100 static octave_value
101 lt (const octave_value& a1, const octave_value& a2) 101 lt (const octave_value& a1, const octave_value& a2)
102 { 102 {
103 CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&); 103 CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&);
104 104
105 BOOL_OP (<, Matrix ()); 105 BOOL_OP (<, boolMatrix ());
106 } 106 }
107 107
108 static octave_value 108 static octave_value
109 le (const octave_value& a1, const octave_value& a2) 109 le (const octave_value& a1, const octave_value& a2)
110 { 110 {
111 CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&); 111 CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&);
112 112
113 BOOL_OP (<=, Matrix ()); 113 BOOL_OP (<=, boolMatrix ());
114 } 114 }
115 115
116 static octave_value 116 static octave_value
117 eq (const octave_value& a1, const octave_value& a2) 117 eq (const octave_value& a1, const octave_value& a2)
118 { 118 {
126 static octave_value 126 static octave_value
127 ge (const octave_value& a1, const octave_value& a2) 127 ge (const octave_value& a1, const octave_value& a2)
128 { 128 {
129 CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&); 129 CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&);
130 130
131 BOOL_OP (>=, Matrix ()); 131 BOOL_OP (>=, boolMatrix ());
132 } 132 }
133 133
134 static octave_value 134 static octave_value
135 gt (const octave_value& a1, const octave_value& a2) 135 gt (const octave_value& a1, const octave_value& a2)
136 { 136 {
137 CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&); 137 CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&);
138 138
139 BOOL_OP (>, Matrix ()); 139 BOOL_OP (>, boolMatrix ());
140 } 140 }
141 141
142 static octave_value 142 static octave_value
143 ne (const octave_value& a1, const octave_value& a2) 143 ne (const octave_value& a1, const octave_value& a2)
144 { 144 {
191 { 191 {
192 CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&); 192 CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&);
193 193
194 MX_SC_BOOL_OP (ComplexMatrix, m, v1.complex_matrix_value (), 194 MX_SC_BOOL_OP (ComplexMatrix, m, v1.complex_matrix_value (),
195 Complex, s, v2.complex_value (), 195 Complex, s, v2.complex_value (),
196 m (i, j) != 0.0 && s != 0.0, Matrix ()); 196 m (i, j) != 0.0 && s != 0.0, boolMatrix ());
197 } 197 }
198 198
199 static octave_value 199 static octave_value
200 el_or (const octave_value& a1, const octave_value& a2) 200 el_or (const octave_value& a1, const octave_value& a2)
201 { 201 {
202 CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&); 202 CAST_BINOP_ARGS (const octave_complex_matrix&, const octave_complex&);
203 203
204 MX_SC_BOOL_OP (ComplexMatrix, m, v1.complex_matrix_value (), 204 MX_SC_BOOL_OP (ComplexMatrix, m, v1.complex_matrix_value (),
205 Complex, s, v2.complex_value (), 205 Complex, s, v2.complex_value (),
206 m (i, j) != 0.0 || s != 0.0, Matrix ()); 206 m (i, j) != 0.0 || s != 0.0, boolMatrix ());
207 } 207 }
208 208
209 static octave_value 209 static octave_value
210 assign (octave_value& a1, const octave_value_list& idx, 210 assign (octave_value& a1, const octave_value_list& idx,
211 const octave_value& a2) 211 const octave_value& a2)