26 #if defined (HAVE_CONFIG_H)
94 if (nargin < 1 || nargin > 3 ||
nargout < 0)
100 bool AEPcase = nargin == 1 ||
args(1).is_string ();
105 if (nn !=
args(0).columns ())
109 || (! AEPcase &&
args(1).is_single_type ());
111 bool complex_case =
args(0).is_complex_type ()
112 || (! AEPcase &&
args(1).is_complex_type ());
123 fcaa =
args(0).float_complex_matrix_value ();
125 faa =
args(0).float_matrix_value ();
130 caa =
args(0).complex_matrix_value ();
132 aa =
args(0).matrix_value ();
144 noperm = a1s ==
"noperm" || a1s ==
"S";
145 noscal = a1s ==
"noscal" || a1s ==
"P";
216 warning (
"balance: used GEP, should have two output arguments");
222 bal_job =
args(2).xstring_value (
"balance: OPT argument must be a string");
224 if ((nn !=
args(1).columns ()) || (nn !=
args(1).rows ()))
235 fcbb =
args(1).float_complex_matrix_value ();
237 fbb =
args(1).float_matrix_value ();
242 cbb =
args(1).complex_matrix_value ();
244 bb =
args(1).matrix_value ();
271 error (
"balance: invalid number of output arguments");
296 error (
"balance: invalid number of output arguments");
324 error (
"balance: invalid number of output arguments");
349 error (
"balance: invalid number of output arguments");
MT balancing_matrix(void) const
OCTAVE_EXPORT octave_value_list isa nd deftypefn *return ovl(args(0).is_integer_type())
OCTINTERP_API void print_usage(void)
static octave_idx_type nn
T balanced_matrix2(void) const
VT scaling_vector(void) const
#define DEFUN(name, args_name, nargout_name, doc)
RT balancing_matrix(void) const
void error(const char *fmt,...)
void err_square_matrix_required(const char *fcn, const char *name)
VT permuting_vector(void) 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_EXPORT octave_value_list isfloat
T balanced_matrix(void) const
void err_nonconformant(const char *op, octave_idx_type op1_len, octave_idx_type op2_len)
With real return the complex result
void warning(const char *fmt,...)
MT balanced_matrix(void) 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
RT balancing_matrix2(void) const