GNU Octave  8.1.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
op-fcm-fcs.cc
Go to the documentation of this file.
1 ////////////////////////////////////////////////////////////////////////
2 //
3 // Copyright (C) 1996-2023 The Octave Project Developers
4 //
5 // See the file COPYRIGHT.md in the top-level directory of this
6 // distribution or <https://octave.org/copyright/>.
7 //
8 // This file is part of Octave.
9 //
10 // Octave is free software: you can redistribute it and/or modify it
11 // under the terms of the GNU General Public License as published by
12 // the Free Software Foundation, either version 3 of the License, or
13 // (at your option) any later version.
14 //
15 // Octave is distributed in the hope that it will be useful, but
16 // WITHOUT ANY WARRANTY; without even the implied warranty of
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 // GNU General Public License for more details.
19 //
20 // You should have received a copy of the GNU General Public License
21 // along with Octave; see the file COPYING. If not, see
22 // <https://www.gnu.org/licenses/>.
23 //
24 ////////////////////////////////////////////////////////////////////////
25 
26 #if defined (HAVE_CONFIG_H)
27 # include "config.h"
28 #endif
29 
30 #include "ovl.h"
31 #include "ov.h"
32 #include "ov-cx-mat.h"
33 #include "ov-flt-cx-mat.h"
34 #include "ov-flt-complex.h"
35 #include "ov-complex.h"
36 #include "ov-typeinfo.h"
37 #include "ops.h"
38 #include "xdiv.h"
39 #include "xpow.h"
40 
42 
43 // complex matrix by complex scalar ops.
44 
45 DEFNDBINOP_OP (add, float_complex_matrix, float_complex,
46  float_complex_array, float_complex, +)
47 DEFNDBINOP_OP (sub, float_complex_matrix, float_complex,
48  float_complex_array, float_complex, -)
49 DEFNDBINOP_OP (mul, float_complex_matrix, float_complex,
50  float_complex_array, float_complex, *)
51 
52 DEFBINOP (div, float_complex_matrix, float_complex)
53 {
55  = dynamic_cast<const octave_float_complex_matrix&> (a1);
57  = dynamic_cast<const octave_float_complex&> (a2);
58 
60 }
61 
62 DEFBINOP_FN (pow, float_complex_matrix, float_complex, xpow)
63 
64 DEFBINOP (ldiv, float_complex_matrix, float_complex)
65 {
67  = dynamic_cast<const octave_float_complex_matrix&> (a1);
69  = dynamic_cast<const octave_float_complex&> (a2);
70 
73  MatrixType typ = v1.matrix_type ();
74 
75  FloatComplexMatrix ret = xleftdiv (m1, m2, typ);
76  v1.matrix_type (typ);
77  return ret;
78 }
79 
80 DEFNDCMPLXCMPOP_FN (lt, float_complex_matrix, float_complex,
81  float_complex_array, float_complex, mx_el_lt)
82 DEFNDCMPLXCMPOP_FN (le, float_complex_matrix, float_complex,
83  float_complex_array, float_complex, mx_el_le)
84 DEFNDCMPLXCMPOP_FN (eq, float_complex_matrix, float_complex,
85  float_complex_array, float_complex, mx_el_eq)
86 DEFNDCMPLXCMPOP_FN (ge, float_complex_matrix, float_complex,
87  float_complex_array, float_complex, mx_el_ge)
88 DEFNDCMPLXCMPOP_FN (gt, float_complex_matrix, float_complex,
89  float_complex_array, float_complex, mx_el_gt)
90 DEFNDCMPLXCMPOP_FN (ne, float_complex_matrix, float_complex,
91  float_complex_array, float_complex, mx_el_ne)
92 
93 DEFNDBINOP_OP (el_mul, float_complex_matrix, float_complex,
94  float_complex_array, float_complex, *)
95 
96 DEFBINOP (el_div, float_complex_matrix, float_complex)
97 {
99  = dynamic_cast<const octave_float_complex_matrix&> (a1);
100  const octave_float_complex& v2
101  = dynamic_cast<const octave_float_complex&> (a2);
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  = dynamic_cast<const octave_float_complex_matrix&> (a1);
113  const octave_float_complex& v2
114  = dynamic_cast<const octave_float_complex&> (a2);
115 
117 }
118 
119 DEFNDBINOP_FN (el_and, float_complex_matrix, float_complex,
120  float_complex_array, float_complex, mx_el_and)
121 DEFNDBINOP_FN (el_or, float_complex_matrix, float_complex,
122  float_complex_array, float_complex, mx_el_or)
123 
124 DEFNDCATOP_FN (fcm_fcs, float_complex_matrix, float_complex,
125  float_complex_array, float_complex_array, concat)
126 
127 DEFNDCATOP_FN (cm_fcs, complex_matrix, float_complex,
128  float_complex_array, float_complex_array, concat)
129 
130 DEFNDCATOP_FN (fcm_cs, float_complex_matrix, complex,
131  float_complex_array, float_complex_array, concat)
132 
133 DEFNDASSIGNOP_FN (assign, float_complex_matrix, float_complex,
134  float_complex, assign)
135 DEFNDASSIGNOP_FN (dbl_assign, complex_matrix, float_complex,
136  complex, assign)
137 
138 DEFNDASSIGNOP_OP (assign_add, float_complex_matrix, float_complex_scalar,
139  float_complex, +=)
140 DEFNDASSIGNOP_OP (assign_sub, float_complex_matrix, float_complex_scalar,
141  float_complex, -=)
142 DEFNDASSIGNOP_OP (assign_mul, float_complex_matrix, float_complex_scalar,
143  float_complex, *=)
144 DEFNDASSIGNOP_OP (assign_div, float_complex_matrix, float_complex_scalar,
145  float_complex, /=)
146 
147 void
149 {
151  octave_float_complex, add);
153  octave_float_complex, sub);
155  octave_float_complex, mul);
157  octave_float_complex, div);
161  octave_float_complex, ldiv);
163  lt);
165  le);
167  eq);
169  ge);
171  gt);
173  ne);
175  octave_float_complex, el_mul);
177  octave_float_complex, el_div);
179  octave_float_complex, el_pow);
181  octave_float_complex, el_ldiv);
183  octave_float_complex, el_and);
185  octave_float_complex, el_or);
186 
188  fcm_fcs);
191 
193  octave_float_complex, assign);
195  octave_float_complex, dbl_assign);
196 
198  octave_float_complex_scalar, assign_add);
200  octave_float_complex_scalar, assign_sub);
202  octave_float_complex_scalar, assign_mul);
204  octave_float_complex_scalar, assign_div);
205 }
206 
OCTAVE_END_NAMESPACE(octave)
ComplexNDArray concat(NDArray &ra, ComplexNDArray &rb, const Array< octave_idx_type > &ra_idx)
Definition: CNDArray.cc:418
boolMatrix mx_el_le(const boolMatrix &m1, const boolMatrix &m2)
Definition: boolMatrix.cc:91
boolMatrix mx_el_ne(const boolMatrix &m1, const boolMatrix &m2)
Definition: boolMatrix.cc:91
boolMatrix mx_el_or(const boolMatrix &m1, const boolMatrix &m2)
Definition: boolMatrix.cc:88
boolMatrix mx_el_and(const boolMatrix &m1, const boolMatrix &m2)
Definition: boolMatrix.cc:88
boolMatrix mx_el_gt(const boolMatrix &m1, const boolMatrix &m2)
Definition: boolMatrix.cc:91
boolMatrix mx_el_eq(const boolMatrix &m1, const boolMatrix &m2)
Definition: boolMatrix.cc:91
boolMatrix mx_el_lt(const boolMatrix &m1, const boolMatrix &m2)
Definition: boolMatrix.cc:91
boolMatrix mx_el_ge(const boolMatrix &m1, const boolMatrix &m2)
Definition: boolMatrix.cc:91
MatrixType matrix_type(void) const
Definition: ov-base-mat.h:136
FloatComplex float_complex_value(bool=false) const
Definition: ov-ch-mat.cc:139
FloatComplexMatrix float_complex_matrix_value(bool=false) const
Definition: ov-ch-mat.h:133
FloatComplexNDArray float_complex_array_value(bool=false) const
FloatComplexMatrix float_complex_matrix_value(bool=false) const
OCTAVE_BEGIN_NAMESPACE(octave) static octave_value daspk_fcn
octave_int< T > pow(const octave_int< T > &a, const octave_int< T > &b)
void install_fcm_fcs_ops(octave::type_info &ti)
Definition: op-fcm-fcs.cc:148
const octave_base_value & a2
return octave_value(v1.char_array_value() . concat(v2.char_array_value(), ra_idx),((a1.is_sq_string()||a2.is_sq_string()) ? '\'' :'"'))
const octave_char_matrix & v2
#define DEFNDASSIGNOP_FN(name, t1, t2, e, f)
Definition: ops.h:112
#define DEFNDBINOP_OP(name, t1, t2, e1, e2, op)
Definition: ops.h:276
#define DEFNDBINOP_FN(name, t1, t2, e1, e2, f)
Definition: ops.h:301
#define DEFNDCMPLXCMPOP_FN(name, t1, t2, e1, e2, f)
Definition: ops.h:312
#define DEFBINOP(name, t1, t2)
Definition: ops.h:230
#define DEFBINOP_FN(name, t1, t2, f)
Definition: ops.h:290
#define INSTALL_BINOP_TI(ti, op, t1, t2, f)
Definition: ops.h:55
#define DEFNDCATOP_FN(name, t1, t2, e1, e2, f)
Definition: ops.h:349
#define INSTALL_CATOP_TI(ti, t1, t2, f)
Definition: ops.h:60
#define DEFNDASSIGNOP_OP(name, t1, t2, f, op)
Definition: ops.h:126
#define INSTALL_ASSIGNOP_TI(ti, op, t1, t2, f)
Definition: ops.h:64
octave_value op_ne(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1881
octave_value op_el_ldiv(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1886
octave_value op_add(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1868
octave_value op_gt(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1880
octave_value op_el_div(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1884
octave_value op_el_or(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1888
octave_value op_sub(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1869
octave_value op_mul(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1870
octave_value op_le(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1877
octave_value op_el_and(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1887
octave_value op_eq(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1878
octave_value op_el_pow(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1885
octave_value op_ldiv(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1874
octave_value op_pow(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1873
octave_value op_ge(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1879
octave_value op_el_mul(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1883
octave_value op_div(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1871
octave_value op_lt(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1876
Matrix elem_xdiv(double a, const SparseMatrix &b)
Definition: sparse-xdiv.cc:375
Matrix xleftdiv(const SparseMatrix &a, const Matrix &b, MatrixType &typ)
Definition: sparse-xdiv.cc:468
octave_value xpow(const SparseMatrix &a, double b)
Definition: sparse-xpow.cc:62
octave_value elem_xpow(double a, const SparseMatrix &b)
Definition: sparse-xpow.cc:347