23 #if defined (HAVE_CONFIG_H)
35 #if ! defined (SCALARV)
36 # define SCALARV SCALAR
39 #if ! defined (MATRIXV)
40 # define MATRIXV MATRIX
46 #define OCTAVE_MATRIX CONCAT2(octave_, MATRIX)
47 #define OCTAVE_SCALAR CONCAT2(octave_, SCALAR)
48 #define MATRIX_VALUE CONCAT2(MATRIXV, _value)
49 #define SCALAR_VALUE CONCAT2(SCALARV, _value)
66 return v1.MATRIX_VALUE () /
gripe_if_zero (v2.SCALAR_VALUE ());
74 return v2.MATRIX_VALUE () /
gripe_if_zero (v1.SCALAR_VALUE ());
82 return xpow (v1.MATRIX_VALUE (), v2.SCALAR_VALUE ());
85 #define SHORT_NAME CONCAT3(MSHORT, _, SSHORT)
86 #define INST_NAME CONCAT3(install_, SHORT_NAME, _ops)
octave_value xpow(const SparseMatrix &a, double b)
#define DEFBINOP(name, t1, t2)
static T gripe_if_zero(T x)
octave_value op_pow(const octave_value &a1, const octave_value &a2)
const octave_base_value & a2
octave_value op_div(const octave_value &a1, const octave_value &a2)
#define INSTALL_BINOP(op, t1, t2, f)
void warn_divide_by_zero(void)
const octave_char_matrix & v2
octave_value op_ldiv(const octave_value &a1, const octave_value &a2)
#define DEFNDBINOP_OP(name, t1, t2, e1, e2, op)
octave_value op_mul(const octave_value &a1, const octave_value &a2)
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 * x