X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/005aa4233aa5a5a11124e989887e1ddbc724c726..74e0e2a3ea0e6a0ae9bb445ff167906fb0cbad7c:/src/surf/maxmin.c diff --git a/src/surf/maxmin.c b/src/surf/maxmin.c index 9a01021be7..8dd3fb35d3 100644 --- a/src/surf/maxmin.c +++ b/src/surf/maxmin.c @@ -370,10 +370,16 @@ void lmm_print(lmm_system_t sys) sprintf(print_buf,"0 <= %f ('%p')",cnst->bound,cnst); trace_buf = xbt_realloc(trace_buf,strlen(trace_buf)+strlen(print_buf)+1); strcat(trace_buf, print_buf); + + if(!cnst->shared) { + sprintf(print_buf," [MAX-Constraint]"); + trace_buf = xbt_realloc(trace_buf,strlen(trace_buf)+strlen(print_buf)+1); + strcat(trace_buf, print_buf); + } DEBUG1("%s",trace_buf); trace_buf[0]='\000'; - xbt_assert2((sum<=cnst->bound), "Incorrect value (%f is not smaller than %f)", - sum,cnst->bound); + xbt_assert3((sum<=cnst->bound), "Incorrect value (%f is not smaller than %f): %g", + sum,cnst->bound,sum-cnst->bound); } /* Printing Result */ @@ -419,21 +425,22 @@ void lmm_solve(lmm_system_t sys) cnst->remaining = cnst->bound; cnst->usage = 0; elem_list = &(cnst->element_set); + cnst->usage = 0.0; xbt_swag_foreach(elem, elem_list) { if(elem->variable->weight <=0) break; if ((elem->value > 0)) { if(cnst->shared) cnst->usage += elem->value / elem->variable->weight; else - cnst->usage = 1; + if(cnst->usagevalue / elem->variable->weight) + cnst->usage = elem->value / elem->variable->weight; + DEBUG2("Constraint Usage %p : %f",cnst,cnst->usage); make_elem_active(elem); } } - /* Saturated constraints update */ saturated_constraint_set_update(sys, cnst, &min_usage); } - saturated_variable_set_update(sys); /* Saturated variables update */ @@ -458,6 +465,8 @@ void lmm_solve(lmm_system_t sys) int i; var->value = min_usage / var->weight; + DEBUG5("Min usage: %f, Var(%p)->weight: %f, Var(%p)->value: %f ",min_usage,var,var->weight,var,var->value); + /* Update usage */ @@ -467,8 +476,21 @@ void lmm_solve(lmm_system_t sys) if(cnst->shared) { double_update(&(cnst->remaining), elem->value * var->value); double_update(&(cnst->usage), elem->value / var->weight); + make_elem_inactive(elem); + } else { /* FIXME one day: We recompute usage.... :( */ + cnst->usage = 0.0; + make_elem_inactive(elem); + xbt_swag_foreach(elem, elem_list) { + if(elem->variable->weight <=0) break; + if(elem->variable->value > 0) break; + if ((elem->value > 0)) { + if(cnst->usagevalue / elem->variable->weight) + cnst->usage = elem->value / elem->variable->weight; + DEBUG2("Constraint Usage %p : %f",cnst,cnst->usage); + make_elem_active(elem); + } + } } - make_elem_inactive(elem); } xbt_swag_remove(var, var_list); }