45 const double&,
const double*,
46 const octave_idx_type&,
const double*,
47 const octave_idx_type&,
const double&,
48 double*,
const octave_idx_type&
51 F77_FUNC (
xddot, XDDOT) (
const octave_idx_type&,
const double*,
52 const octave_idx_type&,
const double*,
53 const octave_idx_type&,
double&);
78 if (c < 0 || c + a_len >
length ())
80 (*current_liboctave_error_handler) (
"range error for insert");
116 if (c1 < 0 || c2 < 0 || c1 >= len || c2 >= len)
118 (*current_liboctave_error_handler) (
"range error for fill");
122 if (c1 > c2) { std::swap (c1, c2); }
142 retval.
insert (a, nc_insert);
167 if (c1 > c2) { std::swap (c1, c2); }
207 retval.
resize (a_nc, 0.0);
218 a_nr, a_nc, 1.0, a.
data (),
219 ld, v.
data (), 1, 0.0, y, 1
236 double res =
elem (0);
252 double res =
elem (0);
267 os <<
" " << a.
elem (i);
300 double delta = (x2 - x1) / (n - 1);
303 retval(i) = x1 + i*delta;
RowVector linspace(double x1, double x2, octave_idx_type n)
#define F77_CHAR_ARG_LEN(l)
RowVector real(const ComplexRowVector &a)
void gripe_nonconformant(const char *op, octave_idx_type op1_len, octave_idx_type op2_len)
subroutine xddot(n, dx, incx, dy, incy, retval)
void resize(octave_idx_type n, const double &rfv=0)
RowVector operator*(const RowVector &v, const Matrix &a)
RowVector extract(octave_idx_type c1, octave_idx_type c2) const
bool operator!=(const RowVector &a) const
void mx_inline_real(size_t n, T *r, const std::complex< T > *x)
bool operator==(const RowVector &a) const
MArray< T > transpose(void) const
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
T & elem(octave_idx_type n)
#define F77_XFCN(f, F, args)
octave_idx_type rows(void) const
#define F77_CONST_CHAR_ARG2(x, l)
void mx_inline_imag(size_t n, T *r, const std::complex< T > *x)
std::ostream & operator<<(std::ostream &os, const RowVector &a)
F77_RET_T F77_FUNC(dgemv, DGEMV)(F77_CONST_CHAR_ARG_DECL
RowVector extract_n(octave_idx_type c1, octave_idx_type n) const
const double * data(void) const
double & xelem(octave_idx_type n)
octave_idx_type length(void) const
Number of elements in the array.
This is a simple wrapper template that will subclass an Array type or any later type derived from ...
#define F77_CONST_CHAR_ARG_DECL
ColumnVector transpose(void) const
RowVector append(const RowVector &a) const
static MArray< double > const octave_idx_type const octave_idx_type octave_idx_type octave_idx_type octave_idx_type c1
static MArray< double > const octave_idx_type const octave_idx_type octave_idx_type r1
std::complex< double > Complex
RowVector & insert(const RowVector &a, octave_idx_type c)
const T * fortran_vec(void) const
bool mx_inline_equal(size_t n, const T1 *x, const T2 *y)
octave_idx_type cols(void) const
std::istream & operator>>(std::istream &is, RowVector &a)
RowVector & fill(double val)
RowVector imag(const ComplexRowVector &a)