The PROVIDE Project Standard Computable General Equilibrium ...

PROVIDE Project Technical Paper 2003: 3 October 2003
ACTIVOUT(a,c)$actcomactsh(a,c)..
QXAC(a,c) =E= actcomactsh(a,c) * QX(a) ;
*## TRADE BLOCK
* For some c there are no exports hence only implement for ce(c)
CET(c)$(cd(c) AND ce(c))..
QXC(c) =E= at(c)*(gamma(c)*QE(c)**rhot(c) +
(1-gamma(c))*QD(c)**rhot(c))**(1/rhot(c)) ;
ESUPPLY(c)$(cd(c) AND ce(c))..
QE(c) =E= QD(c)*((PE(c)/PD(c))*((1-gamma(c))
/gamma(c)))**(1/(rhot(c)-1)) ;
* For c with no exports domestic supply from domestic production is CET2
CET2(c)$(cd(c) AND cen(c))..
QXC(c) =E= QD(c) ;
* For c with no domestic production domestic supply is for export by CET3
CET3(c)$(cdn(c) AND ce(c))..
QXC(c) =E= QE(c) ;
* For some c there are no imports or domestic production
* hence only implement for cd(c) AND cm(c)
ARMINGTON(c)$(cx(c) AND cm(c))..
QQ(c) =E= ac(c)*(delta(c)*QM(c)**(-rhoc(c)) +
(1-delta(c))*QD(c)**(-rhoc(c)))**(-1/rhoc(c)) ;
COSTMIN(c)$(cx(c) AND cm(c))..
QM(c) =E= QD(c)*((PD(c)/PM(c))*(delta(c)/
(1-delta(c))))**(1/(1+rhoc(c))) ;
* For c with no imports domestic supply equals domestic production
ARMINGTON2(c)$(cx(c) AND cmn(c))..
QQ(c) =E= QD(c) ;
* For c with no domestic production supply equals imports
ARMINGTON3(c)$(cxn(c) AND cm(c))..
QQ(c) =E= QM(c) ;
*## INCOME BLOCK
YFEQ(f)..
YF(f) =E= SUM(a,WF(f)*WFDIST(f,a)*FD(f,a))
+ (factwor(f)*ER) ;
YFDISPEQ(f).. YFDISP(f) =E= (YF(f) - deprec(f))*(1-(TFADJ*tf(f))) ;
YHEQ(h)..
YEEQ..
YGEQ..
YH(h) =E= SUM(f,hovash(h,f)*YFDISP(f))
+ SUM(hp,HOHO(h,hp))
+ hoentconst(h)
+ (HGADJ*hogovconst(h))
+ (howor(h)*ER) ;
YE =E= SUM(f,entvash(f)*YFDISP(f))
+ (EGADJ*entgovconst)
+ (entwor*ER) ;
YG =E= MTAX + ETAX + STAX + ITAX + FTAX + DTAX
+ SUM(f,govvash(f)*YFDISP(f))
+ (govwor*ER) ;
YFWOREQ(f).. YFWOR(f) =E= worvash(f)*YFDISP(f) ;
TOTSAVEQ..
TOTSAV =E= SUM(h,YH(h)*(1-(TYADJ*ty(h)))*(SADJ*caphosh(h)))
+ SUM(f,deprec(f))
+ CAPENT
+ CAPGOV
+ (CAPWOR*ER) ;
*## EXPENDITURE BLOCK
HOHOEQ(h,hp)..
HOHO(h,hp) =E= hohosh(h,hp)
*((YH(h)*(1-(TYADJ*ty(h))))
*(1-(SADJ*caphosh(h)))) ;
© S. McDonald
56