| |||||||||||||||||||||||||||||||||||||||

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) where the last index is specifed 'across the columns', resulting in a pivot-style table format where the first N-1 columns contain index values (here: 2 index columns). Model versions (2) and (4) show the same example for databases, and model version (6) works with data in CSV format. Note that standard use of the 'partndx' option for spreadsheets assumes that the last index is a set of type 'range', the example partidxstr.mos defines a utility routine 'makelabel' that makes it possible to work with a 'set of string' for the last index.
Source Files By clicking on a file name, a preview is opened at the bottom of this page.
Data Files
threedimarr5.mos (!******************************************************* Mosel Example Problems ====================== file threedimarr5.mos ````````````````````` Reading 3-dimensional arrays. - Using 'initializations from' with the xls/xlsx driver - (c) 2012 Fair Isaac Corporation author: S. Heipcke, Dec. 2012, rev. Apr. 2014 *******************************************************!) model "ThreeDimArr (generic spreadsheet)" uses "mmsheet" parameters CSTR1= 'mmsheet.xls:threedim.xls' CSTR2= 'mmsheet.xlsx:threedim.xlsx' end-parameters declarations I: range J: set of string K = 1..5 ! The last index set must be defined in the model A,B,C: dynamic array(I,J,K) of real end-declarations initializations from CSTR1 A as 'partndx;Tab_23' end-initializations 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)) initializations from CSTR2 B as 'partndx;Tab_23' end-initializations writeln("B: ") forall(i in I, j in J, k in K | exists(B(i,j,k))) writeln("B(", i, ",", j, ",", k, "): ", B(i,j,k)) ! Using explicit cell addresses instead of a named range: initializations from CSTR1 C as 'partndx;[Sheet1$A3:G8]' end-initializations writeln("C: ") forall(i in I, j in J, k in K | exists(C(i,j,k))) writeln("C(", i, ",", j, ",", k, "): ", C(i,j,k)) end-model | |||||||||||||||||||||||||||||||||||||||

© Copyright 2024 Fair Isaac Corporation. |