GNU Octave  6.2.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
op-fs-fm.cc
Go to the documentation of this file.
1 ////////////////////////////////////////////////////////////////////////
2 //
3 // Copyright (C) 1996-2021 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-scalar.h"
33 #include "ov-float.h"
34 #include "ov-re-mat.h"
35 #include "ov-flt-re-mat.h"
36 #include "ov-typeinfo.h"
37 #include "ops.h"
38 #include "xdiv.h"
39 #include "xpow.h"
40 
41 // scalar by matrix ops.
42 
43 DEFNDBINOP_OP (add, float_scalar, float_matrix, float_scalar, float_array, +)
44 DEFNDBINOP_OP (sub, float_scalar, float_matrix, float_scalar, float_array, -)
45 DEFNDBINOP_OP (mul, float_scalar, float_matrix, float_scalar, float_array, *)
46 
47 DEFBINOP (div, float_scalar, float_matrix)
48 {
49  const octave_float_scalar& v1 = dynamic_cast<const octave_float_scalar&> (a1);
50  const octave_float_matrix& v2 = dynamic_cast<const octave_float_matrix&> (a2);
51 
54  MatrixType typ = v2.matrix_type ();
55 
56  FloatMatrix ret = xdiv (m1, m2, typ);
57 
58  v2.matrix_type (typ);
59  return ret;
60 }
61 
62 DEFBINOP_FN (pow, float_scalar, float_matrix, xpow)
63 
64 DEFBINOP (ldiv, float_scalar, float_matrix)
65 {
66  const octave_float_scalar& v1 = dynamic_cast<const octave_float_scalar&> (a1);
67  const octave_float_matrix& v2 = dynamic_cast<const octave_float_matrix&> (a2);
68 
69  return octave_value (v2.float_array_value () / v1.float_value ());
70 }
71 
72 DEFNDBINOP_FN (lt, float_scalar, float_matrix, float_scalar,
73  float_array, mx_el_lt)
74 DEFNDBINOP_FN (le, float_scalar, float_matrix, float_scalar,
75  float_array, mx_el_le)
76 DEFNDBINOP_FN (eq, float_scalar, float_matrix, float_scalar,
77  float_array, mx_el_eq)
78 DEFNDBINOP_FN (ge, float_scalar, float_matrix, float_scalar,
79  float_array, mx_el_ge)
80 DEFNDBINOP_FN (gt, float_scalar, float_matrix, float_scalar,
81  float_array, mx_el_gt)
82 DEFNDBINOP_FN (ne, float_scalar, float_matrix, float_scalar,
83  float_array, mx_el_ne)
84 
85 DEFNDBINOP_OP (el_mul, float_scalar, float_matrix, float_scalar,
86  float_array, *)
87 DEFNDBINOP_FN (el_div, float_scalar, float_matrix, float_scalar,
88  float_array, x_el_div)
89 DEFNDBINOP_FN (el_pow, float_scalar, float_matrix, float_scalar,
90  float_array, elem_xpow)
91 
92 DEFBINOP (el_ldiv, float_scalar, float_matrix)
93 {
94  const octave_float_scalar& v1 = dynamic_cast<const octave_float_scalar&> (a1);
95  const octave_float_matrix& v2 = dynamic_cast<const octave_float_matrix&> (a2);
96 
97  return octave_value (v2.float_array_value () / v1.float_value ());
98 }
99 
100 DEFNDBINOP_FN (el_and, float_scalar, float_matrix, float_scalar,
101  float_array, mx_el_and)
102 DEFNDBINOP_FN (el_or, float_scalar, float_matrix, float_scalar,
103  float_array, mx_el_or)
104 
105 DEFNDCATOP_FN (fs_fm, float_scalar, float_matrix, float_array,
106  float_array, concat)
107 
108 DEFNDCATOP_FN (s_fm, scalar, float_matrix, float_array, float_array, concat)
109 
110 DEFNDCATOP_FN (fs_m, float_scalar, matrix, float_array, float_array, concat)
111 
112 DEFCONV (matrix_conv, float_scalar, float_matrix)
113 {
114  const octave_float_scalar& v = dynamic_cast<const octave_float_scalar&> (a);
115 
116  return new octave_float_matrix (v.float_matrix_value ());
117 }
118 
119 void
121 {
135  el_mul);
137  el_div);
139  el_pow);
141  el_ldiv);
143  el_and);
145  el_or);
146 
150 
154 
156 }
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:131
FloatNDArray float_array_value(bool=false) const
Definition: ov-ch-mat.h:123
FloatMatrix float_matrix_value(bool=false) const
Definition: ov-ch-mat.h:117
float float_value(bool=false) const
Definition: ov-float.h:150
FloatMatrix float_matrix_value(bool=false) const
Definition: ov-float.h:160
octave_int< T > pow(const octave_int< T > &a, const octave_int< T > &b)
void install_fs_fm_ops(octave::type_info &ti)
Definition: op-fs-fm.cc:120
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 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 DEFCONV(name, a_dummy, b_dummy)
Definition: ops.h:172
#define DEFBINOP(name, t1, t2)
Definition: ops.h:230
#define DEFBINOP_FN(name, t1, t2, f)
Definition: ops.h:290
#define INSTALL_ASSIGNCONV_TI(ti, t1, t2, tr)
Definition: ops.h:73
#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:348
#define INSTALL_WIDENOP_TI(ti, t1, t2, f)
Definition: ops.h:77
#define INSTALL_CATOP_TI(ti, t1, t2, f)
Definition: ops.h:60
static bool scalar(const dim_vector &dims)
Definition: ov-struct.cc:669
octave_value op_ne(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1579
octave_value op_el_ldiv(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1584
octave_value op_add(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1566
octave_value op_gt(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1578
octave_value op_el_div(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1582
octave_value op_el_or(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1586
octave_value op_sub(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1567
octave_value op_mul(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1568
octave_value op_le(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1575
octave_value op_el_and(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1585
octave_value op_eq(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1576
octave_value op_el_pow(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1583
octave_value op_ldiv(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1572
octave_value op_pow(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1571
octave_value op_ge(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1577
octave_value op_el_mul(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1581
octave_value op_div(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1569
octave_value op_lt(const octave_value &a1, const octave_value &a2)
Definition: ov.h:1574
Matrix x_el_div(double a, const SparseMatrix &b)
Definition: sparse-xdiv.cc:373
Matrix xdiv(const Matrix &a, const SparseMatrix &b, MatrixType &typ)
Definition: sparse-xdiv.cc:135
octave_value xpow(const SparseMatrix &a, double b)
Definition: sparse-xpow.cc:60
octave_value elem_xpow(double a, const SparseMatrix &b)
Definition: sparse-xpow.cc:249