FICO Xpress Optimization Examples Repository: Folio - Embedding examples from 'Getting started'

FICO Xpress Optimization Examples Repository

FICO Optimization Community

FICO Xpress Optimization Home

Folio - Embedding examples from 'Getting started'

Description

Simple embedding tasks for a portfolio optimization problem:

loading and running a BIM file (foliorun.bas)
executing a Mosel model (folioexec.bas)
parameterized model execution (folioparam.bas)

folioembedvb.zip

[download all files]

Source Files

By clicking on a file name, a preview is opened at the bottom of this page.

foliorun.bas	[download]
folioexec.bas	[download]
folioparam.bas	[download]
foliodata.mos	[download]

Data Files

folio.dat

[download]

foliorun.bas

Attribute VB_Name = "Module1"
Option Explicit
' ********************************************************
'  Mosel Library Example Problems
'  ==============================
'  file foliorun.bas
'  `````````````````
'  Loading and running a BIM file.
'
'  (c) 2008 Fair Isaac Corporation
'      author: S.Heipcke, Aug. 2003
' ********************************************************

Sub Main()
 Dim result As Long
 Dim model

' Initialize Mosel
 XPRMinit

' Load compiled model
 model = XPRMloadmod("foliodata.bim", "")

 XPRMrunmod model, result, ""
 XPRMunloadmod (model)
 model = XPRM_NULL
End Sub