The PROVIDE Project Standard Computable General Equilibrium ...

PROVIDE Project Technical Paper 2003: 3 October 2003
HEXPEQ(h)..
HEXP(h) =E= ((YH(h)*(1-(TYADJ*ty(h))))*(1-(SADJ*caphosh(h))))
- SUM(hp,HOHO(hp,h)) ;
* QCDEQ(c).. PQD(c)*QCD(c) =E= SUM(h,comhoav(c,h)*HEXP(h)) ;
QCDEQ(c)..
PQD(c)*QCD(c) =E= SUM(h,PQD(c)*qcdconst(c,h))
+ SUM(h,beta(c,h)
*(HEXP(h)-SUM(cp,PQD(cp)*qcdconst(cp,h)))) ;
QENTDEQ(c).. QENTD(c) =E= QENTDADJ*comentconst(c) ;
EENTEQ..
EENT =E= SUM(c,QENTD(c)*PQD(c))
+ SUM(h,hoentconst(h))
+ (TYEADJ*tye*YE) ;
VENTDEQ.. VENTD =E= SUM(c,QENTD(c)*PQD(c)) ;
QGDEQ(c).. QGD(c) =E= QGDADJ*comgovconst(c) ;
EGEQ..
EG =E= SUM(c,QGD(c)*PQD(c))
+ SUM(h,hogovconst(h)*HGADJ)
+ (EGADJ*entgovconst) ;
VGDEQ.. VGD =E= SUM(c,QGD(c)*PQD(c)) ;
QINVDEQ(c).. QINVD(c) =E= (IADJ*invconst(c)) ;
INVESTEQ.. INVEST =E= SUM(c,PQD(c)*(QINVD(c) + dstocconst(c))) ;
*## TAX BLOCK
MTAXEQ.. MTAX =E= SUM(c,TMADJ*tm(c)*PWM(c)*ER*QM(c)) ;
ETAXEQ.. ETAX =E= SUM(c,TEADJ*te(c)*PWE(c)*ER*QE(c)) ;
STAXEQ.. STAX =E= SUM(c,TSADJ*ts(c)*PQS(c)*QQ(c)) ;
ITAXEQ.. ITAX =E= SUM(a,TXADJ*tx(a)*PX(a)*QX(a)) ;
FTAXEQ.. FTAX =E= SUM(f,TFADJ*tf(f)*(YF(f)-deprec(f))) ;
DTAXEQ..
DTAX =E= SUM(h,TYADJ*ty(h)*YH(h))
+ (TYEADJ*tye*YE) ;
*## MARKET CLEARING BLOCK
FMEQUIL(f).. FS(f) =E= SUM(a,FD(f,a)) ;
QEQUIL(c).. QQ(c) =E= QINTD(c) + QCD(c) + QENTD(c) + QGD(c) + QINVD(c)
+ dstocconst(c) ;
VFDOMDEQ.. VFDOMD =E= SUM(c, PQD(c) *
(QCD(c) + QENTD(c) + QGD(c)
+ QINVD(c) + dstocconst(c))) ;
INVESTSHEQ..
INVESTSH * VFDOMD =E= INVEST ;
VGDSHEQ..
VGDSH * VFDOMD =E= VGD ;
VENTDSHEQ..
VENTDSH * VFDOMD =E= VENTD ;
CAPENTEQ.. CAPENT =E= YE - EENT ;
GOVEQUIL.. CAPGOV =E= YG - EG ;
CAEQUIL..
CAPWOR =E= SUM(cm,PWM(cm)*QM(cm))
+ SUM(f,YFWOR(f))
- SUM(ce,PWE(ce)*QE(ce))
- SUM(h,howor(h))
- entwor - govwor
- SUM(f,factwor(f)) ;
WALRASEQ.. TOTSAV =E= INVEST + WALRAS ;
© S. McDonald
57