Exemplo n.º 1
0
CAMLprim value ml_gsl_linalg_QRPT_Rsvx(value QR, value P, value X)
{
  GSL_PERMUT_OF_BIGARRAY(P);
  _DECLARE_MATRIX(QR);
  _DECLARE_VECTOR(X);
  _CONVERT_MATRIX(QR);
  _CONVERT_VECTOR(X);
  gsl_linalg_QRPT_Rsvx(&m_QR, &perm_P, &v_X);
  return Val_unit;
}
Exemplo n.º 2
0
 /**
  * C++ version of gsl_linalg_QRPT_Rsvx().
  * @param QR A QR decomposition matrix
  * @param p A permutation
  * @param x A vector
  * @return Error code on failure
  */
 inline int QRPT_Rsvx( matrix const& QR, permutation const& p, vector& x ){
   return gsl_linalg_QRPT_Rsvx( QR.get(), p.get(), x.get() ); }