(!******************************************************
Mosel User Guide Example Problems
=================================
file trio_out.mos
`````````````````
Three ways of writing data to file.
(c) 2008 Fair Isaac Corporation
author: S. Heipcke, 2001, rev. Dec. 2005
*******************************************************!)
model "Trio output"
uses "mmetc"
declarations
A: array(-1..1,5..7) of real
end-declarations
A :: [ 2, 4, 6,
12, 14, 16,
22, 24, 26]
! First method: use an initializations block
initializations to "out_1.dat"
A as "MYOUT"
end-initializations
! Second method: use the built-in writeln function
fopen("out_2.dat", F_OUTPUT)
forall(i in -1..1, j in 5..7)
writeln('A_out(', i, ' and ', j, ') = ', A(i,j))
fclose(F_OUTPUT)
! Third method: use diskdata
diskdata(ETC_OUT+ETC_SPARSE, "out_3.dat", A)
(! Alternatively, use 'diskdata' IO driver:
initializations to 'mmetc.diskdata:'
A as 'sparse,out_3.dat'
end-initializations
!)
end-model
|