46 const double&,
const double*,
47 const octave_idx_type&,
const double*,
48 const octave_idx_type&,
const double&,
double*,
49 const octave_idx_type&
75 if (r < 0 || r + a_len >
length ())
77 (*current_liboctave_error_handler) (
"range error for insert");
113 if (r1 < 0 || r2 < 0 || r1 >= len || r2 >= len)
115 (*current_liboctave_error_handler) (
"range error for fill");
119 if (r1 > r2) { std::swap (r1, r2); }
139 retval.
insert (a, nr_insert);
152 return do_mx_unary_map<double, double, std::abs> (*this);
172 if (r1 > r2) { std::swap (r1, r2); }
222 nr, nc, 1.0, m.
data (), nr,
223 a.
data (), 1, 0.0, y, 1
248 if (nr == 0 || nc == 0)
258 retval.
elem (i) = 0.0;
274 double res =
elem (0);
290 double res =
elem (0);
304 os << a.
elem (i) <<
"\n";
ColumnVector & fill(double val)
ColumnVector operator*(const Matrix &m, const ColumnVector &a)
F77_RET_T F77_FUNC(dgemv, DGEMV)(F77_CONST_CHAR_ARG_DECL
#define F77_CHAR_ARG_LEN(l)
void gripe_nonconformant(const char *op, octave_idx_type op1_len, octave_idx_type op2_len)
F77_RET_T const octave_idx_type const octave_idx_type const double const double const octave_idx_type const double const octave_idx_type const double double const octave_idx_type & F77_CHAR_ARG_LEN_DECL
bool operator==(const ColumnVector &a) const
T elem(octave_idx_type r, octave_idx_type c) const
void clear(octave_idx_type n)
std::istream & operator>>(std::istream &is, ColumnVector &a)
void mx_inline_real(size_t n, T *r, const std::complex< T > *x)
octave_idx_type rows(void) const
MArray< T > transpose(void) const
T & elem(octave_idx_type n)
#define F77_XFCN(f, F, args)
octave_idx_type rows(void) const
RowVector transpose(void) const
#define F77_CONST_CHAR_ARG2(x, l)
void mx_inline_imag(size_t n, T *r, const std::complex< T > *x)
static MArray< double > const octave_idx_type const octave_idx_type octave_idx_type octave_idx_type r2
ColumnVector abs(void) const
ColumnVector extract_n(octave_idx_type r1, octave_idx_type n) const
const double * data(void) const
double & xelem(octave_idx_type n)
octave_idx_type cols(void) const
octave_idx_type length(void) const
Number of elements in the array.
bool operator!=(const ColumnVector &a) const
#define F77_CONST_CHAR_ARG_DECL
ColumnVector & insert(const ColumnVector &a, octave_idx_type r)
ColumnVector imag(const ComplexColumnVector &a)
std::ostream & operator<<(std::ostream &os, const ColumnVector &a)
static MArray< double > const octave_idx_type const octave_idx_type octave_idx_type r1
const T * fortran_vec(void) const
ColumnVector real(const ComplexColumnVector &a)
bool mx_inline_equal(size_t n, const T1 *x, const T2 *y)
octave_idx_type cols(void) const
ColumnVector stack(const ColumnVector &a) const
ColumnVector extract(octave_idx_type r1, octave_idx_type r2) const
void resize(octave_idx_type n, const double &rfv=0)