Changeset 4430
 Timestamp:
 03/26/12 16:00:29 (6 years ago)
 Location:
 tolp/OfficialTolArchiveNetwork/StdLib/math/optim/LP
 Files:

 2 modified
Legend:
 Unmodified
 Added
 Removed

tolp/OfficialTolArchiveNetwork/StdLib/math/optim/LP/Rglpk.tol
r4429 r4430 61 61 " A: a matrix of the constraint coefficients.\n" 62 62 "\n" 63 " RHS: the right hand side of the constraints.\n"63 " rhs: the right hand side of the constraints.\n" 64 64 "\n" 65 65 "with the following extra args given in the Set optArgs:\n" … … 142 142 "};\n" 143 143 ; 144 Set solveLP(Matrix C, Matrix A, Matrix RHS, Set optArgs)144 Set solveLP(Matrix C, Matrix A, Matrix rhs, Set optArgs) 145 145 ////////////////////////////////////////////////////////////////////////////// 146 146 { … … 184 184 "Rglpk_solve_LP.TOL('"+_om.bbm+"','"+_rhs.bbm+"','%A')"; 185 185 186 Set r rs= Rapi::RunRScript(script,args.bbm,argList,result.names,verbose);187 If(Card(r rs),186 Set result = Rapi::RunRScript(script,args.bbm,argList,result.names,verbose); 187 If(Card(result), 188 188 {[[ 189 189 Real status = MatDat(result[1],1,1), 
tolp/OfficialTolArchiveNetwork/StdLib/math/optim/LP/test.tol
r4429 r4430 20 20 Matrix rhs = ((60, Real 1,80)); 21 21 22 Set bounds = [[ {Set lower=[[ [[1, Real Inf]], [[2, Real Inf]], [[3, Real Inf]] ]]} ]];22 Set bounds = { [[ Set lower=[[ [[1, Real Inf]], [[2, Real Inf]], [[3, Real Inf]] ]] ]] }; 23 23 24 24 Set sol=Rglpk::solveLP(obj, mat, rhs, … … 44 44 Matrix rhs = ((60,40,80)); 45 45 46 Set bounds = [[ {Set upper=[[ [[2, 4.0]] ]]} ]];46 Set bounds = { [[ Set upper=[[ [[2, 4.0]] ]] ]] }; 47 47 48 48 Set sol=Rglpk::solveLP(obj, mat, rhs,