47 const octave_idx_type&,
const FloatComplex*,
48 const octave_idx_type&,
const FloatComplex&,
49 FloatComplex*,
const octave_idx_type&
82 if (r < 0 || r + a_len >
length ())
84 (*current_liboctave_error_handler) (
"range error for insert");
105 if (r < 0 || r + a_len >
length ())
107 (*current_liboctave_error_handler) (
"range error for insert");
161 if (r1 < 0 || r2 < 0 || r1 >= len || r2 >= len)
163 (*current_liboctave_error_handler) (
"range error for fill");
167 if (r1 > r2) { std::swap (r1, r2); }
186 if (r1 < 0 || r2 < 0 || r1 >= len || r2 >= len)
188 (*current_liboctave_error_handler) (
"range error for fill");
192 if (r1 > r2) { std::swap (r1, r2); }
212 retval.
insert (a, nr_insert);
223 retval.
insert (a, nr_insert);
242 return do_mx_unary_map<float, FloatComplex, std::abs> (*this);
248 return do_mx_unary_map<FloatComplex, FloatComplex, std::conj<float> > (a);
256 if (r1 > r2) { std::swap (r1, r2); }
360 nr, nc, 1.0
f, m.
data (), nr,
361 a.
data (), 1, 0.0f, y, 1
395 if (nc == 0 || nr == 0)
404 result.
elem (i) = 0.0;
423 if (nc == 0 || nr == 0)
432 result.
elem (i) = 0.0;
451 if (nc == 0 || nr == 0)
460 result.
elem (i) = 0.0;
514 os << a.
elem (i) <<
"\n";
void mx_inline_add2(size_t n, R *r, const X *x)
#define F77_CHAR_ARG_LEN(l)
FloatComplexColumnVector operator*(const FloatComplexMatrix &m, const FloatColumnVector &a)
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)
FloatComplexRowVector transpose(void) const
T elem(octave_idx_type r, octave_idx_type c) const
bool operator!=(const FloatComplexColumnVector &a) const
FloatComplexColumnVector & operator-=(const FloatColumnVector &a)
octave_idx_type rows(void) const
MArray< T > transpose(void) const
FloatColumnVector abs(void) const
std::istream & operator>>(std::istream &is, FloatComplexColumnVector &a)
FloatComplex min(void) const
T & elem(octave_idx_type n)
FloatComplexColumnVector conj(const FloatComplexColumnVector &a)
bool operator==(const FloatComplexColumnVector &a) const
#define F77_XFCN(f, F, args)
FloatComplex max(void) const
octave_idx_type rows(void) const
F77_RET_T const double const double double * d
#define F77_CONST_CHAR_ARG2(x, l)
static MArray< double > const octave_idx_type const octave_idx_type octave_idx_type octave_idx_type r2
FloatComplexColumnVector & operator+=(const FloatColumnVector &a)
F77_RET_T const double const double * f
const FloatComplex * data(void) const
MArray< T > hermitian(T(*fcn)(const T &)=0) const
FloatComplexColumnVector stack(const FloatColumnVector &a) const
FloatComplexColumnVector(void)
FloatComplexRowVector hermitian(void) const
FloatComplex & xelem(octave_idx_type n)
F77_RET_T F77_FUNC(cgemv, CGEMV)(F77_CONST_CHAR_ARG_DECL
void clear(octave_idx_type n)
octave_idx_type cols(void) const
octave_idx_type length(void) const
Number of elements in the array.
#define F77_CONST_CHAR_ARG_DECL
FloatComplexColumnVector extract_n(octave_idx_type r1, octave_idx_type n) const
F77_RET_T const octave_idx_type const octave_idx_type const FloatComplex const FloatComplex const octave_idx_type const FloatComplex const octave_idx_type const FloatComplex FloatComplex const octave_idx_type & F77_CHAR_ARG_LEN_DECL
FloatComplexColumnVector & fill(float val)
std::ostream & operator<<(std::ostream &os, const FloatComplexColumnVector &a)
FloatComplexColumnVector & insert(const FloatColumnVector &a, octave_idx_type r)
std::complex< float > FloatComplex
static MArray< double > const octave_idx_type const octave_idx_type octave_idx_type r1
const FloatComplex * fortran_vec(void) const
FloatComplexColumnVector extract(octave_idx_type r1, octave_idx_type r2) const
bool mx_inline_equal(size_t n, const T1 *x, const T2 *y)
octave_idx_type cols(void) const