23 #if defined (HAVE_CONFIG_H) 27 #include "mx-fm-fcm.h" 28 #include "mx-fcm-fm.h" 29 #include "mx-fnda-fcnda.h" 30 #include "mx-fcnda-fnda.h" 46 DEFNDBINOP_OP (add, float_matrix, float_complex_matrix, float_array,
47 float_complex_array, +)
48 DEFNDBINOP_OP (sub, float_matrix, float_complex_matrix, float_array,
49 float_complex_array, -)
67 DEFBINOP (div, float_matrix, float_complex_matrix)
84 error (
"can't do A ^ B for A and B both matrices");
87 DEFBINOP (ldiv, float_matrix, float_complex_matrix)
102 DEFBINOP (trans_ldiv, float_matrix, float_complex_matrix)
131 DEFNDBINOP_FN (el_mul, float_matrix, float_complex_matrix, float_array,
133 DEFNDBINOP_FN (el_div, float_matrix, float_complex_matrix, float_array,
135 DEFNDBINOP_FN (el_pow, float_matrix, float_complex_matrix, float_array,
138 DEFBINOP (el_ldiv, float_matrix, float_complex_matrix)
148 DEFNDBINOP_FN (el_and, float_matrix, float_complex_matrix, float_array,
150 DEFNDBINOP_FN (el_or, float_matrix, float_complex_matrix, float_array,
153 DEFNDCATOP_FN (fm_fcm, float_matrix, float_complex_matrix, float_array,
159 DEFNDCATOP_FN (fm_cm, float_matrix, complex_matrix, float_array,
162 DEFCONV (float_complex_matrix_conv, float_matrix, float_complex_matrix)
228 float_complex_matrix_conv);
ComplexColumnVector product(const ComplexColumnVector &x, const ComplexColumnVector &y)
#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 DEFBINOPX(name, t1, t2)
#define INSTALL_BINOP_TI(ti, op, t1, t2, f)
characters Given a string matrix
octave_value op_eq(const octave_value &a1, const octave_value &a2)
void install_fm_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
void error(const char *fmt,...)
octave_value op_pow(const octave_value &a1, const octave_value &a2)
#define DEFNDBINOP_FN(name, t1, t2, e1, e2, f)
#define DEFBINOP_OP(name, t1, t2, op)
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)
ComplexColumnVector quotient(const ComplexColumnVector &x, const ComplexColumnVector &y)
FloatNDArray float_array_value(bool=false) const
boolMatrix mx_el_ge(const boolMatrix &m1, const boolMatrix &m2)
boolMatrix mx_el_gt(const boolMatrix &m1, const boolMatrix &m2)
#define INSTALL_CATOP_TI(ti, t1, t2, f)
FloatMatrix float_matrix_value(bool=false) const
octave_value op_trans_mul(const octave_value &a1, const octave_value &a2)
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)
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)
ComplexMatrix xgemm(const ComplexMatrix &a, const ComplexMatrix &b, blas_trans_type transa, blas_trans_type transb)
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)
ComplexMatrix trans_mul(const SparseComplexMatrix &m, const ComplexMatrix &a)
boolMatrix mx_el_and(const boolMatrix &m1, const boolMatrix &m2)
MatrixType matrix_type(void) 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)
ColumnVector imag(const ComplexColumnVector &a)
#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)
octave_value op_herm_mul(const octave_value &a1, const octave_value &a2)
ColumnVector real(const ComplexColumnVector &a)
#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)