Mercurial > octave

comparison src/OPERATORS/op-scm-cs.cc @ 11586:12df7854fa7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strip trailing whitespace from source files
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 17:24:59 -0500
parents fd0a3ac60b0e
children 72c96de7a403
comparison
equal deleted inserted replaced
11585:1473d0cf86d2 11586:12df7854fa7c
44 DEFBINOP_OP (sub, sparse_complex_matrix, complex, -) 44 DEFBINOP_OP (sub, sparse_complex_matrix, complex, -)
45 DEFBINOP_OP (mul, sparse_complex_matrix, complex, *) 45 DEFBINOP_OP (mul, sparse_complex_matrix, complex, *)
46 46
47 DEFBINOP (div, sparse_complex_matrix, complex) 47 DEFBINOP (div, sparse_complex_matrix, complex)
48 { 48 {
49 CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, 49 CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
50 const octave_complex&); 50 const octave_complex&);
51 51
52 Complex d = v2.complex_value (); 52 Complex d = v2.complex_value ();
53 octave_value retval; 53 octave_value retval;
54 54
60 return retval; 60 return retval;
61 } 61 }
62 62
63 DEFBINOP (pow, sparse_complex_matrix, complex) 63 DEFBINOP (pow, sparse_complex_matrix, complex)
64 { 64 {
65 CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, 65 CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
66 const octave_complex&); 66 const octave_complex&);
67 return xpow (v1.complex_matrix_value (), v2.complex_value ()); 67 return xpow (v1.complex_matrix_value (), v2.complex_value ());
68 } 68 }
69 69
70 DEFBINOP (ldiv, sparse_complex_matrix, complex) 70 DEFBINOP (ldiv, sparse_complex_matrix, complex)
100 100
101 DEFBINOP_OP (el_mul, sparse_complex_matrix, complex, *) 101 DEFBINOP_OP (el_mul, sparse_complex_matrix, complex, *)
102 102
103 DEFBINOP (el_div, sparse_complex_matrix, complex) 103 DEFBINOP (el_div, sparse_complex_matrix, complex)
104 { 104 {
105 CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, 105 CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
106 const octave_complex&); 106 const octave_complex&);
107 107
108 octave_value retval; 108 octave_value retval;
109 109
110 Complex d = v2.complex_value (); 110 Complex d = v2.complex_value ();
119 119
120 DEFBINOP_FN (el_pow, sparse_complex_matrix, complex, elem_xpow) 120 DEFBINOP_FN (el_pow, sparse_complex_matrix, complex, elem_xpow)
121 121
122 DEFBINOP (el_ldiv, sparse_complex_matrix, complex) 122 DEFBINOP (el_ldiv, sparse_complex_matrix, complex)
123 { 123 {
124 CAST_BINOP_ARGS (const octave_sparse_complex_matrix&, 124 CAST_BINOP_ARGS (const octave_sparse_complex_matrix&,
125 const octave_complex&); 125 const octave_complex&);
126 126
127 return octave_value 127 return octave_value
128 (x_el_div (v2.complex_value (), v1.sparse_complex_matrix_value ())); 128 (x_el_div (v2.complex_value (), v1.sparse_complex_matrix_value ()));
129 } 129 }
154 INSTALL_BINOP (op_add, octave_sparse_complex_matrix, octave_complex, add); 154 INSTALL_BINOP (op_add, octave_sparse_complex_matrix, octave_complex, add);
155 INSTALL_BINOP (op_sub, octave_sparse_complex_matrix, octave_complex, sub); 155 INSTALL_BINOP (op_sub, octave_sparse_complex_matrix, octave_complex, sub);
156 INSTALL_BINOP (op_mul, octave_sparse_complex_matrix, octave_complex, mul); 156 INSTALL_BINOP (op_mul, octave_sparse_complex_matrix, octave_complex, mul);
157 INSTALL_BINOP (op_div, octave_sparse_complex_matrix, octave_complex, div); 157 INSTALL_BINOP (op_div, octave_sparse_complex_matrix, octave_complex, div);
158 INSTALL_BINOP (op_pow, octave_sparse_complex_matrix, octave_complex, pow); 158 INSTALL_BINOP (op_pow, octave_sparse_complex_matrix, octave_complex, pow);
159 INSTALL_BINOP (op_ldiv, octave_sparse_complex_matrix, octave_complex, 159 INSTALL_BINOP (op_ldiv, octave_sparse_complex_matrix, octave_complex,
160 ldiv); 160 ldiv);
161 INSTALL_BINOP (op_lt, octave_sparse_complex_matrix, octave_complex, lt); 161 INSTALL_BINOP (op_lt, octave_sparse_complex_matrix, octave_complex, lt);
162 INSTALL_BINOP (op_le, octave_sparse_complex_matrix, octave_complex, le); 162 INSTALL_BINOP (op_le, octave_sparse_complex_matrix, octave_complex, le);
163 INSTALL_BINOP (op_eq, octave_sparse_complex_matrix, octave_complex, eq); 163 INSTALL_BINOP (op_eq, octave_sparse_complex_matrix, octave_complex, eq);
164 INSTALL_BINOP (op_ge, octave_sparse_complex_matrix, octave_complex, ge); 164 INSTALL_BINOP (op_ge, octave_sparse_complex_matrix, octave_complex, ge);
165 INSTALL_BINOP (op_gt, octave_sparse_complex_matrix, octave_complex, gt); 165 INSTALL_BINOP (op_gt, octave_sparse_complex_matrix, octave_complex, gt);
166 INSTALL_BINOP (op_ne, octave_sparse_complex_matrix, octave_complex, ne); 166 INSTALL_BINOP (op_ne, octave_sparse_complex_matrix, octave_complex, ne);
167 INSTALL_BINOP (op_el_mul, octave_sparse_complex_matrix, octave_complex, 167 INSTALL_BINOP (op_el_mul, octave_sparse_complex_matrix, octave_complex,
168 el_mul); 168 el_mul);
169 INSTALL_BINOP (op_el_div, octave_sparse_complex_matrix, octave_complex, 169 INSTALL_BINOP (op_el_div, octave_sparse_complex_matrix, octave_complex,
170 el_div); 170 el_div);
171 INSTALL_BINOP (op_el_pow, octave_sparse_complex_matrix, octave_complex, 171 INSTALL_BINOP (op_el_pow, octave_sparse_complex_matrix, octave_complex,
172 el_pow); 172 el_pow);
173 INSTALL_BINOP (op_el_ldiv, octave_sparse_complex_matrix, octave_complex, 173 INSTALL_BINOP (op_el_ldiv, octave_sparse_complex_matrix, octave_complex,
174 el_ldiv); 174 el_ldiv);
175 INSTALL_BINOP (op_el_and, octave_sparse_complex_matrix, octave_complex, 175 INSTALL_BINOP (op_el_and, octave_sparse_complex_matrix, octave_complex,
176 el_and); 176 el_and);
177 INSTALL_BINOP (op_el_or, octave_sparse_complex_matrix, octave_complex, 177 INSTALL_BINOP (op_el_or, octave_sparse_complex_matrix, octave_complex,
178 el_or); 178 el_or);
179 179
180 INSTALL_CATOP (octave_sparse_complex_matrix, octave_complex, scm_cs); 180 INSTALL_CATOP (octave_sparse_complex_matrix, octave_complex, scm_cs);
181 181
182 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_complex_matrix, octave_complex, 182 INSTALL_ASSIGNOP (op_asn_eq, octave_sparse_complex_matrix, octave_complex,