24 #if defined (HAVE_CONFIG_H)
49 DEFBINOP (div, complex_matrix, sparse_complex_matrix)
79 error (
"can't do A ^ B for A and B both matrices");
82 DEFBINOP (ldiv, complex_matrix, sparse_complex_matrix)
110 DEFBINOP (el_pow, complex_matrix, sparse_complex_matrix)
136 DEFCATOP (cm_scm, complex_matrix, sparse_complex_matrix)
146 DEFCONV (sparse_complex_matrix_conv, complex_matrix,
147 sparse_complex_matrix)
156 complex_array, assign)
211 sparse_complex_matrix_conv);
ComplexColumnVector product(const ComplexColumnVector &x, const ComplexColumnVector &y)
octave_value op_mul_trans(const octave_value &a1, const octave_value &a2)
void install_cm_scm_ops(void)
#define DEFBINOP(name, t1, t2)
octave_value op_el_pow(const octave_value &a1, const octave_value &a2)
#define DEFBINOPX(name, t1, t2)
const octave_base_value const Array< octave_idx_type > & ra_idx
octave_value op_eq(const octave_value &a1, const octave_value &a2)
octave_idx_type columns(void) const
Complex complex_value(bool=false) const
octave_value op_el_ldiv(const octave_value &a1, const octave_value &a2)
the sparsity preserving column transformation such that that defines the pivoting threshold can be given in which case it defines the then the first element defines the pivoting tolerance for the unsymmetric the values defined such that for full matrix
ComplexNDArray concat(NDArray &ra, ComplexNDArray &rb, const Array< octave_idx_type > &ra_idx)
boolMatrix mx_el_le(const boolMatrix &m1, const boolMatrix &m2)
void error(const char *fmt,...)
#define INSTALL_WIDENOP(t1, t2, f)
octave_value op_pow(const octave_value &a1, const octave_value &a2)
ComplexNDArray complex_array_value(bool=false) const
SparseComplexMatrix sparse_complex_matrix_value(bool=false) const
#define INSTALL_ASSIGNOP(op, t1, t2, f)
MatrixType matrix_type(void) const
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
ComplexMatrix mul_trans(const ComplexMatrix &m, const SparseComplexMatrix &a)
#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)
ComplexMatrix complex_matrix_value(bool=false) const
#define INSTALL_BINOP(op, t1, t2, f)
boolMatrix mx_el_ge(const boolMatrix &m1, const boolMatrix &m2)
boolMatrix mx_el_gt(const boolMatrix &m1, const boolMatrix &m2)
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)
ComplexMatrix mul_herm(const ComplexMatrix &m, const SparseComplexMatrix &a)
octave_value op_mul_herm(const octave_value &a1, const octave_value &a2)
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)
#define INSTALL_CATOP(t1, t2, f)
octave_value op_el_div(const octave_value &a1, const octave_value &a2)
ComplexMatrix complex_matrix_value(bool=false) const
#define DEFCATOP(name, t1, t2)
const octave_char_matrix & v2
boolMatrix mx_el_or(const boolMatrix &m1, const boolMatrix &m2)
#define DEFNDASSIGNOP_FN(name, t1, t2, e, f)
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)
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)
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)
std::complex< double > Complex
#define INSTALL_ASSIGNCONV(t1, t2, tr)
octave_value op_ge(const octave_value &a1, const octave_value &a2)
boolMatrix mx_el_eq(const boolMatrix &m1, const boolMatrix &m2)
octave_value op_mul(const octave_value &a1, const octave_value &a2)
octave_idx_type rows(void) const
octave_value op_gt(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())? '\'': '"'))