@ Het model MAMI6
@
@ Ruimte voor toelichtende tekst
@
@
@
@
@
@
@
@
@
@basis input sector bedrijven:
YBWN=CMOWN+CGWN+IBWN+IOWN+BWN-MWN
IBWN=IBWN(-1)*(1+.9*ibmwp/100+.6*(YIWP+YIWP(-1))/200)
LBWN=LBWN(-1)*(1+(.75*CGPP(-1)+8-.9*WWQD)/100)*aban/aban(-1)
DBWN=0.09*BVWN
@
@
@basisinput sector buitenland:
BWN=BWN(-1)*(1+bmwp/100)
mbwn=mwn-mown-mgwn
mown=+0.04*cmown+0.1*iown
mgwn=mgwn(-1)*(1+cgwp(-1)/100)
LEGWN=0
ZEBWN= USAR(-1)/100*(DEVWN+DEVWN(-1))/2
@LBEWN=exogeen
zewn=zoewn+.3*EKAP(-1)*(ZBESBWN(-1)/BVWN(-1))*(EKAP(-1)>0)
OEGWN=OEGWNC+PKRSQ*EABWN
@OGEWN= exogeen
DEVWD=BWN+LEGWN+ZEBWN+OEGWNC+OEOWNC-(MEWN-EAWN)-LBEWN-ZBEWN-ZOEWN-OGEWN-OOEWN  +KNEOWN+MIDWN+KEBWN+KEOWN-GOUWN
@
@
@basisinput sector overheid
gdobwn=gdobwn(-1)*(1+cgpp(-1)/100)
gdogwn=gdogwn(-1)*(1+cgpp(-1)/100)
IOWN= (KNEOWN+MIDWN)*GKRSQ
ZBOWN= ZOBWN(-1) +0.7*ZEBWN(-1)
TKWN= TBAUWN+TMWN+TCWN+TBLWN
TDBWN= 0.10*(ZBESBWN(-1)+TDBWN(-1)+ZBEWN(-1))
TDGWN= 0.09*(ZBESBWN(-1)+LBESBWN-OEGWN+OEGWNC )
@OGOWN=exogeen
OEOWN=OEOWNC+EAOWN*DSCQ*PKRSQ
@KNGOWN= exogeen
@KNEOWN=exogeen
gdbown= gdogwn-mown-down+gdobwn+cmown+iown
DOWN=0
LOWN= LOWN(-1)*(AOAN/AOAN(-1))*(1+lbabpp(-1)/100)
ZOBWN= 0.50*(SURR/100)*SOBWN(-1)
ZOEWN= 0.3*SOEWN*USAR/100
@SUBWN=exogeen
@OOGWN=exogeen
@OOEWN=exogeen
@
@
@
@
@
@basisinput extra voor monetair overzicht:
sdlrwn=bwn+legwn+zebwn+oegwn+oeown-mwn-lbewn-zbewn-zoewn-ogewn-ooewn+ktewn
sdkrwn=kneown+midwn+kebwn+keown
@GOUWN=exogeen
@
@
midown=zbown+tkswn+tdgwn+tdbwn+ogown+oeown-cmown-iown-lown-zobwn-zoewn-oogwn-ooewn+kastwn
@MIDWN=exogeen
kown=kbown+keown
MOOWN=-MIDOWN-KNEOWN-MIDWN-KOWN
@
@
@
@
LIQWD= 1.0*MOOWN+1.0*DEVWD
@
@
@
@
@basisinput prijsmutaties:
CGPP= .3*HPEPWP(-1)+.7*MPP+TKQ-TKQ(-1)
@BPP=exogeen
MPP=((MWN/(MWN(-1)*(1+MVP/100)))-1)*100*(JAAR<1993)+(JAAR=1993)*(MEPI/MPI(-1)-1)*100+(JAAR>1993)*MEPP
IPP= .5*HPEPWP(-1)+.5*MPP+TKQ-TKQ(-1)
loawp=(((lown/aoan)/(lown(-1)/aoan(-1)))-1)*100
@
@overige macro input:
aban=aban(-1)*(1+.15*VA(-1)/100)
@AOAN=exogeen
WWQN=WWQN(-1)-.4*ABAP+.3*POTBAP
@TA=exogeen
BEVAN=1.02*BEVAN(-1)-MIGAN
B1664N= B1664N(-1)*(1+B1664P/100 )
@B1664P=exogeen
MIGAN=+0.05*(WWQN(-1)/100-.10)*BEVAN(-1) -1
MITAN=MITAN(-1)+MIGAN
@USAR=exogeen
SURR= 7+.3*USAR(-1)
devwn=devwd+devwn(-1)*d/d(-1)
LIQWN=LIQWN(-1)+LIQWD
SOBWN= SOBWN(-1) +KBOWN +MOOWN
SOEWN= SOEWN(-1)*d/d(-1) +MIDWN + KEOWN
BVWN=BVWN(-1)*(1-0.09)+IBWN
EKAP=EKAP(-1)+KEBWN
BMWN=BMWN(-1)*(1+BPP/100)*1
IBMWN=IBMWN(-1)*(1+IPP/100)*1
TBAUWN=0
TBLWN=0
TMWN= 0.15*MEWN
KBOWN=KOWN-KEOWN
KEOWN=0
@
@hierna volgt extra input, niet voor MACROABC:
@startwaarden indices zitten in datafile
@
@
@
@
@EABWN=exogeen
@EAOWN=exogeen
@OEGWNC=exogeen
@OEOWNC=exogeen
@DSCQ=exogeen
@MEPP=exogeen
mepi=mepi(-1)*(1+mepp/100)
PKRSQ=((MWN(-1)*(1+MVP/100)*(1+MEPP/100+( -.3*ybvp(-1)+.15*liqwp+.15*liqwp(-1)   +.15*(LIQWN(-1)/YBWN(-1)-.30)*100)/100)-MEWN+EAWN)/EAWN   )*(JAAR<1993)+1*(JAAR>1992)
@KTEWN=exogeen
@KASTWN=exogeen
TCWN= 0.04*CGWN
@hulpformules:
CMOWN= CMOWN(-1)*(1+cgpp(-1)/100 )-.75*(MOOWN(-1)<0)*MOOWN(-1)
CGWN=CGWN(-1)*(1+cgpp/100)*(1+(-5+1.1*(MVP*.75+MVP(-1)*.25))/100)*(JAAR<1993)+(JAAR=1993)*CGWN(-1)*(1+CGPP/100)+(JAAR>1993)*(.96*lbesbwn*tdgq+.58*(zbesbwn+zbesbwn(-1))/2*tdgq)
MEWN= (0.75*(BWN+LEGWN+ZEBWN+OEGWNC+OEOWNC-LBEWN-ZBEWN-ZOEWN-OGEWN-OOEWN +KNEOWN+MIDWN+KEBWN+KEOWN-GOUWN)+ 0.25*(BWN(-1)+LEGWN(-1)+ZEBWN(-1)+OEGWNC(-1)+OEOWNC(-1)-LBEWN(-1)-ZBEWN(-1)-ZOEWN(-1)-OGEWN(-1)-OOEWN(-1)+KNEOWN(-1)+MIDWN(-1)+KEBWN(-1)+KEOWN(-1)-GOUWN(-1) )  +EAWN  )*(JAAR<1993) +(JAAR>1992)*MWN
@
@de definitievergelijkingen:
ABAP=(ABAN/ABAN(-1)-1)*100
aoap=(aoan/aoan(-1)-1)*100
bbpmvp=(VWN(-1)*vvp-MWN(-1)*mvp)/BBPMWN(-1)
BBPMWN=CMOWN+LOWN+CGWN+IBWN+IOWN+BWN-MWN
bmwp=(bmwn/bmwn(-1)-1)*100
bpi=bpi(-1)*(1+bpp/100)
bvp=((1+bwp/100)/(1+bpp/100)-1)*100
BWP= (BMWN/BMWN(-1)-1)*100
cgpi=cgpi(-1)*(1+cgpp/100)
cgvn=cgwn*100/cgpi
cgvp=((1+cgwp/100)/(1+cgpp/100)-1)*100
CGWP=(CGWN/CGWN(-1) -1)*100
cmovp=((1+cmowp/100)/(1+cgpp/100)-1)*100
cmowp=(cmown/cmown(-1)-1)*100
eawn=eabwn+eaown
elwn=legwn-lbewn+oegwn-ogewn+oogwn-ogown
ezwn=-zbewn-zbown-tdbwn+zobwn+zebwn
GKRSQ=MWN/MEWN
hpepwi=hpepwi(-1)*(1+hpepwp/100)
hpepwp=((1+lbabpp/100)*(1+abap/100)/(1+ybvp/100)-1)*100
ibmwp=(ibmwn/ibmwn(-1)-1)*100
ibvp=((1+ibwp/100)/(1+ipp/100)-1)*100
IBWP=(IBWN/IBWN(-1)-1)*100
iovp=((1+iowp/100)/(1+ipp/100)-1)*100
iowp=(iown/iown(-1)-1)*100
ipi=ipi(-1)*(1+ipp/100)
KEBWN=.1*IBWN
kngown=0
LBABPP=( (LBWN/LBWN(-1))/(ABAN/ABAN(-1)) -1)*100
LBESBWN= LBWN +LOWN +ELWN
liqwp=(liqwn/liqwn(-1)-1)*100
lowp=(lown/lown(-1)-1)*100
MEWP=(MEWN/MEWN(-1)-1)*100
mpi=mpi(-1)*(1+mpp/100)
MVP=((1+mewp/100)/(1+mepp/100)-1)*100*(JAAR<1993)+(JAAR>1992)*(VHMVP+VHMVP(-1))/2
MWN=MWN(-1)*(1+mpp/100)*(1+mvp/100)
mwp=(mwn/mwn(-1)-1)*100
OBESWN= ZBOWN+TKSWN+TDBWN+TDGWN+OGOWN+OEOWN-ZOBWN-ZOEWN-OOGWN-OOEWN+KASTWN
POTBAP=( (B1664N-AOAN)/(B1664N(-1)-AOAN(-1) ) -1)*100
reelp=100*((tdgq*(lbesbwn-oegwn)/(tdgq(-1)*(lbesbwn(-1)-oegwn(-1))))/(1+cgpp/100)-1)
tdgq=(ZBESBWN+LBESBWN-TDGWN)/(ZBESBWN+LBESBWN)
TKQ=100*(TKSWN-TBAUWN-TBLWN)/(CMOWN+CGWN+IOWN+IBWN)
tkswn=tkwn-subwn
va=((((1-0.25*(hpepwi(-1)/mpi(-1)-1))*vhavn/1000)/(ta/100)-aban)/aban)*100
vhavn=+bwn*44/(bpi/100)+(cmown*83+cgwn*79)/(cgpi/100)+(iown*77+ibwn*45)/(ipi/100)
vhmvn=+bwn*0.29/(bpi/100)+(cmown*0.55+cgwn*0.55)/(cgpi/100)+(iown*0.42+ibwn*0.55)/(ipi/100)
vhmvp=(vhmvn/vhmvn(-1)-1)*100
vvp=(CGWN(-1)*cgvp+CMOWN(-1)*cmovp+LOWN(-1)*aoap+IOWN(-1)*iovp+BWN(-1)*bvp+IBWN(-1)*ibvp)/VWN(-1)
VWN=CMOWN+CGWN+IBWN+IOWN+BWN+LOWN
vwp=(CGWN(-1)*cgwp+CMOWN(-1)*cmowp+LOWN(-1)*lowp+IOWN(-1)*iowp+BWN(-1)*bwp+IBWN(-1)*ibwp)/VWN(-1)
WWQD=WWQN -WWQN(-1)
ybvp=(BBPMWN(-1)*bbpmvp -LOWN(-1)*aoap)/YBWN(-1)
YBWP=(YBWN/YBWN(-1) -1)*100
YIWN=VWN-LOWN-BWN
yiwp=(VWN(-1)*vwp-LOWN(-1)*lowp-BWN(-1)*bwp)/YIWN(-1)
ZBESBWN= YBWN -TKSWN +EZWN -LBWN
ZBEWN=ZEWN-ZOEWN
