OptiMax 2000 Component LibrarySample Calling Sequence

' Initialize OptiMax Library

Dim MPL As MPLLib.OptiMax

Dim csModel As Model

Set MPL = New OptiMax

' Change some properties

MPL.WorkingDirectory = "c:\mplwin4"

MPL.Options("UseAdvBasis").Value = False

' Initialize CPLEX solver

MPL.Solvers.Add "CPLEX"

Set csModel = MPL.Models.Add("CutStock")

' Read and solve model

MPL.StatusWindow.Visible = True

csModel.ReadModel("cutstock.mpl")

csModel.Solve

' Display optimal solution result

MsgBox csModel.Solution.ResultString & ": TotalCost = " & _ csModel.Solution.ObjectValue

Previous slide

Next slide

Back to first slide

View graphic version