![]() Log.WriteLine( "Repaired problem is written as repaired.lp.") GenerateInfeasibilityReport(Log, xprob, constraintViolations, boundViolations)ĪpplyRepairInfeasResultToProblem(xprob, constraintViolations, boundViolations) GetInfeasibilityBreakers(xprob, x, slacks, constraintViolations, boundViolations, 0.000001) ' NOTE: For MIPs, use xprob.GetMIPSol instead ' Get the values of the breaker variables X prob.GetLpSol(x, slacks, Nothing, Nothing) Log.WriteLine( "Solution of the relaxed problem regarding the original objective is nonoptimal") Log.WriteLine( "Relaxed problem is unbounded") Log.WriteLine( "Relaxed problem is infeasible") X prob.RepairWeightedInfeas(Status, lrp_array, grp_array, lbp_array, ubp_array, "n", 0.001, "") Next ' Call Repairinfeas Dim Status As Integer = -1 Next For j = 0 To x prob.OriginalCols - 1 ' Allocate preference arrays Dim lrp_array(x prob.Rows) As Double Dim grp_array(x prob.Rows) As Double Dim lbp_array(x prob.Cols) As Double Dim ubp_array(x prob.Cols) As Double ' Allocate arrays for the solution and the infeasibility breakers Dim x(x prob.Cols) As Double Dim slacks(x prob.Rows) As Double Dim boundViolations(x prob.Cols) As Double Dim constraintViolations(x prob.Rows) As Double ' Set relaxation values Dim i As Integer, j As Integer For i = 0 To x prob.OriginalRows - 1 ![]() X prob.ReadProb(frmMain.sDataDirPath
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |