#include <iostream>
#include "lo-ieee.h"
#include "lo-specfun.h"
#include "lo-mappers.h"
#include "oct-obj.h"
#include "oct-stream.h"
#include "ops.h"
#include "ov-complex.h"
#include "ov-flt-complex.h"
#include "ov-base.h"
#include "ov-base-scalar.h"
#include "ov-base-scalar.cc"
#include "ov-cx-mat.h"
#include "ov-scalar.h"
#include "gripes.h"
#include "pr-output.h"
#include "ls-oct-ascii.h"
#include "ls-hdf5.h"
Defines | |
#define | COMPLEX_MAPPER(MAP, FCN) |
#define | SCALAR_MAPPER(MAP, FCN) |
#define | CD_SCALAR_MAPPER(MAP, RFCN, CFCN, L1, L2) |
Functions | |
DEFINE_OCTAVE_ALLOCATOR (octave_complex) | |
DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_complex,"complex scalar","double") |
#define CD_SCALAR_MAPPER | ( | MAP, | |||
RFCN, | |||||
CFCN, | |||||
L1, | |||||
L2 | ) |
Value:
octave_value \ octave_complex::MAP (void) const \ { \ if (scalar.imag () == 0) \ { \ double re = scalar.real (); \ return (re < L1 || re > L2 \ ? octave_value (CFCN (scalar)) \ : octave_value (RFCN (re))); \ } \ else \ { \ error ("%s: not defined for complex arguments", #MAP); \ return octave_value (); \ } \ }
#define COMPLEX_MAPPER | ( | MAP, | |||
FCN | ) |
Value:
octave_value \ octave_complex::MAP (void) const \ { \ return octave_value (FCN (scalar)); \ }
#define SCALAR_MAPPER | ( | MAP, | |||
FCN | ) |
Value:
octave_value \ octave_complex::MAP (void) const \ { \ if (scalar.imag () == 0) \ return octave_value (FCN (scalar.real ())); \ else \ { \ error ("%s: not defined for complex arguments", #MAP); \ return octave_value (); \ } \ }
DEFINE_OCTAVE_ALLOCATOR | ( | octave_complex | ) |
DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA | ( | octave_complex | , | |
"complex scalar" | , | |||
"double" | ||||
) |