23 #if defined (HAVE_CONFIG_H) 27 #include "mx-fcnda-fs.h" 44 DEFNDBINOP_OP (add, float_complex_matrix, float_scalar, float_complex_array,
46 DEFNDBINOP_OP (sub, float_complex_matrix, float_scalar, float_complex_array,
48 DEFNDBINOP_OP (mul, float_complex_matrix, float_scalar, float_complex_array,
98 DEFNDBINOP_OP (el_mul, float_complex_matrix, float_scalar, float_complex_array,
116 DEFNDBINOP_FN (el_pow, float_complex_matrix, float_scalar, float_complex_array,
129 DEFNDBINOP_FN (el_and, float_complex_matrix, float_scalar, float_complex_array,
131 DEFNDBINOP_FN (el_or, float_complex_matrix, float_scalar, float_complex_array,
134 DEFNDCATOP_FN (fcm_fs, float_complex_matrix, float_scalar, float_complex_array,
137 DEFNDCATOP_FN (cm_fs, complex_matrix, float_scalar, float_complex_array,
144 float_complex_array, assign)
#define INSTALL_ASSIGNOP_TI(ti, op, t1, t2, f)
FloatComplexNDArray float_complex_array_value(bool=false) const
octave_value xpow(const SparseMatrix &a, double b)
#define DEFBINOP(name, t1, t2)
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
octave_value op_el_ldiv(const octave_value &a1, const octave_value &a2)
FloatMatrix float_matrix_value(bool=false) const
ComplexNDArray concat(NDArray &ra, ComplexNDArray &rb, const Array< octave_idx_type > &ra_idx)
boolMatrix mx_el_le(const boolMatrix &m1, const boolMatrix &m2)
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
octave_value op_div(const octave_value &a1, const octave_value &a2)
FloatComplexMatrix float_complex_matrix_value(bool=false) const
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)
Matrix xleftdiv(const SparseMatrix &a, const Matrix &b, MatrixType &typ)
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)
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)
#define DEFNDASSIGNOP_FN(name, t1, t2, e, f)
octave_value op_ne(const octave_value &a1, const octave_value &a2)
boolMatrix mx_el_and(const boolMatrix &m1, const boolMatrix &m2)
MatrixType matrix_type(void) const
#define DEFNDASSIGNOP_OP(name, t1, t2, f, op)
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)
boolMatrix mx_el_lt(const boolMatrix &m1, const boolMatrix &m2)
void install_fcm_fs_ops(octave::type_info &ti)
octave_value op_el_mul(const octave_value &a1, const octave_value &a2)
#define DEFBINOP_FN(name, t1, t2, f)
octave_value op_ge(const octave_value &a1, const octave_value &a2)
float float_value(bool=false) const
#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)