pause ** The demonstration is regularly interrupted by a "pause"  or "more". You can continue by pushing the key <enter>. Push now <enter>
pause ** This demo 'Suriname' is about the simulation of a re-structuringpackage
pause ** Sometimes you do not see anything happen after pushing <enter>. That's when the computer is calculating or entering data. Please one moment patience, and not continuous pushing on <enter>.
pause ** We will read the starting values for year 86 and 87 and the exogenous variables for the years 88 up to 94
r data8694.dmi
pause ** Now we are going to run the model
** please wait for a moment, when the computer is making the calculations for the simulation.
smpl 88 94
sim p;y
calc lbwn=lbwn(-1)*(1+lbabpp/100)*(aban/aban(-1))
calc gdogwn=gdbown+mown+down-gdobwn-cmown-iown
pause ** We do not want to see too many figures behind the comma, adjust the format:
set format F7.0
pause ** We want to look at some results of the simulation, and use a ready-made table:
table kern.tbl
pause ** We store the results of the historical simulations on s1-7
smpl 86 94
w s1-7.dmi 'simulation data Suriname years 86-94'
pause ** We store the results also on three files, which together form the primairy input file bas1-7, and with that file you can easily make further analysis in the book-keeping model MACROABC.
out wks bas1-7a.wks; ybwn ibwn lbwn dbwn bwn mbwn mown mgwn legwn zebwn lbewn zewn oegwn ogewn devwd gdobwn gdogwn iown zbown tkwn tdbwn tdgwn ogown oeown kngown kneown gdbown down lown zobwn zoewn subwn oogwn
out wks bas1-7b.wks; ooewn sdlrwn sdkrwn gouwn midown midwn kown moown liqwd cgpp bpp mpp ipp loawp
out wks bas1-7c.wks; aban aoan wwqn ta bevan b1664n b1664p migan mitan usar surr devwn liqwn sobwn soewn bvwn ekap bmwn ibmwn tbauwn tblwn tmwn kbown
pause ** We will store the results of the historical simulations on the file refpad, which we will give the complete title:"Baseline 88-94".
smpl 88 94
w refpad.dmi
** documenting text string for DMI ?
'Baseline 88-94'
pause ** We will look at some results, and use the ready-made table:
table kern.tbl
pause ** Now we will simulate a re-structuring package. First some background information:
table infosur1.tbl
pause ** In the Surinam-model we have a variable 'variant' which has value zero.
pause ** In the model are different variables, or groups of variables, that are multiplicated by 'variant' or '1-variant'
pause ** By giving 'variant' not the value 0, but the value 1, those groups become active
pause ** That gives in only one step a re-structuring package. Look at this variable 'variant'
pr variant
pause ** You see only zero's. We change those in 1 for the period 91 94.
smpl 91 94
load variant; 4*1
pause ** Look again to variant
pr variant
pause ** Start the simulation of the re-structuring package:
sim p;y
pause ** As base line we use the earlier made refpad
base refpad.dmi
pause ** look at the differences between the re-structuring package and the reference path
table kerndif.tbl
pause ** Look at the cumulated differences:
table kernpdif.tbl
pause ** Looat at some digerences by graph:
draw dif(bpp) dif(mpp) dif(cgpp); y
pause ** The end of demo 'Suriname'. This disk contains also five demo's for 'Miniland' and one for 'Malta'. You can start them by ai miniland  or ai malta
pause ** But you can of course also make your own simulations. or leave macmics by qq
