57 bool is_single =
false)
68 for (
int i = sigA.
rows () - 1;
i >= 0;
i--)
76 for (
int i = sigA.
rows () - 1;
i >= 0;
i--)
151 int nargin = args.length ();
156 warning (
"gsvd: economy-sized decomposition is not yet implemented, returning full decomposition");
169 if (nr == 0 || nc == 0)
222 error (
"gsvd: A cannot have Inf or NaN values");
224 error (
"gsvd: B cannot have Inf or NaN values");
234 error (
"gsvd: A cannot have Inf or NaN values");
236 error (
"gsvd: B cannot have Inf or NaN values");
241 error (
"gsvd: A and B must be real or complex matrices");
251 error (
"gsvd: A cannot have Inf or NaN values");
253 error (
"gsvd: B cannot have Inf or NaN values");
263 error (
"gsvd: A cannot have Inf or NaN values");
265 error (
"gsvd: B cannot have Inf or NaN values");
270 error (
"gsvd: A and B must be real or complex matrices");
static octave_value_list do_gsvd(const T &A, const T &B, const octave_idx_type nargout, bool is_single=false)
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX * B
OCTINTERP_API void print_usage(void)
#define DEFUN(name, args_name, nargout_name, doc)
Macro to define a builtin function.
void error(const char *fmt,...)
octave_idx_type rows(void) const
bool any_element_is_inf_or_nan(void) const
F77_RET_T const F77_INT F77_CMPLX * A
OCTAVE_EXPORT octave_value_list return the number of command line arguments passed to Octave If called with the optional argument the function xample nargout(@histc)
Matrix xmatrix_value(const char *fmt,...) const
octave_idx_type columns(void) const
static octave::math::gsvd< T >::Type gsvd_type(int nargout)
bool is_single_type(void) const
FloatMatrix xfloat_matrix_value(const char *fmt,...) const
octave_idx_type rows(void) const
MArray< T > diag(octave_idx_type k=0) const
T & dgxelem(octave_idx_type i)
bool any_element_is_inf_or_nan(void) const
With real return the complex result
OCTINTERP_API FloatMatrix float_identity_matrix(octave_idx_type nr, octave_idx_type nc)
void warning(const char *fmt,...)
bool any_element_is_inf_or_nan(void) const
OCTINTERP_API Matrix identity_matrix(octave_idx_type nr, octave_idx_type nc)
FloatComplexMatrix xfloat_complex_matrix_value(const char *fmt,...) const
bool iscomplex(void) const
ComplexMatrix xcomplex_matrix_value(const char *fmt,...) const
bool any_element_is_inf_or_nan(void) const