Mercurial > octave

comparison src/OPERATORS/op-fcm-fs.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
72 72
73 v1.matrix_type (typ); 73 v1.matrix_type (typ);
74 return ret; 74 return ret;
75 } 75 }
76 76
77 DEFNDCMPLXCMPOP_FN (lt, float_complex_matrix, float_scalar, float_complex_array, 77 DEFNDCMPLXCMPOP_FN (lt, float_complex_matrix, float_scalar, float_complex_array,
78 float_scalar, mx_el_lt) 78 float_scalar, mx_el_lt)
79 DEFNDCMPLXCMPOP_FN (le, float_complex_matrix, float_scalar, float_complex_array, 79 DEFNDCMPLXCMPOP_FN (le, float_complex_matrix, float_scalar, float_complex_array,
80 float_scalar, mx_el_le) 80 float_scalar, mx_el_le)
81 DEFNDCMPLXCMPOP_FN (eq, float_complex_matrix, float_scalar, float_complex_array, 81 DEFNDCMPLXCMPOP_FN (eq, float_complex_matrix, float_scalar, float_complex_array,
82 float_scalar, mx_el_eq) 82 float_scalar, mx_el_eq)
83 DEFNDCMPLXCMPOP_FN (ge, float_complex_matrix, float_scalar, float_complex_array, 83 DEFNDCMPLXCMPOP_FN (ge, float_complex_matrix, float_scalar, float_complex_array,
84 float_scalar, mx_el_ge) 84 float_scalar, mx_el_ge)
85 DEFNDCMPLXCMPOP_FN (gt, float_complex_matrix, float_scalar, float_complex_array, 85 DEFNDCMPLXCMPOP_FN (gt, float_complex_matrix, float_scalar, float_complex_array,
86 float_scalar, mx_el_gt) 86 float_scalar, mx_el_gt)
87 DEFNDCMPLXCMPOP_FN (ne, float_complex_matrix, float_scalar, float_complex_array, 87 DEFNDCMPLXCMPOP_FN (ne, float_complex_matrix, float_scalar, float_complex_array,
88 float_scalar, mx_el_ne) 88 float_scalar, mx_el_ne)
89 89
90 DEFNDBINOP_OP (el_mul, float_complex_matrix, float_scalar, float_complex_array, 90 DEFNDBINOP_OP (el_mul, float_complex_matrix, float_scalar, float_complex_array,
91 float_scalar, *) 91 float_scalar, *)
92 92
93 DEFBINOP (el_div, float_complex_matrix, float) 93 DEFBINOP (el_div, float_complex_matrix, float)
94 { 94 {
95 CAST_BINOP_ARGS (const octave_float_complex_matrix&, const octave_float_scalar&); 95 CAST_BINOP_ARGS (const octave_float_complex_matrix&, const octave_float_scalar&);
100 gripe_divide_by_zero (); 100 gripe_divide_by_zero ();
101 101
102 return octave_value (v1.float_complex_array_value () / d); 102 return octave_value (v1.float_complex_array_value () / d);
103 } 103 }
104 104
105 DEFNDBINOP_FN (el_pow, float_complex_matrix, float_scalar, float_complex_array, 105 DEFNDBINOP_FN (el_pow, float_complex_matrix, float_scalar, float_complex_array,
106 float_scalar, elem_xpow) 106 float_scalar, elem_xpow)
107 107
108 DEFBINOP (el_ldiv, float_complex_matrix, float) 108 DEFBINOP (el_ldiv, float_complex_matrix, float)
109 { 109 {
110 CAST_BINOP_ARGS (const octave_float_complex_matrix&, const octave_float_scalar&); 110 CAST_BINOP_ARGS (const octave_float_complex_matrix&, const octave_float_scalar&);
111 111
112 return x_el_div (v2.float_value (), v1.float_complex_array_value ()); 112 return x_el_div (v2.float_value (), v1.float_complex_array_value ());
113 } 113 }
114 114
115 DEFNDBINOP_FN (el_and, float_complex_matrix, float_scalar, float_complex_array, 115 DEFNDBINOP_FN (el_and, float_complex_matrix, float_scalar, float_complex_array,
116 float_scalar, mx_el_and) 116 float_scalar, mx_el_and)
117 DEFNDBINOP_FN (el_or, float_complex_matrix, float_scalar, float_complex_array, 117 DEFNDBINOP_FN (el_or, float_complex_matrix, float_scalar, float_complex_array,
118 float_scalar, mx_el_or) 118 float_scalar, mx_el_or)
119 119
120 DEFNDCATOP_FN (fcm_fs, float_complex_matrix, float_scalar, float_complex_array, 120 DEFNDCATOP_FN (fcm_fs, float_complex_matrix, float_scalar, float_complex_array,
121 float_array, concat) 121 float_array, concat)
122 122
123 DEFNDCATOP_FN (cm_fs, complex_matrix, float_scalar, float_complex_array, 123 DEFNDCATOP_FN (cm_fs, complex_matrix, float_scalar, float_complex_array,
124 float_array, concat) 124 float_array, concat)
125 125
126 DEFNDCATOP_FN (fcm_s, float_complex_matrix, scalar, float_complex_array, 126 DEFNDCATOP_FN (fcm_s, float_complex_matrix, scalar, float_complex_array,
127 float_array, concat) 127 float_array, concat)
128 128
129 DEFNDASSIGNOP_FN (assign, float_complex_matrix, float_scalar, float_complex_array, assign) 129 DEFNDASSIGNOP_FN (assign, float_complex_matrix, float_scalar, float_complex_array, assign)
130 DEFNDASSIGNOP_FN (dbl_assign, complex_matrix, float_scalar, complex_array, assign) 130 DEFNDASSIGNOP_FN (dbl_assign, complex_matrix, float_scalar, complex_array, assign)
131 131
158 158
159 INSTALL_CATOP (octave_float_complex_matrix, octave_float_scalar, fcm_fs); 159 INSTALL_CATOP (octave_float_complex_matrix, octave_float_scalar, fcm_fs);
160 INSTALL_CATOP (octave_complex_matrix, octave_float_scalar, cm_fs); 160 INSTALL_CATOP (octave_complex_matrix, octave_float_scalar, cm_fs);
161 INSTALL_CATOP (octave_float_complex_matrix, octave_scalar, fcm_s); 161 INSTALL_CATOP (octave_float_complex_matrix, octave_scalar, fcm_s);
162 162
163 INSTALL_ASSIGNOP (op_asn_eq, octave_float_complex_matrix, 163 INSTALL_ASSIGNOP (op_asn_eq, octave_float_complex_matrix,
164 octave_float_scalar, assign); 164 octave_float_scalar, assign);
165 INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix, 165 INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix,
166 octave_float_scalar, dbl_assign); 166 octave_float_scalar, dbl_assign);
167 167
168 INSTALL_ASSIGNOP (op_mul_eq, octave_float_complex_matrix, 168 INSTALL_ASSIGNOP (op_mul_eq, octave_float_complex_matrix,
169 octave_float_scalar, assign_mul); 169 octave_float_scalar, assign_mul);
170 INSTALL_ASSIGNOP (op_div_eq, octave_float_complex_matrix, 170 INSTALL_ASSIGNOP (op_div_eq, octave_float_complex_matrix,