24 #if defined (HAVE_CONFIG_H)
44 if (len != a.
numel ())
62 if (c < 0 || c + a_len >
numel ())
63 (*current_liboctave_error_handler) (
"range error for insert");
81 if (c < 0 || c + a_len >
numel ())
82 (*current_liboctave_error_handler) (
"range error for insert");
132 if (c1 < 0 || c2 < 0 || c1 >= len || c2 >= len)
133 (*current_liboctave_error_handler) (
"range error for fill");
154 if (c1 < 0 || c2 < 0 || c1 >= len || c2 >= len)
155 (*current_liboctave_error_handler) (
"range error for fill");
177 retval.insert (a, nc_insert);
188 retval.insert (a, nc_insert);
207 return do_mx_unary_map<Complex, Complex, std::conj<double> > (
a);
294 retval.
resize (a_nc, 0.0);
304 F77_XFCN (zgemv, ZGEMV, (F77_CONST_CHAR_ARG2 (
"T", 1),
307 F77_CHAR_ARG_LEN (1)));
369 os <<
" " << a.
elem (
i);
436 Complex delta = (x2 - x1) / (n - 1.0);
438 retval(
i) = x1 +
static_cast<double> (
i)*delta;
void mx_inline_add2(size_t n, R *r, const X *x)
ComplexRowVector & fill(double val)
ComplexColumnVector hermitian(void) const
void mx_inline_sub2(size_t n, R *r, const X *x)
octave_idx_type numel(void) const
Number of elements in the array.
identity matrix If supplied two scalar respectively For allows like xample val
#define F77_DBLE_CMPLX_ARG(x)
ComplexRowVector extract_n(octave_idx_type c1, octave_idx_type n) const
ComplexRowVector extract(octave_idx_type c1, octave_idx_type c2) const
MArray< T > transpose(void) const
bool operator!=(const ComplexRowVector &a) const
T & elem(octave_idx_type n)
std::istream & operator>>(std::istream &is, ComplexRowVector &a)
std::ostream & operator<<(std::ostream &os, const ComplexRowVector &a)
#define F77_XFCN(f, F, args)
octave_idx_type rows(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
ComplexRowVector append(const RowVector &a) const
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
subroutine xzdotu(n, zx, incx, zy, incy, retval)
const Complex * data(void) const
void err_nonconformant(const char *op, octave_idx_type op1_len, octave_idx_type op2_len)
F77_RET_T F77_FUNC(xstopx, XSTOPX) const
bool operator==(const ComplexRowVector &a) const
the sparsity preserving column transformation such that that defines the pivoting threshold can be given in which case it defines the c
MArray< T > hermitian(T(*fcn)(const T &)=0) const
With real return the complex result
void resize(octave_idx_type n, const Complex &rfv=Complex(0))
Complex & xelem(octave_idx_type n)
#define F77_CONST_DBLE_CMPLX_ARG(x)
This is a simple wrapper template that will subclass an Array type or any later type derived from ...
=val(i)}if ode{val(i)}occurs in table i
OCTAVE_EXPORT octave_value_list return the value of the option it must match the dimension of the state and the relative tolerance must also be a vector of the same length tem it must match the dimension of the state and the absolute tolerance must also be a vector of the same length The local error test applied at each integration step is xample roup abs(local error in x(i))<
ComplexRowVector & insert(const RowVector &a, octave_idx_type c)
ComplexRowVector & operator+=(const RowVector &a)
the element is set to zero In other the statement xample y
ComplexRowVector & operator-=(const RowVector &a)
ComplexRowVector operator*(const ComplexRowVector &v, const ComplexMatrix &a)
ComplexColumnVector transpose(void) const
std::complex< double > Complex
const Complex * fortran_vec(void) const
bool mx_inline_equal(size_t n, const T1 *x, const T2 *y)
octave_idx_type cols(void) const
write the output to stdout if nargout is
ComplexRowVector linspace(const Complex &x1, const Complex &x2, octave_idx_type n)
ComplexRowVector conj(const ComplexRowVector &a)