X - UWSpace - University of Waterloo

if (LpSub [k] ->rwnmbs [pl > HISPb-m [cur-block-11 &&
LpSub[k] ->rwnmbs [pl rwnmbs [pl -HI:SPbbm[curCUTblock-1 -1 ! = 0.0 1
LpSub [c*t,block] ->OMeL [ j +HISPbbn [k-Il 1 += pi [LpSub [kl ->rwnmbs tg] -
HfSPb,m[cur,block-11-11 *LpSub [klxoe
f fs [p 1 ;
1
1
1
return ( LpSub [cur-block] ->OMeL) ;
1
/* ûptimite, obtain solutions and nrite them to output file */
int SolveProb (CPXENVptr env, CP.XLPptr lp)
i int i, j, k, info, bufid, status, sitcnt, solstat; double dtl;
gettimeofday(&tvl, (strict timezanew)O);
status = CPXprimopt(env,lpi;
Ff t status 1 {
chaz errmsg[l0241;
CPXgeterrorscring (env, status, errmsgi;
fprintf (stderr, "%sm, errmsg);
fprintf (stderr, "Failed to optimize LP.\na);
return (scatus l ;
1
gectimeofday[&tv2, (struct cimezone*)O);
fprintftfp, "Real solution the : $8f\nm, dt1/1000000);
acl = atl + dti;
fprintf(fp, "TOTAL solution cime : 48f\na, at1/1000000);
scatus=CPXsolution (env, lp, &solstac, &objval [cur,block] , x, pi. slack, aj ;
if ( status 1 {
fprintf (stderr, "Failed to obtain solution l.\nm):
return(status) ;
stacus = CPXgetbase (env, Ip, cstac, rstat) ;
if ( status 1 I
fprintf (stderr, 'Failed to obtain basis.\nn);
retu-rn (status ;
1
siccnt = CPXgeticcrit(env,lp);
fprincf (fpl, '\n"*" Iteration Number : ad, $d \nn , iter-count, lev2-councl ;
fprintf (fp, " \nSolution scacus = %d\nn, solscat) ;
fprintf tfp,"Objeccioe value = %f\n\nm, aSjval[cur,bluckl);
fprintf(fp1, * Sktplex Iteration Comt : %a \nm, sitcnt);
for (F = O; i < cur-numrowç; F-1 i
fprFncf (fp,"Row ad: Slack = 4f ?i = $f
pi[il,rstat[ij) ;
rstat =%d\nn, i, slack[i],
for (j = O; j < cur-numcoïs; j++) E
fprintf (fp,'Column $d: Value = $f Reduced cost = %f cscat = $&\cm.