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-fs-fs.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 "Array-util.h"
28 
29 #include "gripes.h"
30 #include "oct-obj.h"
31 #include "ov.h"
32 #include "ov-scalar.h"
33 #include "ov-float.h"
34 #include "ov-flt-re-mat.h"
35 #include "ov-typeinfo.h"
36 #include "ov-null-mat.h"
37 #include "ops.h"
38 #include "xdiv.h"
39 #include "xpow.h"
40 
41 // scalar unary ops.
42 
43 DEFUNOP (not, float_scalar)
44 {
45  CAST_UNOP_ARG (const octave_float_scalar&);
46  float x = v.float_value ();
47  if (xisnan (x))
48  gripe_nan_to_logical_conversion ();
49  return octave_value (x == 0.0f);
50 }
51 
52 DEFUNOP_OP (uplus, float_scalar, /* no-op */)
53 DEFUNOP_OP (uminus, float_scalar, -)
54 DEFUNOP_OP (transpose, float_scalar, /* no-op */)
55 DEFUNOP_OP (hermitian, float_scalar, /* no-op */)
56 
57 DEFNCUNOP_METHOD (incr, float_scalar, increment)
58 DEFNCUNOP_METHOD (decr, float_scalar, decrement)
59 
60 // float by float ops.
61 
62 DEFBINOP_OP (add, float_scalar, float_scalar, +)
63 DEFBINOP_OP (sub, float_scalar, float_scalar, -)
64 DEFBINOP_OP (mul, float_scalar, float_scalar, *)
65 
66 DEFBINOP (div, float_scalar, float_scalar)
67 {
68  CAST_BINOP_ARGS (const octave_float_scalar&, const octave_float_scalar&);
69 
70  float d = v2.float_value ();
71 
72  if (d == 0.0)
73  gripe_divide_by_zero ();
74 
75  return octave_value (v1.float_value () / d);
76 }
77 
78 DEFBINOP_FN (pow, float_scalar, float_scalar, xpow)
79 
80 DEFBINOP (ldiv, float_scalar, float_scalar)
81 {
82  CAST_BINOP_ARGS (const octave_float_scalar&, const octave_float_scalar&);
83 
84  float d = v1.float_value ();
85 
86  if (d == 0.0)
87  gripe_divide_by_zero ();
88 
89  return octave_value (v2.float_value () / d);
90 }
91 
92 DEFBINOP_OP (lt, float_scalar, float_scalar, <)
93 DEFBINOP_OP (le, float_scalar, float_scalar, <=)
94 DEFBINOP_OP (eq, float_scalar, float_scalar, ==)
95 DEFBINOP_OP (ge, float_scalar, float_scalar, >=)
96 DEFBINOP_OP (gt, float_scalar, float_scalar, >)
97 DEFBINOP_OP (ne, float_scalar, float_scalar, !=)
98 
99 DEFBINOP_OP (el_mul, float_scalar, float_scalar, *)
100 
101 DEFBINOP (el_div, float_scalar, float_scalar)
102 {
103  CAST_BINOP_ARGS (const octave_float_scalar&, const octave_float_scalar&);
104 
105  float d = v2.float_value ();
106 
107  if (d == 0.0)
108  gripe_divide_by_zero ();
109 
110  return octave_value (v1.float_value () / d);
111 }
112 
113 DEFBINOP_FN (el_pow, float_scalar, float_scalar, xpow)
114 
115 DEFBINOP (el_ldiv, float_scalar, float_scalar)
116 {
117  CAST_BINOP_ARGS (const octave_float_scalar&, const octave_float_scalar&);
118 
119  float d = v1.float_value ();
120 
121  if (d == 0.0)
122  gripe_divide_by_zero ();
123 
124  return octave_value (v2.float_value () / d);
125 }
126 
127 DEFSCALARBOOLOP_OP (el_and, float_scalar, float_scalar, &&)
128 DEFSCALARBOOLOP_OP (el_or, float_scalar, float_scalar, ||)
129 
130 DEFNDCATOP_FN (fs_fs, float_scalar, float_scalar, float_array, float_array,
131  concat)
132 DEFNDCATOP_FN (s_fs, scalar, float_scalar, float_array, float_array, concat)
133 DEFNDCATOP_FN (fs_s, float_scalar, scalar, float_array, float_array, concat)
134 
135 CONVDECL (float_to_scalar)
136 {
137  CAST_CONV_ARG (const octave_float_scalar&);
138 
139  return new octave_matrix (Matrix (1, 1,
140  static_cast<double>(v.float_value ())));
141 }
142 
143 void
144 install_fs_fs_ops (void)
145 {
146  INSTALL_UNOP (op_not, octave_float_scalar, not);
147  INSTALL_UNOP (op_uplus, octave_float_scalar, uplus);
148  INSTALL_UNOP (op_uminus, octave_float_scalar, uminus);
149  INSTALL_UNOP (op_transpose, octave_float_scalar, transpose);
150  INSTALL_UNOP (op_hermitian, octave_float_scalar, hermitian);
151 
152  INSTALL_NCUNOP (op_incr, octave_float_scalar, incr);
153  INSTALL_NCUNOP (op_decr, octave_float_scalar, decr);
154 
155  INSTALL_BINOP (op_add, octave_float_scalar, octave_float_scalar, add);
156  INSTALL_BINOP (op_sub, octave_float_scalar, octave_float_scalar, sub);
157  INSTALL_BINOP (op_mul, octave_float_scalar, octave_float_scalar, mul);
158  INSTALL_BINOP (op_div, octave_float_scalar, octave_float_scalar, div);
159  INSTALL_BINOP (op_pow, octave_float_scalar, octave_float_scalar, pow);
160  INSTALL_BINOP (op_ldiv, octave_float_scalar, octave_float_scalar, ldiv);
161  INSTALL_BINOP (op_lt, octave_float_scalar, octave_float_scalar, lt);
162  INSTALL_BINOP (op_le, octave_float_scalar, octave_float_scalar, le);
163  INSTALL_BINOP (op_eq, octave_float_scalar, octave_float_scalar, eq);
164  INSTALL_BINOP (op_ge, octave_float_scalar, octave_float_scalar, ge);
165  INSTALL_BINOP (op_gt, octave_float_scalar, octave_float_scalar, gt);
166  INSTALL_BINOP (op_ne, octave_float_scalar, octave_float_scalar, ne);
167  INSTALL_BINOP (op_el_mul, octave_float_scalar, octave_float_scalar, el_mul);
168  INSTALL_BINOP (op_el_div, octave_float_scalar, octave_float_scalar, el_div);
169  INSTALL_BINOP (op_el_pow, octave_float_scalar, octave_float_scalar, el_pow);
170  INSTALL_BINOP (op_el_ldiv, octave_float_scalar, octave_float_scalar, el_ldiv);
171  INSTALL_BINOP (op_el_and, octave_float_scalar, octave_float_scalar, el_and);
172  INSTALL_BINOP (op_el_or, octave_float_scalar, octave_float_scalar, el_or);
173 
174  INSTALL_CATOP (octave_float_scalar, octave_float_scalar, fs_fs);
175  INSTALL_CATOP (octave_scalar, octave_float_scalar, s_fs);
176  INSTALL_CATOP (octave_float_scalar, octave_scalar, fs_s);
177 
178  INSTALL_ASSIGNCONV (octave_float_scalar, octave_float_scalar,
179  octave_float_matrix);
180  INSTALL_ASSIGNCONV (octave_scalar, octave_float_scalar, octave_matrix);
181 
182  INSTALL_ASSIGNCONV (octave_float_scalar, octave_null_matrix,
183  octave_float_matrix);
184  INSTALL_ASSIGNCONV (octave_float_scalar, octave_null_str,
185  octave_float_matrix);
186  INSTALL_ASSIGNCONV (octave_float_scalar, octave_null_sq_str,
187  octave_float_matrix);
188 
189  INSTALL_CONVOP (octave_float_scalar, octave_matrix, float_to_scalar);
190 }
Generated on Mon Dec 30 2013 03:04:36 for GNU Octave by   doxygen 1.8.1.2