45 #include "RTOp_obj_value_vtbl.h"
46 #include "RTOp_obj_free_free.h"
47 #include "RTOp_get_reduct_op.hpp"
57 static int get_targ_type_num_entries(
71 static int targ_obj_create(
73 , RTOp_ReductTarget* targ_obj )
76 *targ_obj = malloc( mem_size );
77 return vtbl->
obj_reinit(vtbl,obj_data,*targ_obj);
80 static int targ_obj_reinit(
82 , RTOp_ReductTarget targ_obj )
86 targ->alpha_pos = +1e+50;
87 targ->alpha_neg = -1e+50;
91 static int targ_extract_state(
93 ,
const void * obj_data
96 ,RTOp_value_type value_data[]
98 ,RTOp_index_type index_data[]
100 ,RTOp_char_type char_data[]
105 assert( reduct_obj );
106 assert( num_values == 2 );
107 assert( num_indexes == 0 );
108 assert( num_chars == 0 );
109 assert( value_data );
112 value_data[0] = targ->alpha_pos;
113 value_data[1] = targ->alpha_neg;
117 static int targ_load_state(
119 ,
const void* obj_data
121 ,
const RTOp_value_type value_data[]
123 ,
const RTOp_index_type index_data[]
125 ,
const RTOp_char_type char_data[]
131 assert( *reduct_obj );
132 assert( num_values == 2 );
133 assert( num_indexes == 0 );
134 assert( num_chars == 0 );
135 assert( value_data );
138 targ->alpha_pos = value_data[0];
139 targ->alpha_neg = value_data[1];
145 get_targ_type_num_entries
155 static int RTOp_ROp_max_near_feas_step_apply_op(
159 , RTOp_ReductTarget targ_obj )
161 RTOp_value_type beta;
164 RTOp_index_type sub_dim;
165 const RTOp_value_type *xl_val;
167 const RTOp_value_type *x_val;
169 const RTOp_value_type *d_val;
171 const RTOp_value_type *xu_val;
173 register RTOp_index_type k;
174 RTOp_value_type alpha;
180 return RTOp_ERR_INVALID_NUM_VECS;
182 if( num_targ_vecs != 0 )
183 return RTOp_ERR_INVALID_NUM_TARG_VECS;
184 if( vecs[0].global_offset != vecs[1].global_offset
185 || vecs[0].sub_dim != vecs[1].sub_dim
186 || vecs[0].global_offset != vecs[2].global_offset
187 || vecs[0].sub_dim != vecs[2].sub_dim
188 || vecs[0].global_offset != vecs[3].global_offset
189 || vecs[0].sub_dim != vecs[3].sub_dim
191 return RTOp_ERR_INCOMPATIBLE_VECS;
198 beta = *(RTOp_value_type*)obj_data;
202 sub_dim = vecs[0].sub_dim;
204 xl_val = vecs[0].values;
205 xl_val_s = vecs[0].values_stride;
207 x_val = vecs[1].values;
208 x_val_s = vecs[1].values_stride;
210 d_val = vecs[2].values;
211 d_val_s = vecs[2].values_stride;
213 xu_val = vecs[3].values;
214 xu_val_s = vecs[3].values_stride;
219 if(targ->alpha_pos < 0.0)
227 for( k = 0; k < sub_dim; ++k, xl_val += xl_val_s, x_val += x_val_s, d_val += d_val_s, xu_val += xu_val_s ) {
228 if( *x_val < *xl_val - beta || *x_val > *xu_val + beta ) {
229 targ->alpha_pos = -1.0;
232 if( *d_val != 0.0 ) {
234 alpha = (*xl_val - beta - *x_val) / *d_val;
235 if( ( alpha > 0.0 && alpha < targ->alpha_pos )
236 || ( alpha == 0.0 && *d_val < 0.0 ) )
237 targ->alpha_pos = alpha;
238 if( ( alpha < 0.0 && -alpha < -targ->alpha_neg )
239 || ( alpha == 0.0 && *d_val > 0.0 ) )
240 targ->alpha_neg = alpha;
242 alpha = (*xu_val + beta - *x_val) / *d_val;
243 if( (alpha > 0.0 && alpha < targ->alpha_pos )
244 || ( alpha == 0.0 && *d_val > 0.0 ) )
245 targ->alpha_pos = alpha;
246 if( ( alpha < 0.0 && -alpha < -targ->alpha_neg )
247 || ( alpha == 0.0 && *d_val < 0.0 ) )
248 targ->alpha_neg = alpha;
255 static int reduce_reduct_objs(
257 , RTOp_ReductTarget in_reduct_obj, RTOp_ReductTarget inout_reduct_obj )
263 if( i_targ->alpha_pos < io_targ->alpha_pos )
264 io_targ->alpha_pos = i_targ->alpha_pos;
265 if( -i_targ->alpha_neg < -io_targ->alpha_neg )
266 io_targ->alpha_neg = i_targ->alpha_neg;
270 INSERT_GET_REDUCT_OP_FUNCS(
272 ,targ_load_state,targ_extract_state
273 ,external_reduct_op,get_reduct_op)
280 ,
"ROp_max_near_feas_step"
282 ,RTOp_ROp_max_near_feas_step_apply_op
289 int RTOp_ROp_max_near_feas_step_construct( RTOp_value_type beta,
struct RTOp_RTOp* op )
291 op->vtbl = &RTOp_ROp_max_near_feas_step_vtbl;
292 op->vtbl->obj_data_vtbl->
obj_create(NULL,NULL,&op->obj_data);
293 *((RTOp_value_type*)op->obj_data) = beta;
297 int RTOp_ROp_max_near_feas_step_destroy(
struct RTOp_RTOp* op )
299 op->vtbl->obj_data_vtbl->
obj_free(NULL,NULL,&op->obj_data);
304 int RTOp_ROp_max_near_feas_step_set_beta( RTOp_value_type beta,
struct RTOp_RTOp* op )
306 *((RTOp_value_type*)op->obj_data) = beta;
311 RTOp_ROp_max_near_feas_step_val(RTOp_ReductTarget targ_obj)
int(* obj_create)(const struct RTOp_obj_type_vtbl_t *vtbl, const void *instance_data, void **obj)
int(* obj_free)(const struct RTOp_obj_type_vtbl_t *vtbl, const void *instance_data, void **obj)
int(* obj_reinit)(const struct RTOp_obj_type_vtbl_t *vtbl, const void *instance_data, void *obj)