24 #if defined (HAVE_CONFIG_H)
33 template <
typename ColumnVector,
typename Matrix,
typename RowVector>
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");
ColumnVector column_vector_value(bool frc_str_conv=false, bool frc_vec_conv=false) const
F77_RET_T const F77_INT const F77_INT const F77_INT const F77_DBLE const F77_DBLE F77_INT F77_DBLE * V
octave_idx_type rows(void) const
FloatComplexMatrix float_complex_matrix_value(bool frc_str_conv=false) const
OCTAVE_EXPORT octave_value_list isa nd deftypefn *return ovl(args(0).is_integer_type())
FloatColumnVector float_column_vector_value(bool frc_str_conv=false, bool frc_vec_conv=false) const
OCTINTERP_API void print_usage(void)
bool is_numeric_type(void) const
#define DEFUN(name, args_name, nargout_name, doc)
void error(const char *fmt,...)
static void do_mgorth(ColumnVector &x, const Matrix &V, RowVector &h)
octave_idx_type columns(void) const
bool is_complex_type(void) const
OCTAVE_API double xnorm(const ColumnVector &x, double p)
Matrix matrix_value(bool frc_str_conv=false) const
MArray< T > hermitian(T(*fcn)(const T &)=0) const
ComplexMatrix complex_matrix_value(bool frc_str_conv=false) const
FloatComplexColumnVector float_complex_column_vector_value(bool frc_str_conv=false, bool frc_vec_conv=false) const
FloatMatrix float_matrix_value(bool frc_str_conv=false) const
ColumnVector column(octave_idx_type i) const
ComplexColumnVector complex_column_vector_value(bool frc_str_conv=false, bool frc_vec_conv=false) const
bool is_single_type(void) const
octave_idx_type columns(void) const
F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T F77_REAL &F77_RET_T F77_DBLE &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 F77_REAL &F77_RET_T F77_DBLE &F77_RET_T F77_DBLE &F77_RET_T F77_REAL &F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T const F77_DBLE F77_DBLE &F77_RET_T const F77_REAL F77_REAL &F77_RET_T F77_REAL F77_REAL &F77_RET_T F77_DBLE F77_DBLE &F77_RET_T const F77_DBLE * x