The Constraint Vector Collection
The ConstraintVector object is an element of the ConstraintVectors collection and contains all the information stored about each constraint vector in the model.
Collections contained by the ConstraintVector Object
Subscripts
Returns the Subscripts collection for the constraint vector. (Object Property)
Constraint
Returns the Constraint object for the constraint specified by the Position property. (Object Property)
Properties for the ConstraintVector Object
Count
The number of elements in the constraint vector. (Integer Property - Read Only)
Declaration
The declaration of the constraint vector. (String Property - Read Only)
Name
The name of the constraint vector. (String Property - Read Only)
Position
The current position within the vector. (Integer Property - Read/Write)
PosValid
True if the current position is valid. (Boolean Property - Read only)
Methods for the ConstraintVector Object
MoveFirstPos
Moves the Position property to the first element of the constraint vector. (Method)
MoveNextPos
Moves the Position property to the next valid element of the constraint vector. (Method)
MoveSubscrPos (Subscr1, Subscr2, Subscr3)
Moves the Position property to the vector element specified by the subscripts. (Method)
Visual Basic Example:
Dim MPL As OptiMax
Dim planModel As Model
Dim conVect As ConstraintVector
Dim con As Constraint
Dim result As Integer
Set MPL = New OptiMax
MPL.Solvers.Add "CPLEX"
MPL.WorkingDirectory = "c:\mplwin4x"
Set planModel = MPL.Models.Add("c:\mplwin4\planning")
result = planModel.ReadModel("c:\mplwin4\planning.mpl")
If (result > 0) Then
MsgBox planModel.ErrorMessage
End If
planModel.Solve
MsgBox planModel.ConstraintVectors.Count
Set conVect = planModel.ConstraintVectors("InvtBal")
Set con = conVect.MoveFirstPos
Do While conVect.PosValid
Debug.Print "InvtBal[" & conVect.Subscripts(1).IndexName & _
", " & conVect.Subscripts(2).IndexName & "] " & _
" = " & conVect.Constraint.ShadowPrice
conVect.MoveNextPos
Loop