23 #if defined (HAVE_CONFIG_H) 27 #include "mx-fs-fcm.h" 28 #include "mx-fcm-fs.h" 29 #include "mx-fs-fcnda.h" 30 #include "mx-fcnda-fs.h" 47 DEFNDBINOP_OP (add, float_scalar, float_complex_matrix, float_scalar,
48 float_complex_array, +)
49 DEFNDBINOP_OP (sub, float_scalar, float_complex_matrix, float_scalar,
50 float_complex_array, -)
51 DEFNDBINOP_OP (mul, float_scalar, float_complex_matrix, float_scalar,
52 float_complex_array, *)
54 DEFBINOP (div, float_scalar, float_complex_matrix)
73 DEFBINOP (ldiv, float_scalar, float_complex_matrix)
101 DEFNDBINOP_OP (el_mul, float_scalar, float_complex_matrix, float_scalar,
102 float_complex_array, *)
103 DEFNDBINOP_FN (el_div, float_scalar, float_complex_matrix, float_scalar,
105 DEFNDBINOP_FN (el_pow, float_scalar, float_complex_matrix, float_scalar,
108 DEFBINOP (el_ldiv, float_scalar, float_complex_matrix)
123 DEFNDBINOP_FN (el_and, float_scalar, float_complex_matrix, float_scalar,
125 DEFNDBINOP_FN (el_or, float_scalar, float_complex_matrix, float_scalar,
128 DEFNDCATOP_FN (fs_fcm, float_scalar, float_complex_matrix, float_array,
134 DEFNDCATOP_FN (fs_cm, float_scalar, complex_matrix, float_array,
137 DEFCONV (float_complex_matrix_conv, float_scalar, float_complex_matrix)
195 float_complex_matrix_conv);
octave_value xpow(const SparseMatrix &a, double b)
#define DEFBINOP(name, t1, t2)
FloatComplexMatrix float_complex_matrix_value(bool=false) const
octave_value op_el_pow(const octave_value &a1, const octave_value &a2)
#define INSTALL_BINOP_TI(ti, op, t1, t2, f)
octave_value op_eq(const octave_value &a1, const octave_value &a2)
nd group nd example oindent but is performed more efficiently If only and it is a scalar
void install_fs_fcm_ops(octave::type_info &ti)
octave_value op_el_ldiv(const octave_value &a1, const octave_value &a2)
ComplexNDArray concat(NDArray &ra, ComplexNDArray &rb, const Array< octave_idx_type > &ra_idx)
boolMatrix mx_el_le(const boolMatrix &m1, const boolMatrix &m2)
FloatComplexNDArray float_complex_array_value(bool=false) const
octave_value op_pow(const octave_value &a1, const octave_value &a2)
#define DEFNDBINOP_FN(name, t1, t2, e1, e2, f)
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 const F77_DBLE F77_DBLE &F77_RET_T const F77_REAL F77_REAL &F77_RET_T const F77_DBLE const F77_DBLE F77_DBLE * d
const octave_base_value & a2
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
octave_value op_div(const octave_value &a1, const octave_value &a2)
octave_value op_el_or(const octave_value &a1, const octave_value &a2)
boolMatrix mx_el_ge(const boolMatrix &m1, const boolMatrix &m2)
Matrix x_el_div(double a, const SparseMatrix &b)
boolMatrix mx_el_gt(const boolMatrix &m1, const boolMatrix &m2)
#define INSTALL_CATOP_TI(ti, t1, t2, f)
octave_value elem_xpow(double a, const SparseMatrix &b)
octave_value op_el_and(const octave_value &a1, const octave_value &a2)
octave_int< T > pow(const octave_int< T > &a, const octave_int< T > &b)
boolMatrix mx_el_ne(const boolMatrix &m1, const boolMatrix &m2)
void warn_divide_by_zero(void)
octave_value op_le(const octave_value &a1, const octave_value &a2)
octave_value op_lt(const octave_value &a1, const octave_value &a2)
octave_value op_el_div(const octave_value &a1, const octave_value &a2)
#define INSTALL_ASSIGNCONV_TI(ti, t1, t2, tr)
return octave_value(v1.char_array_value() . concat(v2.char_array_value(), ra_idx),((a1.is_sq_string()||a2.is_sq_string()) ? '\'' :'"'))
const octave_char_matrix & v2
boolMatrix mx_el_or(const boolMatrix &m1, const boolMatrix &m2)
Matrix xdiv(const Matrix &a, const SparseMatrix &b, MatrixType &typ)
octave_value op_ne(const octave_value &a1, const octave_value &a2)
boolMatrix mx_el_and(const boolMatrix &m1, const boolMatrix &m2)
float float_value(bool=false) const
MatrixType matrix_type(void) const
FloatMatrix float_matrix_value(bool=false) const
octave_value op_add(const octave_value &a1, const octave_value &a2)
octave_value op_ldiv(const octave_value &a1, const octave_value &a2)
#define DEFNDCMPLXCMPOP_FN(name, t1, t2, e1, e2, f)
octave_value op_sub(const octave_value &a1, const octave_value &a2)
#define DEFCONV(name, a_dummy, b_dummy)
boolMatrix mx_el_lt(const boolMatrix &m1, const boolMatrix &m2)
octave_value op_el_mul(const octave_value &a1, const octave_value &a2)
#define DEFBINOP_FN(name, t1, t2, f)
#define INSTALL_WIDENOP_TI(ti, t1, t2, f)
octave_value op_ge(const octave_value &a1, const octave_value &a2)
#define DEFNDBINOP_OP(name, t1, t2, e1, e2, op)
#define DEFNDCATOP_FN(name, t1, t2, e1, e2, f)
boolMatrix mx_el_eq(const boolMatrix &m1, const boolMatrix &m2)
octave_value op_mul(const octave_value &a1, const octave_value &a2)
octave_value op_gt(const octave_value &a1, const octave_value &a2)