39 float*,
const octave_idx_type&,
float*,
40 float*,
const octave_idx_type&,
float*,
41 const octave_idx_type&,
float*,
42 const octave_idx_type&, octave_idx_type&
48 const octave_idx_type&,
const octave_idx_type&,
49 float*,
const octave_idx_type&,
float*,
50 float*,
const octave_idx_type&,
float*,
51 const octave_idx_type&,
float*,
52 const octave_idx_type&, octave_idx_type *,
62 (*current_liboctave_error_handler)
63 (
"FloatSVD: U not computed because type == SVD::sigma_only");
75 (*current_liboctave_error_handler)
76 (
"FloatSVD: V not computed because type == SVD::sigma_only");
109 ncol_u = nrow_vt = nrow_s = ncol_s = min_mn;
123 ncol_u = nrow_vt = 1;
132 if (! (jobu ==
'N' || jobu ==
'O'))
140 if (! (jobv ==
'N' || jobv ==
'O'))
159 m, n, tmp_data, m1, s_vec, u, m1, vt,
169 m, n, tmp_data, m1, s_vec, u, m1, vt,
177 assert (jobu == jobv);
182 m, n, tmp_data, m1, s_vec, u, m1, vt, nrow_vt1,
190 m, n, tmp_data, m1, s_vec, u, m1, vt, nrow_vt1,
198 if (! (jobv ==
'N' || jobv ==
'O'))
void resize(octave_idx_type n, octave_idx_type m, const T &rfv)
#define F77_CHAR_ARG_LEN(l)
void resize(octave_idx_type nr, octave_idx_type nc, float rfv=0)
std::ostream & operator<<(std::ostream &os, const FloatSVD &a)
F77_RET_T F77_CONST_CHAR_ARG_DECL
const T * fortran_vec(void) const
FloatMatrix transpose(void) const
F77_RET_T const octave_idx_type const octave_idx_type float const octave_idx_type float float const octave_idx_type float const octave_idx_type float const octave_idx_type octave_idx_type &F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL
#define F77_XFCN(f, F, args)
F77_RET_T F77_FUNC(sgesvd, SGESVD)(F77_CONST_CHAR_ARG_DECL
octave_idx_type rows(void) const
#define F77_CONST_CHAR_ARG2(x, l)
FloatMatrix left_singular_matrix(void) const
FloatMatrix right_singular_matrix(void) const
FloatDiagMatrix singular_values(void) const
void resize(const dim_vector &dv, const T &rfv)
charNDArray max(char d, const charNDArray &m)
octave_idx_type init(const FloatMatrix &a, SVD::type svd_type=SVD::std, SVD::driver svd_driver=SVD::GESVD)
#define OCTAVE_LOCAL_BUFFER(T, buf, size)
const T * fortran_vec(void) const
octave_idx_type cols(void) const