26 #if defined (HAVE_CONFIG_H) 92 int nargin = args.length ();
105 if (
nn != args(0).columns ())
108 bool isfloat = args(0).is_single_type ()
109 || (! AEPcase && args(1).is_single_type ());
111 bool complex_case = args(0).iscomplex ()
112 || (! AEPcase && args(1).iscomplex ());
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";
159 result.balanced_matrix ());
162 result.permuting_vector (),
163 result.balanced_matrix ());
173 result.balanced_matrix ());
176 result.permuting_vector (),
177 result.balanced_matrix ());
190 result.balanced_matrix ());
193 result.permuting_vector (),
194 result.balanced_matrix ());
204 result.balanced_matrix ());
207 result.permuting_vector (),
208 result.balanced_matrix ());
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 ();
275 error (
"balance: invalid number of output arguments");
304 error (
"balance: invalid number of output arguments");
336 error (
"balance: invalid number of output arguments");
365 error (
"balance: invalid number of output arguments");
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,...)
void err_square_matrix_required(const char *fcn, const char *name)
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
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,...)
OCTAVE_EXPORT octave_value_list isa nd deftypefn *return ovl(args(0).isinteger())
bool is_string(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