model F:\Heimdal\mod\heim_sep12_feps_gekko;                   
read <pcim> F:\Heimdal\BNK\vismand16;

time 2016 2020

    () Netincome from interest abroad is set exogeneous
    list + #dyie ddnkyie dfinyie dbelyie dnldyie dfrayie &
                  dgbryie ddeuyie despyie ditayie & 
                  dsweyie dnoryie dusayie dypnyie dczeyie dpolyie
    upd #dyie 2016 2020 = 1
   
    () Exchange rates are set exogeneous                                                                                                          
     LIST + #EXCH DEUREXC DGBREXCH DNOREXCH DSWEEXCH DYPNEXCH DPOLEXCH DCZEEXCH        
      UPD #EXCH = 1                                                    
      LIST + #EXP DEUREXP DGBREXP DNOREXP DSWEEXP DYPNEXP DPOLEXP DCZEEXP             
      UPD #EXP = 1                                                     
      LIST + #EXB DEUREXB DGBREXB DNOREXB DSWEEXB DYPNEXB DPOLEXB DCZEEXB             
      UPD #EXB = 1                                                     
      
    () Short term interest rate is set exogeneous
    () de endogene langes renter eksogeniseres
      LIST + #IRS DEURIRS DSWEIRS DNORIRS DGBRIRS DUSAIRS DYPNIRS DPOLIRS DCZEIRS
      UPD #IRS = 1    
   
   sim 2016 2020
   write baseline
   read baseline


   time 2016 2016

         genr dnkigv = dnkigv + .01*(dnkgdp(2015)/dnkpig(2015)) $
        genr sweigv = sweigv + .01*(swegdp(2015)/swepig(2015)) $
        genr finigv = finigv + .01*(fingdp(2015)/finpig(2015)) $
        genr nldigv = nldigv + .01*(nldgdp(2015)/nldpig(2015)) $
        genr beligv = beligv + .01*(belgdp(2015)/belpig(2015)) $   
        genr gbrigv = gbrigv + .01*(gbrgdp(2015)/gbrpig(2015)) $
        genr poligv = poligv + .01*(polgdp(2015)/polpig(2015)) $
        genr czeigv = czeigv + .01*(czegdp(2015)/czepig(2015)) $
        genr espigv = espigv + .01*(espgdp(2015)/esppig(2015)) $
        genr fraigv = fraigv + .01*(fragdp(2015)/frapig(2015)) $
        genr itaigv = itaigv + .01*(itagdp(2015)/itapig(2015)) $ 
        genr deuigv = deuigv + .01*(deugdp(2015)/deupig(2015)) $
        
   time 2017 2017
   
         genr dnkigv = dnkigv + .01*(dnkgdp(2015)/dnkpig(2015)) $
        genr sweigv = sweigv + .01*(swegdp(2015)/swepig(2015)) $
        genr finigv = finigv + .01*(fingdp(2015)/finpig(2015)) $
        genr nldigv = nldigv + .01*(nldgdp(2015)/nldpig(2015)) $
        genr beligv = beligv + .01*(belgdp(2015)/belpig(2015)) $   
        genr gbrigv = gbrigv + .01*(gbrgdp(2015)/gbrpig(2015)) $
        genr poligv = poligv + .01*(polgdp(2015)/polpig(2015)) $
        genr czeigv = czeigv + .01*(czegdp(2015)/czepig(2015)) $
        genr espigv = espigv + .01*(espgdp(2015)/esppig(2015)) $
        genr fraigv = fraigv + .01*(fragdp(2015)/frapig(2015)) $
        genr itaigv = itaigv + .01*(itagdp(2015)/itapig(2015)) $ 
        genr deuigv = deuigv + .01*(deugdp(2015)/deupig(2015)) $
        
        
 
 sim 2016 2017