int main(int argc, char **argv)
{
sym_environment *env = sym_open_environment();
warm_start_desc * ws;
sym_parse_command_line(env, argc, argv);
sym_load_problem(env);
sym_set_int_param(env, "keep_warm_start", TRUE);
sym_set_int_param(env, "node_limit", -1);
sym_set_int_param(env, "do_reduced_cost_fixing", 0);
sym_solve(env);
ws = sym_get_warm_start(env, true);
sym_set_int_param(env, "node_limit", 1000);
sym_warm_solve(env);
sym_set_obj_coeff(env, 0, 1);
sym_set_obj_coeff(env, 200, 150);
sym_set_warm_start(env, ws);
sym_warm_solve(env);
sym_close_environment(env);
return(0);
}
int sci_sym_setObjCoeff(char *fname){
//error management variable
SciErr sciErr;
int iRet;
//data declarations
int *varAddress,varIndex,numVars;
double inputDouble,newCoeff;
//ensure that environment is active
if(global_sym_env==NULL){
sciprint("Error: Symphony environment not initialized. Please run 'sym_open()' first.\n");
return 1;
}
//code to check arguments and get them
CheckInputArgument(pvApiCtx,2,2) ;
CheckOutputArgument(pvApiCtx,1,1) ;
//get argument 1: index of variable whose coefficient is to be changed
if(getUIntFromScilab(1,&varIndex))
return 1;
iRet=sym_get_num_cols(global_sym_env,&numVars);
if(iRet==FUNCTION_TERMINATED_ABNORMALLY){
Scierror(999, "An error occured. Has a problem been loaded?\n");
return 1;
}else if(varIndex>=numVars){
Scierror(999, "An error occured. Variable index must be a number between 0 and %d.\n",numVars-1);
return 1;
}
//get argument 2: new coefficient
if(getDoubleFromScilab(2,&newCoeff))
return 1;
iRet=sym_set_obj_coeff(global_sym_env,varIndex,newCoeff);
if(iRet==FUNCTION_TERMINATED_ABNORMALLY){
Scierror(999, "An error occured. Has a problem been loaded?\n");
return 1;
}else{
sciprint("Coefficient successfully changed.\n");
}
//code to give output
if(return0toScilab())
return 1;
return 0;
}
