Exemple #1
0
static VALUE rb_gsl_linalg_complex_householder_hv(VALUE obj, VALUE t, VALUE vv, VALUE ww)
{
  gsl_vector_complex *v = NULL, *w = NULL;
  gsl_complex *tau;
  CHECK_COMPLEX(t);    
  CHECK_VECTOR_COMPLEX(vv);
  CHECK_VECTOR_COMPLEX(ww);
  Data_Get_Struct(t, gsl_complex, tau);
  Data_Get_Struct(vv, gsl_vector_complex, v);
  Data_Get_Struct(ww, gsl_vector_complex, w);
  gsl_linalg_complex_householder_hv(*tau, v, w);
  return ww;
}
Exemple #2
0
 /**
  * C++ version of gsl_linalg_complex_householder_hv().
  * @param tau A scalar
  * @param v A vector
  * @param w Another vector
  * @return Error code on failure
  */
 inline int complex_householder_hv( complex& tau, vector_complex const& v, vector_complex& w ){
   return gsl_linalg_complex_householder_hv( tau.get(), v.get(), w.get() ); }