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 {
51  const octave_float_complex&);
52 
54 
55  if (d == static_cast<float>(0.0))
57 
59 }
60 
61 DEFBINOP_FN (pow, float_complex_matrix, float_complex, xpow)
62 
63 DEFBINOP (ldiv, float_complex_matrix, float_complex)
64 {
66  const octave_float_complex&);
67 
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 {
96  const octave_float_complex&);
97 
99 
100  if (d == static_cast<float>(0.0))
102 
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 {
112  const octave_float_complex&);
113 
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
147 {
149  octave_float_complex, add);
151  octave_float_complex, sub);
153  octave_float_complex, mul);
155  octave_float_complex, div);
159  octave_float_complex, ldiv);
167  octave_float_complex, el_mul);
169  octave_float_complex, el_div);
171  octave_float_complex, el_pow);
173  octave_float_complex, el_ldiv);
175  octave_float_complex, el_and);
177  octave_float_complex, el_or);
178 
182 
184  octave_float_complex, assign);
186  octave_float_complex, dbl_assign);
187 
189  octave_float_complex_scalar, assign_add);
191  octave_float_complex_scalar, assign_sub);
193  octave_float_complex_scalar, assign_mul);
195  octave_float_complex_scalar, assign_div);
196 }