The Constraint Object

The Constraint object is an element of the Constraints collection and contains all the information stored about each individual constraint in the model.

Properties for the Constraint Object

Activity

The activity for the constraint from the solution. (Double Property - Read Only)

ConNr

The constraint number in the matrix. (Integer Property - Read/Write)

IsNonlinear

Specifies if the constraint contains nonlinear variables. (Booelan Property - Read/Write)

IsUsed

Specifies if the constraint contains at least one variable. (Boolean Property - Read/Write)

LowerBound

The lower bound for the constraint. (Double Property - Read Only)")

Name

The name of the constraint. (String Property - Read/Write")

RangeValue

The range value for the constraint. (Double Property - Read/Write)

RHSLowerRange

The lower range for the RHS value in the solution. (Double Property - Read Only)

RHSUpperRange

The upper range for the RHS value in the solution. (Double Property - Read Only)

RHSValue

The right-hand-side value for the constraint. (Double Property - Read/Write)

ShadowPrice

The shadow price for the constraint from the solution. (Double Property - Read Only)

SlackValue

The slack value for the constraint from the solution. (Double Property - Read Only)

SolverRowNr

The row number for the constraint in the solver solution. (Integer Property - Read Only)

Stage

The stochastic stage number for the constraint. (Integer Property - Read Only)

Type

The type of the constraint. (Enumerated Property - Read/Write) Possible values are:

• mplConUnknown
• mplConLessThan
• mplConGreaterThan
• mplConEqual
• mplConRanged.

UpperBound

The upper bound for the constraint. (Double Property - Read Only)

Visual Basic Example:

     Dim MPL As OptiMax
     Dim planModel As Model
     Dim planSol As Solution
     Dim planCons As Constraints

     Set MPL = New OptiMax
     MPL.Solvers.Add ("CPLEX")
     Set planModel = MPL.Models.Add("Planning.mpl")
     Set planSol = planModel.Solution
     Set planCons = planSol.Constraints

     MPL.WorkingDirectory = "c:\mplwin4"
     result = planModel.ReadModel(planModel.Name)
     result = planModel.Solve
     If (result > 0) Then
         MsgBox planModel.ErrorMessage
     End if
     For Each constr In planCons
         Debug.Print constr.ConNr & ") " & constr.Name & _
          "      " & constr.SlackValue & "     " & constr.ShadowPrice
     Next constr