Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

[8e00e8]: src / ov-fixed-complex.h Maximize Restore History

Download this file

ov-fixed-complex.h    180 lines (123 with data), 5.3 kB

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
/*
Copyright (C) 2003 Motorola Inc
Copyright (C) 2003 David Bateman
This program is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 2, or (at your option) any
later version.
This program is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with this program; see the file COPYING. If not, see
<http://www.gnu.org/licenses/>.
In addition to the terms of the GPL, you are permitted to link
this program with any Open Source program, as defined by the
Open Source Initiative (www.opensource.org)
*/
#if !defined (octave_fixed_complex_h)
#define octave_fixed_complex_h 1
#include <cstdlib>
#include <iostream>
#include <string>
#include <octave/config.h>
#include <octave/lo-mappers.h>
#include <octave/lo-utils.h>
#include <octave/lo-error.h>
#include <octave/mx-base.h>
#include <octave/oct-alloc.h>
#include <octave/str-vec.h>
#include <octave/oct-obj.h>
#include <octave/ov.h>
#include <octave/ov-base.h>
#include <octave/ov-base-scalar.h>
#include <octave/ov-typeinfo.h>
#include <octave/ov-scalar.h>
#include <octave/ops.h>
#include <octave/ov-re-mat.h>
#include <octave/ov-cx-mat.h>
#include "ov-base-fixed.h"
#include "fixedMatrix.h"
#include "int/fixed.h"
#include "fixedComplex.h"
#include "ov-fixed.h"
class octave_value_list;
// Fixed point values.
class
OCTAVE_FIXED_API
octave_fixed_complex : public octave_base_fixed<FixedPointComplex>
{
public:
octave_fixed_complex (void)
: octave_base_fixed<FixedPointComplex> (FixedPointComplex()) { }
octave_fixed_complex (const octave_fixed_complex& f)
: octave_base_fixed<FixedPointComplex> (f) {}
octave_fixed_complex (const FixedPointComplex& f)
: octave_base_fixed<FixedPointComplex> (f) { }
octave_fixed_complex (const unsigned int& is, const unsigned int& ds,
const FixedPointComplex& f)
: octave_base_fixed<FixedPointComplex> (is, ds, f) { }
octave_fixed_complex (const unsigned int& is, const unsigned int& ds,
const double& d)
: octave_base_fixed<FixedPointComplex> (is, ds, FixedPointComplex(is,ds,d)) { }
octave_fixed_complex (const unsigned int& is, const unsigned int& ds,
const Complex& d)
: octave_base_fixed<FixedPointComplex> (is, ds, FixedPointComplex(is,ds,d)) { }
~octave_fixed_complex (void) { }
octave_value subsasgn (const std::string& type,
const std::list<octave_value_list>& idx,
const octave_value& rhs);
octave_value_list dotref (const octave_value_list& idx);
octave_value all (int = 0) const { return (scalar != FixedPointComplex()); }
octave_value any (int = 0) const { return (scalar != FixedPointComplex()); }
bool is_complex_scalar (void) const { return true; }
bool is_complex_matrix (void) const { return true; }
bool is_complex_type (void) const { return true; }
bool is_numeric_type (void) const { return true; }
bool is_true (void) const { return (scalar != FixedPointComplex()); }
OV_REP_TYPE *clone (void) const { return new octave_fixed_complex (*this); }
OV_REP_TYPE *empty_clone (void) const
{ return new octave_fixed_complex (); }
OV_REP_TYPE *try_narrowing_conversion (void);
octave_value do_index_op (const octave_value_list& idx,
bool resize_ok = false);
FixedPoint fixed_value (bool = false) const ;
FixedPointComplex fixed_complex_value (bool = false) const { return scalar; }
FixedMatrix fixed_matrix_value (bool = false) const ;
FixedComplexMatrix fixed_complex_matrix_value (void) const
{ return FixedComplexMatrix(1,1,scalar); }
NDArray array_value (bool = false) const;
ComplexNDArray complex_array_value (bool = false) const;
double scalar_value (bool frc_str_conv = false) const
{ return double_value (frc_str_conv); }
double double_value (bool frc_str_conv= false) const
{ return ::fixedpoint(fixed_value(frc_str_conv)); }
Matrix matrix_value (bool frc_str_conv= false) const
{ return ::fixedpoint(fixed_matrix_value(frc_str_conv)); }
Complex complex_value (bool = false) const { return ::fixedpoint(scalar); }
ComplexMatrix complex_matrix_value (bool = false) const
{ return ComplexMatrix (1, 1, ::fixedpoint(scalar)); }
octave_value resize (const dim_vector& dv, bool) const;
void increment (void) { scalar += FixedPoint(1,0,1,0); }
void decrement (void) { scalar -= FixedPoint(1,0,1,0); }
void print_raw (std::ostream& os, bool pr_as_read_syntax = false) const;
bool save_ascii (std::ostream& os);
bool load_ascii (std::istream& is);
bool save_binary (std::ostream& os, bool& save_as_floats);
bool load_binary (std::istream& is, bool swap,
oct_mach_info::float_format fmt);
#if defined (HAVE_HDF5)
bool save_hdf5 (hid_t loc_id, const char *name, bool save_as_floats);
bool load_hdf5 (hid_t loc_id, const char *name, bool have_h5giterate_bug);
#endif
private:
DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA
DECLARE_OCTAVE_ALLOCATOR
};
#endif
/*
;;; Local Variables: ***
;;; mode: C++ ***
;;; End: ***
*/