FICO Xpress Optimization Examples Repository: Reading 3-dimensional arrays

FICO Xpress Optimization Examples Repository

Reading 3-dimensional arrays

Description

This example shows how to read a 3-dimensional array from an excel file (threedimarr.mos) and from a generic spreadsheet (threedimarr5.mos). Model versions (2) and (4) show the same example for databases, and model version (6) works with data in CSV format.

threedimarr.zip

[download all files]

Source Files

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

threedimarr.mos	[download]
threedimarr2.mos	[download]
threedimarr3.mos	[download]
threedimarr4.mos	[download]
threedimarr5.mos	[download]
threedimarr6.mos	[download]

Data Files

threedim.csv	[download]
threedim.xls	[download]
threedim.xlsx	[download]
threedim.mdb	[download]
threedim.sqlite	[download]

threedimarr4.mos

(!*******************************************************
   Mosel Example Problems 
   ======================

   file threedimarr4.mos
   `````````````````````
   Reading 3-dimensional arrays.
   - Using OCI statements -
       
   (c) 2014 Fair Isaac Corporation
       author: S. Heipcke, Jan. 2014
*******************************************************!)

model "ThreeDimArr (OCI)"
 uses "mmoci", "mmsystem"

 parameters
  DB="myname/mypassword@dbname"     ! Login to Oracle database (not provided)
  CNCT="mmoci.oci:debug;"+DB
 end-parameters

 declarations
  I: range
  J: set of string
  K = 1..5	              ! The last index set must be defined in the model
  A: dynamic array(I,J,K) of real
  Idx3: text
 end-declarations

 setparam("OCIdebug",true)
 OCIlogon(DB)
 
 setparam("OCIndxcol", false) ! Partially indexed data

 forall(k in K) Idx3+= (", Index3_"+k )
 OCIexecute("select Index1, Index2" + Idx3 + " from Tab_23", A)
 OCIlogoff

 writeln("A: ")
 forall(i in I, j in J, k in K | exists(A(i,j,k)))
  writeln("A(", i, ",", j, ",", k, "): ", A(i,j,k))
 
end-model