| 12
 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
 
 | /*
Copyright (C) 1996, 1997 John W. Eaton
This file is part of Octave.
Octave 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.
Octave 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 Octave; see the file COPYING.  If not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA.
*/
#if !defined (octave_NDArray_h)
#define octave_NDArray_h 1
#if defined (__GNUG__) && defined (USE_PRAGMA_INTERFACE_IMPLEMENTATION)
#pragma interface
#endif
#include "MArrayN.h"
#include "dMatrix.h"
#include "intNDArray.h"
#include "mx-defs.h"
#include "mx-op-defs.h"
class
NDArray : public MArrayN<double>
{
public:
  
  NDArray (void) : MArrayN<double> () { }
  NDArray (const dim_vector& dv) : MArrayN<double> (dv) { }
  NDArray (const dim_vector& dv, double val)
    : MArrayN<double> (dv, val) { }
  
  NDArray (const NDArray& a) : MArrayN<double> (a) { }
  NDArray (const Matrix& a) : MArrayN<double> (a) { }
  NDArray (const MArrayN<double>& a) : MArrayN<double> (a) { }
  template <class U>
  explicit NDArray (const intNDArray<U>& a) : MArrayN<double> (a) { }
  NDArray& operator = (const NDArray& a)
    {
      MArrayN<double>::operator = (a);
      return *this;
    }
  // unary operations
  boolNDArray operator ! (void) const;
  bool any_element_is_negative (bool = false) const;
  bool any_element_is_inf_or_nan (void) const;
  bool all_elements_are_int_or_inf_or_nan (void) const;
  bool all_integers (double& max_val, double& min_val) const;
  bool too_large_for_float (void) const;
  // XXX FIXME XXX -- this is not quite the right thing.
  boolNDArray all (int dim = -1) const;
  boolNDArray any (int dim = -1) const;
  NDArray cumprod (int dim = -1) const;
  NDArray cumsum (int dim = -1) const;
  NDArray prod (int dim = -1) const;
  NDArray sum (int dim = -1) const;  
  NDArray sumsq (int dim = -1) const;
  NDArray concat (const NDArray& rb, const Array<int>& ra_idx);
  ComplexNDArray concat (const ComplexNDArray& rb, const Array<int>& ra_idx);
  charNDArray concat (const charNDArray& rb, const Array<int>& ra_idx);
  NDArray max (int dim = 0) const;
  NDArray max (ArrayN<int>& index, int dim = 0) const;
  NDArray min (int dim = 0) const;
  NDArray min (ArrayN<int>& index, int dim = 0) const;
  
  NDArray& insert (const NDArray& a, int r, int c);
  NDArray& insert (const NDArray& a, const Array<int>& ra_idx);
  NDArray abs (void) const;
  ComplexNDArray fourier (int dim = 1) const;
  ComplexNDArray ifourier (int dim = 1) const;
  ComplexNDArray fourier2d (void) const;
  ComplexNDArray ifourier2d (void) const;
  ComplexNDArray fourierNd (void) const;
  ComplexNDArray ifourierNd (void) const;
  friend NDArray real (const ComplexNDArray& a);
  friend NDArray imag (const ComplexNDArray& a);
  Matrix matrix_value (void) const;
  NDArray squeeze (void) const { return MArrayN<double>::squeeze (); }
  static void increment_index (Array<int>& ra_idx,
			       const dim_vector& dimensions,
			       int start_dimension = 0);
  static int compute_index (Array<int>& ra_idx,
			    const dim_vector& dimensions);
  // i/o
  friend std::ostream& operator << (std::ostream& os, const NDArray& a);
  friend std::istream& operator >> (std::istream& is, NDArray& a);
  static double resize_fill_value (void) { return 0; }
private:
  NDArray (double *d, const dim_vector& dv) : MArrayN<double> (d, dv) { }
};
// Publish externally used friend functions.
extern NDArray real (const ComplexNDArray& a);
extern NDArray imag (const ComplexNDArray& a);
extern NDArray min (double d, const NDArray& m);
extern NDArray min (const NDArray& m, double d);
extern NDArray min (const NDArray& a, const NDArray& b);
extern NDArray max (double d, const NDArray& m);
extern NDArray max (const NDArray& m, double d);
extern NDArray max (const NDArray& a, const NDArray& b);
NDS_CMP_OP_DECLS (NDArray, double)
NDS_BOOL_OP_DECLS (NDArray, double)
SND_CMP_OP_DECLS (double, NDArray)
SND_BOOL_OP_DECLS (double, NDArray)
NDND_CMP_OP_DECLS (NDArray, NDArray)
NDND_BOOL_OP_DECLS (NDArray, NDArray)
MARRAY_FORWARD_DEFS (MArrayN, NDArray, double)
#endif
/*
;;; Local Variables: ***
;;; mode: C++ ***
;;; End: ***
*/
 |