#include "oct-norm.h"
#include "defun-dld.h"
#include "error.h"
#include "gripes.h"
Go to the source code of this file.
Functions | |
DEFUN_DLD (mgorth, args, nargout,"-*- texinfo -*-\n\ @deftypefn {Loadable Function} {[@var{y}, @var{h}] =} mgorth (@var{x}, @var{v})\n\ Orthogonalize a given column vector @var{x} with respect to a given\n\ orthonormal basis @var{v} using a modified Gram-Schmidt orthogonalization. \n\ On exit, @var{y} is a unit vector such that:\n\ \n\ @example\n\ @group\n\ norm (@var{y}) = 1\n\ @var{v}' * @var{y} = 0\n\ @var{x} = @var{h}*[@var{v}, @var{y}]\n\ @end group\n\ @end example\n\ \n\ @end deftypefn") | |
template<class ColumnVector , class Matrix , class RowVector > | |
static void | do_mgorth (ColumnVector &x, const Matrix &V, RowVector &h) |
DEFUN_DLD | ( | mgorth | , | |
args | , | |||
nargout | ||||
) |
Definition at line 51 of file mgorth.cc.
References octave_value::column_vector_value(), octave_value::columns(), octave_value::complex_column_vector_value(), octave_value::complex_matrix_value(), do_mgorth(), error(), octave_value::float_column_vector_value(), octave_value::float_complex_column_vector_value(), octave_value::float_complex_matrix_value(), octave_value::float_matrix_value(), octave_value::is_complex_type(), octave_value::is_numeric_type(), octave_value::is_single_type(), octave_value::matrix_value(), octave_value::ndims(), print_usage(), octave_value::rows(), V, and x.
static void do_mgorth | ( | ColumnVector & | x, | |
const Matrix & | V, | |||
RowVector & | h | |||
) | [static] |
Definition at line 35 of file mgorth.cc.
References Matrix::column(), Array< T >::columns(), MArray< T >::hermitian(), real, and xnorm().
Referenced by DEFUN_DLD().