In-memory data exchange
Description
- ugiocb.c: Exchanging data between model and host application. Callbacks for exchanging data: sparse data, string indices (requires burglar13.mos)
- ugiodense.c: Exchanging data between model and host application. Dense data (requires burglar6.mos)
- ugioscalar.c: Exchanging data between model and host application. Scalars (requires burglar12.mos)
- ugiosparse.c: Exchanging data between model and host application. Sparse data, string indices (requires burglar7.mos)
Source Files
By clicking on a file name, a preview is opened at the bottom of this page.
burglar6.mos
(!******************************************************
Mosel User Guide Example Problems
=================================
file burglar6.mos
`````````````````
Model as in burglar.mos, with data input/ouput
from/to calling application.
*** Not intended to be run standalone - run from ugiodense.c ***
(c) 2008 Fair Isaac Corporation
author: S. Heipcke, Mar. 2006
*******************************************************!)
model Burglar6
uses "mmxprs"
parameters
VDATA = ''; WDATA = '' ! Locations of input data
SOL = '' ! Location for solution data output
WTMAX = 102 ! Maximum weight allowed
end-parameters
declarations
ITEMS = 1..8 ! Index range for items
VALUE: array(ITEMS) of real ! Value of items
WEIGHT: array(ITEMS) of real ! Weight of items
take: array(ITEMS) of mpvar ! 1 if we take item i; 0 otherwise
soltake: array(ITEMS) of real ! Solution values
end-declarations
initializations from 'raw:'
VALUE as VDATA WEIGHT as WDATA
end-initializations
! Objective: maximize total value
MaxVal:= sum(i in ITEMS) VALUE(i)*take(i)
! Weight restriction
sum(i in ITEMS) WEIGHT(i)*take(i) <= WTMAX
! All variables are 0/1
forall(i in ITEMS) take(i) is_binary
maximize(MaxVal) ! Solve the MIP-problem
! Output solution to calling application
forall(i in ITEMS) soltake(i):= getsol(take(i))
initializations to 'raw:'
soltake as SOL
end-initializations
end-model
|