24 #if defined (HAVE_CONFIG_H) 48 if (len !=
a.numel ())
66 if (r < 0 || r + a_len >
numel ())
67 (*current_liboctave_error_handler) (
"range error for insert");
85 if (r < 0 || r + a_len >
numel ())
86 (*current_liboctave_error_handler) (
"range error for insert");
136 if (r1 < 0 || r2 < 0 || r1 >= len || r2 >= len)
137 (*current_liboctave_error_handler) (
"range error for fill");
158 if (r1 < 0 || r2 < 0 || r1 >= len || r2 >= len)
159 (*current_liboctave_error_handler) (
"range error for fill");
211 return do_mx_unary_map<double, Complex, std::abs> (*this);
217 return do_mx_unary_map<Complex, Complex, std::conj<double>> (
a);
305 F77_INT a_len = octave::to_f77_int (
a.numel ());
320 F77_XFCN (zgemv, ZGEMV, (F77_CONST_CHAR_ARG2 (
"N", 1),
325 F77_CHAR_ARG_LEN (1)));
349 F77_INT a_len = octave::to_f77_int (
a.numel ());
354 if (nc == 0 || nr == 0)
374 F77_INT a_len = octave::to_f77_int (
a.numel ());
379 if (nc == 0 || nr == 0)
399 F77_INT a_len = octave::to_f77_int (
a.numel ());
404 if (nc == 0 || nr == 0)
467 os <<
a.elem (
i) <<
"\n";
octave_idx_type rows(void) const
void mx_inline_add2(size_t n, R *r, const X *x)
ComplexColumnVector & insert(const ColumnVector &a, octave_idx_type r)
Template for N-dimensional array classes with like-type math operators.
void mx_inline_sub2(size_t n, R *r, const X *x)
std::ostream & operator<<(std::ostream &os, const ComplexColumnVector &a)
const Complex * data(void) const
MArray< T > hermitian(T(*fcn)(const T &)=nullptr) const
identity matrix If supplied two scalar respectively For allows like xample val
#define F77_DBLE_CMPLX_ARG(x)
const Complex * fortran_vec(void) const
bool operator==(const ComplexColumnVector &a) const
ComplexRowVector hermitian(void) const
Complex & elem(octave_idx_type n)
ComplexColumnVector stack(const ColumnVector &a) const
octave_idx_type rows(void) const
MArray< T > transpose(void) const
#define F77_XFCN(f, F, args)
ComplexColumnVector extract_n(octave_idx_type r1, octave_idx_type n) const
T elem(octave_idx_type r, octave_idx_type c) const
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 const F77_DBLE F77_DBLE &F77_RET_T const F77_REAL F77_REAL &F77_RET_T const F77_DBLE const F77_DBLE F77_DBLE * d
octave_idx_type cols(void) const
ComplexColumnVector & operator+=(const ColumnVector &a)
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
ComplexColumnVector conj(const ComplexColumnVector &a)
octave_idx_type cols(void) const
ColumnVector abs(void) const
bool operator!=(const ComplexColumnVector &a) const
ComplexColumnVector operator*(const ComplexMatrix &m, const ColumnVector &a)
void err_nonconformant(const char *op, octave_idx_type op1_len, octave_idx_type op2_len)
ComplexColumnVector & operator-=(const ColumnVector &a)
With real return the complex result
Complex & xelem(octave_idx_type n)
ComplexColumnVector & fill(double val)
#define F77_CONST_DBLE_CMPLX_ARG(x)
ComplexColumnVector(void)
octave_f77_int_type F77_INT
the element is set to zero In other the statement xample y
ComplexRowVector transpose(void) const
std::complex< double > Complex
octave_idx_type numel(void) const
Number of elements in the array.
ComplexColumnVector extract(octave_idx_type r1, octave_idx_type r2) const
bool mx_inline_equal(size_t n, const T1 *x, const T2 *y)
std::istream & operator>>(std::istream &is, ComplexColumnVector &a)
write the output to stdout if nargout is