示例#1
0
CAMLprim value ml_gsl_linalg_QRPT_update(value Q, value R, value P, 
				value U, value V)
{
  GSL_PERMUT_OF_BIGARRAY(P);
  _DECLARE_MATRIX2(Q, R);
  _DECLARE_VECTOR2(U, V);
  _CONVERT_MATRIX2(Q, R);
  _CONVERT_VECTOR2(U, V);
  gsl_linalg_QRPT_update(&m_Q, &m_R, &perm_P, &v_U, &v_V);
  return Val_unit;
}
示例#2
0
 /**
  * C++ version of gsl_linalg_QRPT_update().
  * @param Q A matrix
  * @param R A matrix
  * @param p A permutation
  * @param u A vector
  * @param v A vector
  * @return Error code on failure
  */
 inline int QRPT_update( matrix& Q, matrix& R, permutation const& p, vector& u, vector const& v ){
   return gsl_linalg_QRPT_update( Q.get(), R.get(), p.get(), u.get(), v.get() ); }