GNU Octave  3.8.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
op-fcm-fcs.cc
Go to the documentation of this file.
1 /*
2 
3 Copyright (C) 1996-2013 John W. Eaton
4 
5 This file is part of Octave.
6 
7 Octave is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by the
9 Free Software Foundation; either version 3 of the License, or (at your
10 option) any later version.
11 
12 Octave is distributed in the hope that it will be useful, but WITHOUT
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 for more details.
16 
17 You should have received a copy of the GNU General Public License
18 along with Octave; see the file COPYING. If not, see
19 <http://www.gnu.org/licenses/>.
20 
21 */
22 
23 #ifdef HAVE_CONFIG_H
24 #include <config.h>
25 #endif
26 
27 #include "gripes.h"
28 #include "oct-obj.h"
29 #include "ov.h"
30 #include "ov-cx-mat.h"
31 #include "ov-flt-cx-mat.h"
32 #include "ov-flt-complex.h"
33 #include "ov-complex.h"
34 #include "ov-typeinfo.h"
35 #include "ops.h"
36 #include "xdiv.h"
37 #include "xpow.h"
38 
39 // complex matrix by complex scalar ops.
40 
41 DEFNDBINOP_OP (add, float_complex_matrix, float_complex,
42  float_complex_array, float_complex, +)
43 DEFNDBINOP_OP (sub, float_complex_matrix, float_complex,
44  float_complex_array, float_complex, -)
45 DEFNDBINOP_OP (mul, float_complex_matrix, float_complex,
46  float_complex_array, float_complex, *)
47 
48 DEFBINOP (div, float_complex_matrix, float_complex)
49 {
50  CAST_BINOP_ARGS (const octave_float_complex_matrix&,
51  const octave_float_complex&);
52 
53  FloatComplex d = v2.float_complex_value ();
54 
55  if (d == static_cast<float>(0.0))
56  gripe_divide_by_zero ();
57 
58  return octave_value (v1.float_complex_array_value () / d);
59 }
60 
61 DEFBINOP_FN (pow, float_complex_matrix, float_complex, xpow)
62 
63 DEFBINOP (ldiv, float_complex_matrix, float_complex)
64 {
65  CAST_BINOP_ARGS (const octave_float_complex_matrix&,
66  const octave_float_complex&);
67 
68  FloatComplexMatrix m1 = v1.float_complex_matrix_value ();
69  FloatComplexMatrix m2 = v2.float_complex_matrix_value ();
70  MatrixType typ = v1.matrix_type ();
71 
72  FloatComplexMatrix ret = xleftdiv (m1, m2, typ);
73  v1.matrix_type (typ);
74  return ret;
75 }
76 
77 DEFNDCMPLXCMPOP_FN (lt, float_complex_matrix, float_complex,
78  float_complex_array, float_complex, mx_el_lt)
79 DEFNDCMPLXCMPOP_FN (le, float_complex_matrix, float_complex,
80  float_complex_array, float_complex, mx_el_le)
81 DEFNDCMPLXCMPOP_FN (eq, float_complex_matrix, float_complex,
82  float_complex_array, float_complex, mx_el_eq)
83 DEFNDCMPLXCMPOP_FN (ge, float_complex_matrix, float_complex,
84  float_complex_array, float_complex, mx_el_ge)
85 DEFNDCMPLXCMPOP_FN (gt, float_complex_matrix, float_complex,
86  float_complex_array, float_complex, mx_el_gt)
87 DEFNDCMPLXCMPOP_FN (ne, float_complex_matrix, float_complex,
88  float_complex_array, float_complex, mx_el_ne)
89 
90 DEFNDBINOP_OP (el_mul, float_complex_matrix, float_complex,
91  float_complex_array, float_complex, *)
92 
93 DEFBINOP (el_div, float_complex_matrix, float_complex)
94 {
95  CAST_BINOP_ARGS (const octave_float_complex_matrix&,
96  const octave_float_complex&);
97 
98  FloatComplex d = v2.float_complex_value ();
99 
100  if (d == static_cast<float>(0.0))
101  gripe_divide_by_zero ();
102 
103  return octave_value (v1.float_complex_array_value () / d);
104 }
105 
106 DEFNDBINOP_FN (el_pow, float_complex_matrix, float_complex,
107  float_complex_array, float_complex, elem_xpow)
108 
109 DEFBINOP (el_ldiv, float_complex_matrix, float_complex)
110 {
111  CAST_BINOP_ARGS (const octave_float_complex_matrix&,
112  const octave_float_complex&);
113 
114  return x_el_div (v2.float_complex_value (), v1.float_complex_array_value ());
115 }
116 
117 DEFNDBINOP_FN (el_and, float_complex_matrix, float_complex,
118  float_complex_array, float_complex, mx_el_and)
119 DEFNDBINOP_FN (el_or, float_complex_matrix, float_complex,
120  float_complex_array, float_complex, mx_el_or)
121 
122 DEFNDCATOP_FN (fcm_fcs, float_complex_matrix, float_complex,
123  float_complex_array, float_complex_array, concat)
124 
125 DEFNDCATOP_FN (cm_fcs, complex_matrix, float_complex,
126  float_complex_array, float_complex_array, concat)
127 
128 DEFNDCATOP_FN (fcm_cs, float_complex_matrix, complex,
129  float_complex_array, float_complex_array, concat)
130 
131 DEFNDASSIGNOP_FN (assign, float_complex_matrix, float_complex,
132  float_complex, assign)
133 DEFNDASSIGNOP_FN (dbl_assign, complex_matrix, float_complex,
134  complex, assign)
135 
136 DEFNDASSIGNOP_OP (assign_add, float_complex_matrix, float_complex_scalar,
137  float_complex, +=)
138 DEFNDASSIGNOP_OP (assign_sub, float_complex_matrix, float_complex_scalar,
139  float_complex, -=)
140 DEFNDASSIGNOP_OP (assign_mul, float_complex_matrix, float_complex_scalar,
141  float_complex, *=)
142 DEFNDASSIGNOP_OP (assign_div, float_complex_matrix, float_complex_scalar,
143  float_complex, /=)
144 
145 void
146 install_fcm_fcs_ops (void)
147 {
148  INSTALL_BINOP (op_add, octave_float_complex_matrix,
149  octave_float_complex, add);
150  INSTALL_BINOP (op_sub, octave_float_complex_matrix,
151  octave_float_complex, sub);
152  INSTALL_BINOP (op_mul, octave_float_complex_matrix,
153  octave_float_complex, mul);
154  INSTALL_BINOP (op_div, octave_float_complex_matrix,
155  octave_float_complex, div);
156  INSTALL_BINOP (op_pow, octave_float_complex_matrix,
157  octave_float_complex, pow);
158  INSTALL_BINOP (op_ldiv, octave_float_complex_matrix,
159  octave_float_complex, ldiv);
160  INSTALL_BINOP (op_lt, octave_float_complex_matrix, octave_float_complex, lt);
161  INSTALL_BINOP (op_le, octave_float_complex_matrix, octave_float_complex, le);
162  INSTALL_BINOP (op_eq, octave_float_complex_matrix, octave_float_complex, eq);
163  INSTALL_BINOP (op_ge, octave_float_complex_matrix, octave_float_complex, ge);
164  INSTALL_BINOP (op_gt, octave_float_complex_matrix, octave_float_complex, gt);
165  INSTALL_BINOP (op_ne, octave_float_complex_matrix, octave_float_complex, ne);
166  INSTALL_BINOP (op_el_mul, octave_float_complex_matrix,
167  octave_float_complex, el_mul);
168  INSTALL_BINOP (op_el_div, octave_float_complex_matrix,
169  octave_float_complex, el_div);
170  INSTALL_BINOP (op_el_pow, octave_float_complex_matrix,
171  octave_float_complex, el_pow);
172  INSTALL_BINOP (op_el_ldiv, octave_float_complex_matrix,
173  octave_float_complex, el_ldiv);
174  INSTALL_BINOP (op_el_and, octave_float_complex_matrix,
175  octave_float_complex, el_and);
176  INSTALL_BINOP (op_el_or, octave_float_complex_matrix,
177  octave_float_complex, el_or);
178 
179  INSTALL_CATOP (octave_float_complex_matrix, octave_float_complex, fcm_fcs);
180  INSTALL_CATOP (octave_complex_matrix, octave_float_complex, cm_fcs);
181  INSTALL_CATOP (octave_float_complex_matrix, octave_complex, fcm_cs);
182 
183  INSTALL_ASSIGNOP (op_asn_eq, octave_float_complex_matrix,
184  octave_float_complex, assign);
185  INSTALL_ASSIGNOP (op_asn_eq, octave_complex_matrix,
186  octave_float_complex, dbl_assign);
187 
188  INSTALL_ASSIGNOP (op_add_eq, octave_float_complex_matrix,
189  octave_float_complex_scalar, assign_add);
190  INSTALL_ASSIGNOP (op_sub_eq, octave_float_complex_matrix,
191  octave_float_complex_scalar, assign_sub);
192  INSTALL_ASSIGNOP (op_mul_eq, octave_float_complex_matrix,
193  octave_float_complex_scalar, assign_mul);
194  INSTALL_ASSIGNOP (op_div_eq, octave_float_complex_matrix,
195  octave_float_complex_scalar, assign_div);
196 }
Generated on Mon Dec 30 2013 03:04:35 for GNU Octave by   doxygen 1.8.1.2