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

   file soleg3.mos
   ```````````````
   Writing out solution values to
   an Excel spreadsheet.
   - Using 'initializations to' with the excel driver -
  
   (c) 2008 Fair Isaac Corporation
       author: S. Heipcke, 2007, rev. Oct. 2017
*******************************************************!)

model "Solution values output (3)"
 uses "mmxprs", "mmsheet"

 parameters
  CNCT = "soleg.xls"             ! Use Excel spreadsheet `soleg.xls'
 end-parameters
 
 declarations
  R = 1..3
  S = 1..2
  SOL: array(R,S) of real        ! Array for solution values
  x: array(R,S) of mpvar         ! Decision variables
 end-declarations

! Define and solve the problem
 forall(i in R) sum(j in S) x(i,j) <= 4
 forall(j in S) sum(i in R) x(i,j) <= 6
 maximise( sum(i in R, j in S) (i*j)*x(i,j) )

! Get solution values from LP into the array SOL
 forall(i in R, j in S) SOL(i,j) := getsol(x(i,j)) 

! Data output using an initializations block with the excel driver
 initializations to "mmsheet.excel:"+CNCT
  SOL as "grow;MyOut3"
 end-initializations

(! Alternative form:
 initializations to "mmmsheet.excel"+CNCT
  evaluation of array(i in R, j in S) x(i,j).sol as "grow;MyOut3"
 end-initializations
!)
end-model