23 #if defined (HAVE_CONFIG_H) 43 if (len !=
a.numel ())
61 if (c < 0 || c + a_len >
numel ())
62 (*current_liboctave_error_handler) (
"range error for insert");
80 if (c < 0 || c + a_len >
numel ())
81 (*current_liboctave_error_handler) (
"range error for insert");
131 if (c1 < 0 || c2 < 0 || c1 >= len || c2 >= len)
132 (*current_liboctave_error_handler) (
"range error for fill");
153 if (c1 < 0 || c2 < 0 || c1 >= len || c2 >= len)
154 (*current_liboctave_error_handler) (
"range error for fill");
206 return do_mx_unary_map<Complex, Complex, std::conj<double>> (
a);
303 F77_XFCN (zgemv, ZGEMV, (F77_CONST_CHAR_ARG2 (
"T", 1),
306 F77_CHAR_ARG_LEN (1)));
368 os <<
' ' <<
a.elem (
i);
410 F77_INT a_len = octave::to_f77_int (
a.numel ());
435 Complex delta = (x2 - x1) / (n - 1.0);
437 retval(
i) = x1 +
static_cast<double> (
i)*delta;
void mx_inline_add2(size_t n, R *r, const X *x)
ComplexRowVector & fill(double val)
void mx_inline_sub2(size_t n, R *r, const X *x)
ComplexColumnVector transpose(void) const
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 ComplexRowVector &a) const
Complex & elem(octave_idx_type n)
std::istream & operator>>(std::istream &is, ComplexRowVector &a)
nd example oindent opens the file binary numeric values will be read assuming they are stored in IEEE format with the least significant bit and then converted to the native representation Opening a file that is already open simply opens it again and returns a separate file id It is not an error to open a file several though writing to the same file through several different file ids may produce unexpected results The possible values of text mode reading and writing automatically converts linefeeds to the appropriate line end character for the you may append a you must also open the file in binary mode The parameter conversions are currently only supported for and permissions will be set to and then everything is written in a single operation This is very efficient and improves performance c
MArray< T > transpose(void) const
std::ostream & operator<<(std::ostream &os, const ComplexRowVector &a)
#define F77_XFCN(f, F, args)
ComplexRowVector extract(octave_idx_type c1, octave_idx_type c2) 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_value resize(const dim_vector &dv, bool fill=false) const
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
subroutine xzdotu(n, zx, incx, zy, incy, retval)
void err_nonconformant(const char *op, octave_idx_type op1_len, octave_idx_type op2_len)
ComplexRowVector append(const RowVector &a) const
F77_RET_T F77_FUNC(xerbla, XERBLA)
With real return the complex result
ComplexRowVector extract_n(octave_idx_type c1, octave_idx_type n) const
Complex & xelem(octave_idx_type n)
ComplexColumnVector hermitian(void) const
#define F77_CONST_DBLE_CMPLX_ARG(x)
This is a simple wrapper template that will subclass an Array<T> type or any later type derived from ...
octave_f77_int_type F77_INT
bool operator!=(const ComplexRowVector &a) const
ComplexRowVector & insert(const RowVector &a, octave_idx_type c)
ComplexRowVector & operator+=(const RowVector &a)
the element is set to zero In other the statement xample y
ComplexRowVector & operator-=(const RowVector &a)
ComplexRowVector operator*(const ComplexRowVector &v, const ComplexMatrix &a)
std::complex< double > Complex
octave_idx_type numel(void) const
Number of elements in the array.
bool mx_inline_equal(size_t n, const T1 *x, const T2 *y)
write the output to stdout if nargout is
ComplexRowVector linspace(const Complex &x1, const Complex &x2, octave_idx_type n)
ComplexRowVector conj(const ComplexRowVector &a)