ov-cx-mat.cc File Reference

#include <iostream>
#include <vector>
#include "data-conv.h"
#include "lo-ieee.h"
#include "lo-specfun.h"
#include "lo-mappers.h"
#include "mx-base.h"
#include "mach-info.h"
#include "oct-locbuf.h"
#include "gripes.h"
#include "oct-obj.h"
#include "oct-stream.h"
#include "ops.h"
#include "ov-base.h"
#include "ov-base-mat.h"
#include "ov-base-mat.cc"
#include "ov-complex.h"
#include "ov-cx-mat.h"
#include "ov-flt-cx-mat.h"
#include "ov-re-mat.h"
#include "ov-scalar.h"
#include "pr-output.h"
#include "byte-swap.h"
#include "ls-oct-ascii.h"
#include "ls-hdf5.h"
#include "ls-utils.h"

Include dependency graph for ov-cx-mat.cc:

Defines
#define	ARRAY_MAPPER(MAP, AMAP, FCN)
#define	DARRAY_MAPPER(MAP, AMAP, FCN)
#define	CD_ARRAY_MAPPER(MAP, RFCN, CFCN, L1, L2)
Functions
	DEFINE_OCTAVE_ALLOCATOR (octave_complex_matrix)
	DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_complex_matrix,"complex matrix","double")

---

Define Documentation

#define ARRAY_MAPPER	(	MAP,
		AMAP,
		FCN		)

Value:

octave_value \
  octave_complex_matrix::MAP (void) const \
  { \
    static AMAP cmap = FCN; \
    return matrix.map (cmap); \
  }

#define CD_ARRAY_MAPPER	(	MAP,
		RFCN,
		CFCN,
		L1,
		L2		)

Value:

octave_value \
  octave_complex_matrix::MAP (void) const \
  { \
    static ComplexNDArray::dmapper idmap = ximag; \
    NDArray m = matrix.map (idmap); \
    if (m.all_elements_are_zero ()) \
      { \
        static ComplexNDArray::dmapper rdmap = xreal; \
        m = matrix.map (rdmap); \
        static NDArray::dmapper dmap = RFCN; \
        static NDArray::cmapper cmap = CFCN; \
        return (any_element_less_than (m, L1) \
                ? octave_value (m.map (cmap)) \
                : (any_element_greater_than (m, L2) \
                   ? octave_value (m.map (cmap)) \
                   : octave_value (m.map (dmap)))); \
      } \
    else \
      { \
        /*error ("%s: not defined for complex arguments", #MAP); */     \
        return octave_value (m); \
      } \
  }

#define DARRAY_MAPPER	(	MAP,
		AMAP,
		FCN		)

Value:

octave_value \
  octave_complex_matrix::MAP (void) const \
  { \
    static ComplexNDArray::dmapper dmap = ximag; \
    NDArray m = matrix.map (dmap); \
    if (m.all_elements_are_zero ()) \
      { \
        dmap = xreal; \
        m = matrix.map (dmap); \
        static AMAP cmap = FCN; \
        return m.map (cmap); \
      } \
    else \
      { \
        error ("%s: not defined for complex arguments", #MAP); \
        return octave_value (); \
      } \
  }

---

Function Documentation

DEFINE_OCTAVE_ALLOCATOR

(

octave_complex_matrix

)

DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA	(	octave_complex_matrix	,
		"complex matrix"	,
		"double"
	)