Exemplo n.º 1
0
CAMLprim value ml_gsl_linalg_LQ_lssolve_T(value LQ, value TAU, 
					  value B, value X, 
					  value RES)
{
  _DECLARE_MATRIX(LQ);
  _DECLARE_VECTOR4(TAU, RES, B, X);
  _CONVERT_MATRIX(LQ);
  _CONVERT_VECTOR4(TAU, RES, B, X);
  gsl_linalg_LQ_lssolve_T(&m_LQ, &v_TAU, &v_B, &v_X, &v_RES);
  return Val_unit;
}
Exemplo n.º 2
0
    /**
     * C++ version of gsl_linalg_LQ_lssolve_T().
     * @param LQ A matrix
     * @param tau A vector
     * @param b A vector
     * @param x A vector
     * @param residual A residual vector
     * @return Error code on failure
     */
    inline int LQ_lssolve_T( matrix const& LQ, vector const& tau, vector const& b,
			     vector& x, vector& residual ){
      return gsl_linalg_LQ_lssolve_T( LQ.get(), tau.get(), b.get(), x.get(), residual.get() ); }