23 #if defined (HAVE_CONFIG_H)
132 return static_cast<float> (
scalar);
205 ::warning (
"range error for conversion to character value");
228 scalar = octave_read_value<double> (
is);
231 error (
"load: failed to load scalar constant");
240 os.write (reinterpret_cast<char *> (&tmp), 1);
242 os.write (reinterpret_cast<char *> (&dtmp), 8);
252 if (! is.read (reinterpret_cast<char *> (&tmp), 1))
256 read_doubles (is, &dtmp, static_cast<save_type> (tmp), 1, swap, fmt);
271 #if defined (HAVE_HDF5)
274 hid_t space_hid, data_hid;
275 space_hid = data_hid = -1;
277 space_hid = H5Screate_simple (0, dimens, 0);
278 if (space_hid < 0)
return false;
280 #if defined (HAVE_HDF5_18)
281 data_hid = H5Dcreate (loc_id, name, H5T_NATIVE_DOUBLE, space_hid,
284 data_hid = H5Dcreate (loc_id, name, H5T_NATIVE_DOUBLE, space_hid,
289 H5Sclose (space_hid);
298 H5Sclose (space_hid);
301 octave_unused_parameter (loc_id);
302 octave_unused_parameter (name);
313 #if defined (HAVE_HDF5)
315 #if defined (HAVE_HDF5_18)
318 hid_t data_hid = H5Dopen (loc_id, name);
320 hid_t space_id = H5Dget_space (data_hid);
322 hsize_t rank = H5Sget_simple_extent_ndims (space_id);
345 octave_unused_parameter (loc_id);
346 octave_unused_parameter (name);
359 double *pr =
static_cast<double *
> (retval->
get_data ());
378 #define SCALAR_MAPPER(UMAP, FCN) \
379 case umap_ ## UMAP: \
380 return octave_value (FCN (scalar))
446 return str_conv.
map (umap);
461 *(
reinterpret_cast<double *
>(where)) =
scalar;
void octave_write_double(std::ostream &os, double d)
Matrix matrix_value(bool=false) const
bool load_ascii(std::istream &is)
octave_int< uint64_t > octave_uint64
Complex rc_log10(double x)
octave_value as_uint64(void) const
bool save_hdf5(octave_hdf5_id loc_id, const char *name, bool save_as_floats)
Complex rc_acosh(double x)
Complex rc_sqrt(double x)
std::complex< double > erfi(std::complex< double > z, double relerr=0)
const octave_hdf5_id octave_H5S_ALL
octave_value as_int64(void) const
octave_value as_int8(void) const
octave_int< uint16_t > octave_uint16
Complex rc_lgamma(double x)
OCTAVE_EXPORT octave_value_list or N dimensional array whose elements are all equal to the base of natural logarithms The constant ex $e satisfies the equation log(e)
void error(const char *fmt,...)
void * get_data(void) const
octave_value map(octave_base_value::unary_mapper_t umap) const
#define DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA(t, n, c)
#define SCALAR_MAPPER(UMAP, FCN)
float float_value(bool=false) const
Complex acos(const Complex &x)
Complex asin(const Complex &x)
octave_value resize(const dim_vector &dv, bool fill=false) const
octave_value map(unary_mapper_t umap) const
octave_idx_type numel(int n=0) const
Number of elements that a matrix with this dimensions would have.
F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T const F77_REAL const F77_REAL F77_REAL &F77_RET_T const F77_DBLE const F77_DBLE F77_DBLE &F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T F77_DBLE &F77_RET_T F77_REAL &F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T const F77_DBLE F77_DBLE &F77_RET_T const F77_REAL F77_REAL &F77_RET_T F77_REAL F77_REAL &F77_RET_T F77_DBLE F77_DBLE &F77_RET_T const F77_DBLE const F77_DBLE F77_DBLE * d
octave_value as_double(void) const
calling an anonymous function involves an overhead quite comparable to the overhead of an m file function Passing a handle to a built in function is because the interpreter is not involved in the internal loop For a
Complex rc_atanh(double x)
void warn_load(const char *type) const
bool fast_elem_insert_self(void *where, builtin_type_t btyp) const
Complex atan(const Complex &x)
bool save_binary(std::ostream &os, bool &save_as_floats)
void read_doubles(std::istream &is, double *data, save_type type, octave_idx_type len, bool swap, octave::mach_info::float_format fmt)
nd deftypefn *octave_map m
octave_value as_uint16(void) const
static int static_type_id(void)
static octave_base_value * default_numeric_demotion_function(const octave_base_value &a)
Complex rc_log2(double x)
octave_value as_uint32(void) const
octave_value diag(octave_idx_type m, octave_idx_type n) const
std::complex< double > erfcx(std::complex< double > z, double relerr=0)
void warn_save(const char *type) const
octave_int< uint32_t > octave_uint32
friend class octave_value
Complex rc_acos(double x)
void warning(const char *fmt,...)
octave_value as_uint8(void) const
type_conv_info numeric_demotion_function(void) const
double double_value(bool=false) const
charNDArray max(char d, const charNDArray &m)
mxArray * as_mxArray(void) const
bool save_ascii(std::ostream &os)
OCTAVE_EXPORT octave_value_list return the value of the option it must match the dimension of the state and the relative tolerance must also be a vector of the same length tem it must match the dimension of the state and the absolute tolerance must also be a vector of the same length The local error test applied at each integration step is xample roup abs(local error in x(i))<
octave_value as_int32(void) const
bool load_binary(std::istream &is, bool swap, octave::mach_info::float_format fmt)
octave_int< int64_t > octave_int64
Complex rc_asin(double x)
Complex rc_log1p(double x)
virtual octave_value map(unary_mapper_t) const
bool load_hdf5(octave_hdf5_id loc_id, const char *name)
const octave_hdf5_id octave_H5P_DEFAULT
octave_int< int16_t > octave_int16
octave_value convert_to_str_internal(bool pad, bool force, char type) const
std::complex< double > Complex
write the output to stdout if nargout is
void err_nan_to_character_conversion(void)
octave_int< uint8_t > octave_uint8
octave_value as_single(void) const
Vector representing the dimensions (size) of an Array.
octave_int< int32_t > octave_int32
virtual octave_value convert_to_str(bool pad=false, bool force=false, char type= '\'') const
If this string is the system will ring the terminal sometimes it is useful to be able to print the original representation of the string
octave_value as_int16(void) const
octave_value do_index_op(const octave_value_list &idx, bool resize_ok=false)
octave_int< int8_t > octave_int8
std::complex< double > erfc(std::complex< double > z, double relerr=0)
octave_value do_index_op(const octave_value_list &idx, bool resize_ok=false)