46 const octave_idx_type&,
const Complex*,
47 const octave_idx_type&,
const Complex&, Complex*,
48 const octave_idx_type&
53 const octave_idx_type&,
const Complex*,
54 const octave_idx_type&, Complex&);
81 if (c < 0 || c + a_len >
length ())
83 (*current_liboctave_error_handler) (
"range error for insert");
103 if (c < 0 || c + a_len >
length ())
105 (*current_liboctave_error_handler) (
"range error for insert");
157 if (c1 < 0 || c2 < 0 || c1 >= len || c2 >= len)
159 (*current_liboctave_error_handler) (
"range error for fill");
163 if (c1 > c2) { std::swap (c1, c2); }
182 if (c1 < 0 || c2 < 0 || c1 >= len || c2 >= len)
184 (*current_liboctave_error_handler) (
"range error for fill");
188 if (c1 > c2) { std::swap (c1, c2); }
208 retval.
insert (a, nc_insert);
219 retval.
insert (a, nc_insert);
238 return do_mx_unary_map<Complex, Complex, std::conj<double> > (a);
246 if (c1 > c2) { std::swap (c1, c2); }
332 retval.
resize (a_nc, 0.0);
343 a_nr, a_nc, 1.0, a.
data (),
344 ld, v.
data (), 1, 0.0, y, 1
408 os <<
" " << a.
elem (i);
469 Complex delta = (x2 - x1) / (n - 1.0);
472 retval(i) = x1 +
static_cast<double> (i)*delta;
void mx_inline_add2(size_t n, R *r, const X *x)
ComplexRowVector & fill(double val)
#define F77_CHAR_ARG_LEN(l)
ComplexColumnVector hermitian(void) const
void gripe_nonconformant(const char *op, octave_idx_type op1_len, octave_idx_type op2_len)
void mx_inline_sub2(size_t n, R *r, const X *x)
bool operator==(const ComplexRowVector &a) const
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 const double const double double * d
#define F77_CONST_CHAR_ARG2(x, l)
ComplexRowVector append(const RowVector &a) const
subroutine xzdotu(n, zx, incx, zy, incy, retval)
const Complex * data(void) const
F77_RET_T F77_FUNC(zgemv, ZGEMV)(F77_CONST_CHAR_ARG_DECL
MArray< T > hermitian(T(*fcn)(const T &)=0) const
void resize(octave_idx_type n, const Complex &rfv=Complex(0))
Complex & 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
ComplexRowVector & insert(const RowVector &a, octave_idx_type c)
ComplexRowVector & operator+=(const RowVector &a)
ComplexRowVector & operator-=(const RowVector &a)
ComplexRowVector operator*(const ComplexRowVector &v, const ComplexMatrix &a)
F77_RET_T const octave_idx_type const octave_idx_type const Complex const Complex const octave_idx_type const Complex const octave_idx_type const Complex Complex const octave_idx_type & F77_CHAR_ARG_LEN_DECL
ComplexColumnVector transpose(void) 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
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
ComplexRowVector linspace(const Complex &x1, const Complex &x2, octave_idx_type n)
ComplexRowVector conj(const ComplexRowVector &a)