Beispiel #1
0
static VALUE rb_ool_conmin_pgrad_parameters_default(VALUE klass)
{
	ool_conmin_pgrad_parameters P;
	VALUE ary;
	ool_conmin_parameters_default(ool_conmin_minimizer_pgrad, (void*) &P);
	ary = create_parameters_ary_pgrad(&P);
	RBGSL_SET_CLASS(ary, cool_conmin_pgrad_parameters);
	return ary;
}
Beispiel #2
0
static VALUE rb_ool_conmin_pgrad_parameters_default(VALUE klass)
{
	ool_conmin_pgrad_parameters P;
	VALUE ary;
	ool_conmin_parameters_default(ool_conmin_minimizer_pgrad, (void*) &P);
	ary = create_parameters_ary_pgrad(&P);
	RBASIC(ary)->klass = cool_conmin_pgrad_parameters;
	return ary;
}
Beispiel #3
0
static VALUE rb_ool_conmin_minimizer_parameters_get(VALUE obj)
{
	ool_conmin_minimizer *m;	
	ool_conmin_pgrad_parameters *Pp;
	ool_conmin_spg_parameters *Ps;
	ool_conmin_gencan_parameters *Pg;	
	void *P;
	VALUE ary;
	Data_Get_Struct(obj, ool_conmin_minimizer, m);
  ool_conmin_parameters_get(m, P);
	if (m->type == 	ool_conmin_minimizer_pgrad) {
		Pp = (ool_conmin_pgrad_parameters*) P;
		ary = create_parameters_ary_pgrad(Pp);
	} else if (m->type == ool_conmin_minimizer_spg) {
		Ps = (ool_conmin_spg_parameters*) P;
		ary = create_parameters_ary_spg(Ps);						
	} else {
		Pg = (ool_conmin_gencan_parameters*) P;
		ary = create_parameters_ary_gencan(Pg);						
	}
	return ary;
}