static VALUE rb_gsl_cheb_f(VALUE obj) { gsl_cheb_series *p = NULL; gsl_vector_view *v = NULL; Data_Get_Struct(obj, gsl_cheb_series, p); v = gsl_vector_view_alloc(); v->vector.data = p->f; v->vector.size = p->order + 1; v->vector.stride = 1; v->vector.owner = 0; return Data_Wrap_Struct(cgsl_vector_view_ro, 0, gsl_vector_view_free, v); }
static VALUE rb_gsl_odeiv_evolve_yerr(VALUE obj) { gsl_odeiv_evolve *e = NULL; gsl_vector_view *v = NULL; Data_Get_Struct(obj, gsl_odeiv_evolve, e); v = gsl_vector_view_alloc(); v->vector.data = e->yerr; v->vector.size = e->dimension; v->vector.stride = 1; v->vector.owner = 0; return Data_Wrap_Struct(cgsl_vector_view_ro, 0, gsl_vector_view_free, v); }