GNU Octave  9.1.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
op-fcs-fs.cc
Go to the documentation of this file.
1 ////////////////////////////////////////////////////////////////////////
2 //
3 // Copyright (C) 1996-2024 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-complex.h"
33 #include "ov-flt-complex.h"
34 #include "ov-cx-mat.h"
35 #include "ov-flt-cx-mat.h"
36 #include "ov-float.h"
37 #include "ov-scalar.h"
38 #include "ov-typeinfo.h"
39 #include "ops.h"
40 #include "xdiv.h"
41 #include "xpow.h"
42 
44 
45 // complex scalar by scalar ops.
46 
47 DEFBINOP_OP (add, float_complex, float_scalar, +)
48 DEFBINOP_OP (sub, float_complex, float_scalar, -)
49 DEFBINOP_OP (mul, float_complex, float_scalar, *)
50 
51 DEFBINOP (div, float_complex, float)
52 {
55 
56  return octave_value (v1.float_complex_value () / v2.float_value ());
57 }
58 
59 DEFBINOP_FN (pow, float_complex, float_scalar, xpow)
60 
61 DEFBINOP (ldiv, float_complex, float)
62 {
65 
66  return octave_value (v2.float_value () / v1.float_complex_value ());
67 }
68 
69 DEFCMPLXCMPOP_OP (lt, float_complex, float_scalar, <)
70 DEFCMPLXCMPOP_OP (le, float_complex, float_scalar, <=)
71 DEFCMPLXCMPOP_OP (eq, float_complex, float_scalar, ==)
72 DEFCMPLXCMPOP_OP (ge, float_complex, float_scalar, >=)
73 DEFCMPLXCMPOP_OP (gt, float_complex, float_scalar, >)
74 DEFCMPLXCMPOP_OP (ne, float_complex, float_scalar, !=)
75 
76 DEFBINOP_OP (el_mul, float_complex, float_scalar, *)
77 
78 DEFBINOP (el_div, float_complex, float)
79 {
82 
83  return octave_value (v1.float_complex_value () / v2.float_value ());
84 }
85 
86 DEFBINOP_FN (el_pow, float_complex, float_scalar, xpow)
87 
88 DEFBINOP (el_ldiv, float_complex, float)
89 {
92 
93  return octave_value (v2.float_value () / v1.float_complex_value ());
94 }
95 
96 DEFBINOP (el_and, float_complex, float)
97 {
100 
101  return (v1.float_complex_value () != 0.0f && v2.float_value ());
102 }
103 
104 DEFBINOP (el_or, float_complex, float)
105 {
108 
109  return (v1.float_complex_value () != 0.0f || v2.float_value ());
110 }
111 
112 DEFNDCATOP_FN (fcs_fs, float_complex, float_scalar, float_complex_array,
113  float_array, concat)
114 
115 DEFNDCATOP_FN (cs_fs, complex, float_scalar, float_complex_array,
116  float_array, concat)
117 
118 DEFNDCATOP_FN (fcs_s, float_complex, scalar, float_complex_array,
119  float_array, concat)
120 
121 void
122 install_fcs_fs_ops (octave::type_info& ti)
123 {
137  el_mul);
139  el_div);
141  el_pow);
143  el_ldiv);
145  el_and);
147  el_or);
148 
152 
157 
160 }
161 
162 OCTAVE_END_NAMESPACE(octave)
ComplexNDArray concat(NDArray &ra, ComplexNDArray &rb, const Array< octave_idx_type > &ra_idx)
Definition: CNDArray.cc:418
float float_value(bool=false) const
Definition: ov-ch-mat.cc:83
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_fcs_fs_ops(octave::type_info &ti)
Definition: op-fcs-fs.cc:122
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 DEFCMPLXCMPOP_OP(name, t1, t2, op)
Definition: ops.h:262
#define DEFBINOP(name, t1, t2)
Definition: ops.h:245
#define DEFBINOP_FN(name, t1, t2, f)
Definition: ops.h:305
#define DEFBINOP_OP(name, t1, t2, op)
Definition: ops.h:250
#define INSTALL_ASSIGNCONV_TI(ti, t1, t2, tr)
Definition: ops.h:88
#define OCTAVE_CAST_BASE_VALUE(T, T_VAL, BASE_VAL)
Definition: ops.h:52
#define INSTALL_BINOP_TI(ti, op, t1, t2, f)
Definition: ops.h:70
#define DEFNDCATOP_FN(name, t1, t2, e1, e2, f)
Definition: ops.h:364
#define INSTALL_CATOP_TI(ti, t1, t2, f)
Definition: ops.h:75
octave_value op_ne(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1676
octave_value op_el_ldiv(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1681
octave_value op_add(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1663
octave_value op_gt(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1675
octave_value op_el_div(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1679
octave_value op_el_or(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1683
octave_value op_sub(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1664
octave_value op_mul(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1665
octave_value op_le(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1672
octave_value op_el_and(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1682
octave_value op_eq(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1673
octave_value op_el_pow(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1680
octave_value op_ldiv(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1669
octave_value op_pow(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1668
octave_value op_ge(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1674
octave_value op_el_mul(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1678
octave_value op_div(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1666
octave_value op_lt(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1671
octave_value xpow(const SparseMatrix &a, double b)
Definition: sparse-xpow.cc:62