24 #if defined (HAVE_CONFIG_H) 33 template <
typename ColumnVector,
typename Matrix,
typename RowVector>
51 DEFUN (mgorth, args, ,
70 if (args.length () != 2)
78 error (
"mgorth: V should be a matrix, and X a column vector with" 79 " the same number of rows as V.");
82 error (
"mgorth: X and V must be numeric");
F77_RET_T const F77_INT const F77_INT const F77_INT const F77_DBLE const F77_DBLE F77_INT F77_DBLE * V
FloatComplexColumnVector float_complex_column_vector_value(bool frc_str_conv=false, bool frc_vec_conv=false) const
MArray< T > hermitian(T(*fcn)(const T &)=nullptr) const
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
static void do_mgorth(ColumnVector &x, const Matrix &V, RowVector &h)
FloatComplexMatrix float_complex_matrix_value(bool frc_str_conv=false) const
octave_idx_type columns(void) const
bool is_single_type(void) const
ComplexColumnVector complex_column_vector_value(bool frc_str_conv=false, bool frc_vec_conv=false) const
octave_idx_type rows(void) const
OCTAVE_API double xnorm(const ColumnVector &x, double p)
FloatColumnVector float_column_vector_value(bool frc_str_conv=false, bool frc_vec_conv=false) const
OCTAVE_EXPORT octave_value_list isa nd deftypefn *return ovl(args(0).isinteger())
ColumnVector column_vector_value(bool frc_str_conv=false, bool frc_vec_conv=false) const
bool iscomplex(void) const
ComplexMatrix complex_matrix_value(bool frc_str_conv=false) const
ColumnVector real(const ComplexColumnVector &a)
bool isnumeric(void) const
Matrix matrix_value(bool frc_str_conv=false) 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 * x