24 #if defined (HAVE_CONFIG_H) 100 int nargin = args.length ();
121 bool AEPcase =
nargin == 1 || args(1).is_string ();
137 bool qz_flag =
false;
138 bool chol_flag =
false;
139 bool balance_flag =
false;
140 bool no_balance_flag =
false;
141 bool matrix_flag =
false;
142 bool vector_flag =
false;
144 for (
int i = (AEPcase ? 1 : 2);
i < args.length (); ++
i)
146 if (! args(
i).is_string ())
157 no_balance_flag =
true;
163 error (R
"(eig: invalid option "%s")", arg_i.c_str ()); 166 if (balance_flag && no_balance_flag)
167 error (R
"(eig: "balance" and "nobalance" options are mutually exclusive)"); 168 if (vector_flag && matrix_flag)
169 error (R
"(eig: "vector" and "matrix" options are mutually exclusive)"); 170 if (qz_flag && chol_flag)
171 error (R
"(eig: "qz" and "chol" options are mutually exclusive)"); 176 error (R
"(eig: invalid "qz" option for algebraic eigenvalue problem)"); 178 error (R
"(eig: invalid "chol" option for algebraic eigenvalue problem)"); 183 error (R
"(eig: invalid "balance" option for generalized eigenvalue problem)"); 185 error (R
"(eig: invalid "nobalance" option for generalized eigenvalue problem)"); 189 const bool balance = (no_balance_flag ?
false :
true);
190 const bool force_qz = qz_flag;
256 result.left_eigenvectors ());
260 result.left_eigenvectors ());
320 result.left_eigenvectors ());
324 result.left_eigenvectors ());
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,...)
FloatMatrix float_matrix_value(bool frc_str_conv=false) const
void err_square_matrix_required(const char *fcn, const char *name)
FloatComplexMatrix float_complex_matrix_value(bool frc_str_conv=false) const
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)
octave_idx_type columns(void) const
bool is_single_type(void) const
octave_idx_type rows(void) const
void err_wrong_type_arg(const char *name, const char *s)
With real return the complex result
bool strcmpi(const T &str_a, const T &str_b)
True if strings are the same, ignoring case.
OCTAVE_EXPORT octave_value_list isa nd deftypefn *return ovl(args(0).isinteger())
ComplexMatrix complex_matrix_value(bool frc_str_conv=false) const
If this string is the system will ring the terminal sometimes it is useful to be able to print the original representation of the string
Matrix matrix_value(bool frc_str_conv=false) const