Пример #1
0
CAMLprim value ml_gsl_linalg_PTLQ_update (value Q, value L, value P, value V, value W)
{
  _DECLARE_MATRIX2(Q,L);
  _DECLARE_VECTOR2(V,W);
  GSL_PERMUT_OF_BIGARRAY(P);
  _CONVERT_MATRIX2(Q,L);
  _CONVERT_VECTOR2(V,W);
  gsl_linalg_PTLQ_update (&m_Q, &m_L, &perm_P, &v_V, &v_W);
  return Val_unit;
}
Пример #2
0
 /**
  * C++ version of gsl_linalg_PTLQ_update().
  * @param Q A matrix
  * @param L A matrix
  * @param p A permutation
  * @param v A vector
  * @param w A vector
  * @return Error code on failure
  */
 inline int PTLQ_update( matrix& Q, matrix& L, permutation const& p, vector const& v, vector& w ){
   return gsl_linalg_PTLQ_update( Q.get(), L.get(), p.get(), v.get(), w.get() ); }