🔢 Simulateur de Modèles GAMS
Modèles d'Équilibre Général Calculable
🏠 Accueil
📊 Modèles
📁 Modèles
BOP
Balance of Payments Model
EMPLOI
Modèle d'Emploi
INPUT
Modèle Input-Output
JOINT
Modèle de Production Jointe
KEYN
Modèle Keynésien
OPEN-VEC-2
Modèle CGE
OPEN-VEC
Économie Ouverte (Vecteur)
OPEN-VEC_T
Économie Ouverte (Temporel)
OPEN-VEC_T2
Économie Ouverte (Temporel v2)
OPEN
Modèle d'Économie Ouverte
Pure exchange
Modèle d'Échange Pur
SIMP
Modèle CGE Simple
TARIFF
Analyse Tarifaire
TAXENDO
Modèle de Taxe Endogène
TAXIN
Incidence Fiscale
TAXOUT
Taxe sur la Production
📝 Code
OPEN-VEC_T2.gms
$TITLE MEGC A DYNAMIQUE RECURSIVE EN ECONOMIE OUVERTE * Ce modèle introduit la dynamique récursive dans le modèle OPEN_VEC. * Auteur : Jean-Marc PHILIP Contact: Philip@analyze.fr SET t Periode temporelle /2019*2025/ t1(t) Année 1 /2019/ as Ensemble des indices du modèle /Lab, Cap, RNA, Sect1*Sect9, UEMOA, RDM, MEN, SQS, APU, TAXL, TAXK, TAXRN, TAXE, TAXM, TAXQ, TAXR, PROF, INV/ f(as) Facteurs de production /Lab, Cap/ i(as) Secteurs /Sect1*Sect9/ ag(as) Agents /MEN, SQS, APU, UEMOA, RDM/ ae(ag) RDM /UEMOA, RDM/ ac(ag) Agents contribuables /MEN,SQS/ sc Scenario /Base, Var/ ; ALIAS (i,j), (ag,ag1), (ae,ae1), (t,tt) ; PARAMETER BC(ae) Volume initial de la balance des paiements CF0(i) Volume initial de la consommation finale en bien i CG0(i) Volume initial de la consommation du gouvernement en bien i CH0(i) Volume initial de consommation des ménages du bien i CTH0 Volume initial de consommation totale des ménages CI0(j) Volume initial de consommation intermédiaire du secteur j CIJ0(i,j) Volume initial de consommation intermédiaire du secteur j en bien i CTE0 Volume initial de consommation totale des SQS CTG0 Volume initial de consommation totale du gouvernement D0(i) Consommation domestique en biens i DI0(i) Consommation domestique intermédiaire en biens i E0(ae,i) Exportations du bien i ET0(i) Total des exportations LS0(j) Offre de travail pour le secteur j K0(j) Offre de capital pour le secteur j I0(i) Investissement initial dans le secteur i IG0(i) Investissement public initial IP0(i) Investissement privé Initial IR0(i) Investissement initial du reste du monde IT0 Investissement initial total Mip(t) Multiplicateur d'investissement public KT0 Stock de capital initial L0(i) Demande de travail initiale pour la branche i LT0 Demande totale de travail M0(ae,i) Imports du bien i MT0 Total des imports Pe0(ae,i) Prix de réference pour les exports Pm0(ae,i) Prix de réference pour les imports Pq0(j) Prix d'absorption de référence Pl0(j) Prix de l'offre de travail Pk0(j) Prix de l'offre de capital P0(j) Prix de production de référence Pmt0(i) Prix des importations sectorielles de référence Pd0(i) Prix de production des biens domestiques sectoriels de référence TRN0(ag, ag1) Transferts initiaux entre agents Q0(i) Demande de bien composite pour le bien i Scenario Parametre des scenarios S0(ag) Epargne des agents Spf(ag,f) Distribution de la Valeur ajoutée aux agents TAXQ(i) Taxes sur la consommation du bien i TAXM(ae,i) Taxes sur les imports du bien i TaxL(i) Taxes sur les salaires TAXK(i) Taxes sur le capital TAXE(ae,i) Taxes sur les exports du bien i PROF(i) Profits ThetaK Répartition des Investissements par secteurs VA0(j) Valeur ajoutée du bien j XS0(j) Production initiale du secteur j Y0(j) Output du bien j YT0 Output Total taud(ac) Taux de taxes directes, tauq(i) Taux de taxe sur les biens composites taum(ae,i) Taux de taxation initial sur les importations taue(ae,i) Taux de taxes de prix à l'export taul(i) Taux de taxe sur le travail tauk(i) Taux de taxe sur le capital tauq (i) Taux de taxes sur les biens taumc(i) Taux de marge commerciale taumt(i) Taux de marge sur les transports taupr(i) Taux de profit sur la production des secteurs tm(ae,i,t) Taux de taxation temporel sur les importations sigmatZ(j) Elasticité de transformation sur la production sigmaET(i) Elasticité de transformation sur les exportations sigmaMT(j) Elasticité de substitution sur les importations ; *PARAMETER MCS(*,*) ; *$libinclude xlimport MCS MCS.xlsx MCS5!A1:AA28 ; TABLE MCS(*,*) Lab Cap MEN APU UEMOA RDM PROF TAXR TAXK TAXE TAXM TAXQ Sect1 Sect2 Sect3 Sect4 Sect5 Sect6 Sect7 Sect8 Sect9 INV Lab 18 7 11 11 1 29 40 26 66 Cap 43 2 3 18 4 12 5 10 11 MEN 209 108 10 25 602 APU 9 50 25 10 7 10 29 UEMOA 2 0 0 10 10 2 2 3 RDM 10 0 1 38 41 9 7 14 PROF 297 11 8 120 28 60 15 50 13 TAXR 25 TAXK 0 2 0 0 2 2 1 3 TAXE 0 4 2 1 TAXM 4 6 TAXQ 0 0 9 12 4 4 Sect1 264 0 2 15 100 1 8 6 8 Sect2 17 0 0 3 2 Sect3 7 5 21 0 0 6 0 7 Sect4 280 0 0 5 0 0 50 0 14 1 24 2 Sect5 10 1 2 13 1 3 5 27 4 1 5 2 73 Sect6 181 Sect7 46 1 1 4 1 0 8 4 4 19 5 1 4 Sect8 43 1 6 11 0 6 2 2 37 13 4 19 Sect9 30 94 1 5 0 1 1 5 1 3 1 1 2 INV 39 45 1 5 ; SCALAR gr Taux de croissance r Taux d'intéret delta Taux de déclassement gr /0.03/ delta /0.07/ r /0.05/ Mip_Var Multiplicateur de l'investissement public sigma Elasticité de substitution theta Elasticité de transformation dans la fonction de production Mip_Var /1.3/ sigma /1/ theta /1/ ; PARAMETER Qref, Pref ; Qref(t) = (1+gr)**(ord(t)-1); Pref(t) = (1/(1+r))**(ord(t)-1); display pref, qref ; * Initialisation Mip(t) = 1 ; sigmatZ(j) = 1 ; SIGMAET(I) = 1 ; SIGMAMT(J) = 1 ; * Attribution des données de la MCS aux variables du modèle L0(i) = MCS('Lab',i) ; K0(i) = MCS('Cap',i) ; VA0(i) = L0(i) + K0(i) ; CIJ0(i,j) = MCS(i,j) ; CI0(j) = SUM(i,CIJ0(i,j)) ; DI0(i) = SUM(j,CIJ0(i,j)) ; Y0(i) = VA0(i) + CI0(i) ; CH0(i) = MCS(i,'MEN') ; CG0(i) = MCS(i,'APU') ; I0(i) = MCS(i,'Inv') ; M0(ae,i) = MCS(ae,i) ; E0(ae,i) = MCS(i,ae) ; S0(ag) = MCS('Inv',ag) ; Trn0(ag,ag1) = MCS(ag1,ag) ; * Taxes TAXL(i) = MCS('TAXL',i) ; TAXK(i) = MCS('TAXK',i) ; TAXM(ae,i) = M0(ae,i)/SUM(ae1,M0(ae1,i))*MCS('TAXM',i) ; TAXE(ae,i) = E0(ae,i)/SUM(ae1,E0(ae1,i))*MCS('TAXE',i) ; TAXQ(i) = MCS('TAXQ',i) ; * Profits PROF(i) = MCS('PROF',i) ; D0(i) = (Y0(i)+TAXL(i)+TAXK(i)+PROF(i))-SUM(ae,E0(ae,i)-TAXE(ae,i)) ; Q0(i) = CH0(i)+CG0(i)+DI0(i)+I0(i) ; * Répartition de la valeur ajoutée Spf(ag,f)$MCS(ag,f) = MCS(ag,f)/SUM(ag1,MCS(ag1,f)) ; * Répartition dans l'investissement thetak(i)$I0(i) = I0(i)/SUM(j, I0(j)); * Impôts sur le revenu taud(ac)$MCS('TaxR',ac) = MCS('TaxR',ac)/(SUM(as,MCS(ac,as))) ; * Taux de taxes sur les salaires taul(i)$L0(i) = TAXl(i)/L0(i) ; Pl0(i) = 1 + taul(i) ; * Taux de taxes sur le capital tauk(i)$K0(i) = TAXK(i)/K0(i) ; Pk0(i) = 1 + tauk(i) ; * Taux de profit taupr(i)$K0(i) = PROF(i)/K0(i) ; Pk0(i) = 1 + tauk(i) + taupr(i) ; * Taux de taxes sur les importations taum(ae,i)$M0(ae,i) = TAXM(ae,i)/M0(ae,i) ; Pm0(ae,i) = 1 + taum(ae,i) ; MT0(j) = SUM(ae,M0(ae,j)*Pm0(ae,j)) ; * Taux de taxes sur les exportations taue(ae,i)$E0(ae,i) = TAXE(ae,i)/E0(ae,i) ; Pe0(ae,i) = 1 - taue(ae,i) ; ET0(i) = SUM(ae,E0(ae,i)*Pe0(ae,i)) ; * Taux de taxes sur la consommation tauq(i)$Q0(i) = TAXQ(i)/Q0(i) ; Pq0(i) = 1-tauq(i) ; YT0 = SUM(i,Y0(i)) ; CTH0 = SUM(i,CH0(i)) ; IT0 = SUM(i,I0(i)) ; BC(ae) = SUM(i,E0(ae,i)-M0(ae,i)) ; CTH0 = SUM(i,CH0(i)) ; CTG0 = SUM(i,CG0(i)) ; LT0 = SUM(i,L0(i)) ; KT0 = SUM(i,K0(i)) ; Display D0, Q0, E0, M0, L0, K0, CIJ0, taud ; * Verification D0(i) = Q0(i)-TAXQ(i) - MT0(i); * Intialisation tm(ae,i,t) = taum(ae,i) ; Display D0, Q0 , K0 ; $ONTEXT $MODEL:ModelCGE $SECTORS: Y(j,t) ! Niveau d'activité pour le secteur j Q(i,t)$Q0(i) ! Niveau de demande pour le bien composite j M(ae,i,t)$M0(ae,i) ! Niveau des imports pour le bien j E(ae,t)$SUM(i,E0(ae,i)) ! Niveau des exports pour le bien j ET(i,t)$ET0(i) ! Niveau du total des exports MT(i,t)$MT0(i) ! Niveau du total des imports CTP(t) ! Niveau de consommation totale du privé CTG(t) ! Niveau de consommation totale du gouvernement IT(t) ! Niveau de l'investissement total $COMMODITIES: PD(i,t)$D0(i) ! Indice des prix des biens domestiques pour le secteur i PL(t) ! Indice des prix du travail RK(t) ! Indice de la rémunération du capital dans le secteur i PFX(ae,t)$BC(ae) ! Indice des prix internationaux PM(ae,i,t)$M0(ae,i) ! Indice des prix des imports du secteur i de la zone ae PE(ae,i,t)$E0(ae,i) ! Indice des prix des exports du secteur i vers la zone ae PET(i,t)$ET0(i) ! Indice des prix des exports du secteur i PMT(i,t)$MT0(i) ! Indice des prix des exports du secteur i PKT(t) ! Indice des prix du total des investissements PCT(t) ! Indice des prix du total de la consommation privée PGT(t) ! Indice des prix du total de la consommation publique PQ(i,t) ! Indice des prix de la demande composite pour le secteur i $CONSUMERS: RA(t) ! Solde des revenus de l'agent représentatif RA GOV(t) ! Solde des revenus du gouvernement RDM(ae,t) ! Solde des revenus du RDM $AUXILIARY: STKPL(t) ! Contrainte de rigidité sur les salaires K(t) ! Contrainte de rigidité sur la rémunération du capial TXF(ae,t) ! Contrainte de rigidité sur le taux de change réel RTAX(ac,t) ! Impôts sur le revenu $PROD:Y(j,t) t:theta s:sigma va:0.5 O:PET(j,t) Q:ET0(j) O:PD(j,t) Q:D0(j) I:PL(t) Q:L0(j) va: P:Pl0(j) A:GOV(t) t:taul(j) I:RK(t) Q:K0(j) va: P:Pk0(j) A:GOV(t) t:tauk(j) A:RA(t) t:taupr(j) I:PQ(i,t) Q:CIJ0(i,j) $PROD:ET(i,t)$ET0(i) t:sigmaET(i) O:PE(ae,i,t) Q:E0(ae,i) P:Pe0(ae,i) A:GOV(t) t:taue(ae,i) I:PET(i,t) Q:ET0(i) $PROD:MT(j,t)$MT0(j) s:sigmaMT(j) O:PMT(j,t) Q:MT0(j) I:PM(ae,j,t) Q:(M0(ae,j)*Pm0(ae,j)) $PROD:E(ae,t)$SUM(i,E0(ae,i)) O:PFX(ae,t) Q:(SUM(j,E0(ae,j))) I:PE(ae,i,t) Q:E0(ae,i) $PROD:M(ae,j,t)$M0(ae,j) O:PM(ae,j,t)$M0(ae,j) Q:(M0(ae,j)*Pm0(ae,j)) I:PFX(ae,t) Q:M0(ae,j) P:PM0(ae,j) A:GOV(t) t:tm(ae,j,t) $PROD:Q(i,t)$Q0(i) s:sigma O:PQ(i,t) Q:Q0(i) P:Pq0(i) A:GOV(t) t:tauq(i) I:PD(i,t) Q:D0(i) I:PMT(i,t) Q:MT0(i) $PROD:CTP(t) s:1 O:PCT(t) Q:(SUM(i,CH0(i))) I:PQ(i,t) Q:(CH0(i)) $PROD:CTG(t) s:1 O:PGT(t) Q:(SUM(i,CG0(i))) I:PQ(i,t) Q:CG0(i) $PROD:IT(t) s:1 O:PKT(t) Q:IT0 I:PQ(i,t) Q:I0(i) $DEMAND:RA(t) s:1 D:PCT(t) Q:CTH0 D:PKT(t) Q:S0("MEN") E:PL(t) Q:(LT0*QRef(t)) R:STKPL(t) E:RK(t) Q:spf("MEN","Cap") R:K(t) * Direct taxes E:PGT(t) Q:(-1) R:RTAX("Men",t) * Transfers E:PCT(t) Q:(SUM(ag,(Trn0(ag,"MEN")-Trn0("MEN",ag)))*Qref(t)) $DEMAND:GOV(t) D:PGT(t) Q:CTG0 E:PKT(t) Q:(-S0("APU")*Mip(t)*QRef(t)) * Direct taxes E:PGT(t) Q:(1) R:RTAX("Men",t) * Transfers E:PCT(t) Q:(SUM(ag,(Trn0(ag,"APU")-Trn0("APU",ag)))*Qref(t)) $DEMAND:RDM(ae,t) D:PKT(t) E:PFX(ae,t) Q:(-BC(ae)*QRef(t)) R:TXF(ae,t) E:RK(t) Q:spf(ae,"Cap") R:K(t) * Transfers E:PCT(t) Q:(SUM(ag,(Trn0(ag,ae)-Trn0(ae,ag)))*Qref(t)) $CONSTRAINT:STKPL(t) PL(t)/PCT(t) =G= 1; $CONSTRAINT:K(t) K(t) =E= KT0$T1(t) + (1-delta)*K(t-1)+IT(t-1)*IT0*(r+delta) ; $CONSTRAINT:RTAX(ac,t) RTAX(ac,t) =E= taud(ac)*(SUM(as,MCS(ac,as)))*CTP(t) ; $CONSTRAINT:TXF(ae,t) PFX(ae,t)/PCT(t) =G= 1; $REPORT: v:Dprod(i,t) o:Pd(i,t) Prod:Y(i,t) v:LabDeM(j,t) i:PL(t) Prod:Y(j,t) v:CapDeM(j,t) i:RK(t) Prod:Y(j,t) v:CIJ(i,j,t) i:Pq(i,t) Prod:Y(j,t) v:Exp(ae,i,t) i:PE(ae,i,t) Prod:E(ae,t) v:Imp(ae,i,t) i:Pfx(ae,t) Prod:M(ae,i,t) v:Inv(i,t) i:Pq(i,t) Prod:IT(t) v:DComP(i,t) o:Pq(i,t) Prod:Q(i,t) v:ConsH(i,t) i:Pq(i,t) Prod:CTP(t) v:ConsG(i,t) i:Pq(i,t) Prod:CTG(t) $OFFTEXT $SYSINCLUDE mpsgeset ModelCGE * Numeraire PCT.fx(t) = PRef(t) ; * valeurs initiales PD.l(i,t) = PRef(t) ; PL.l(t) = PRef(t) ; RK.l(t) = PRef(t) ; PFX.l(ae,t) = PRef(t) ; PM.l(ae,i,t) = PRef(t) ; PE.l(ae,i,t) = PRef(t) ; PMT.l(i,t) = PRef(t) ; PET.l(i,t) = PRef(t) ; PKT.l(t) = PRef(t) ; PGT.l(t) = PRef(t) ; PQ.l(i,t) = PRef(t) ; CTP.l(t) = QRef(t) ; CTG.l(t) = QRef(t) ; IT.l(t) = QRef(t) ; Y.l(i,t) = QRef(t) ; Q.l(i,t) = QRef(t) ; M.l(ae,i,t) = QRef(t) ; E.l(ae,t) = QRef(t) ; ET.l(i,t) = QRef(t) ; MT.l(i,t) = QRef(t) ; RTAX.l(ac,t) = Taud(ac)*SUM(as,MCS(ac,as))*Qref(t) ; STKPL.fx(t) = 1 ; TXF.fx(ae,t) = 1 ; K.l(t) = KT0*QRef(t); K.fx(t1) = KT0 ; Scenario("Mip",'base','','',t) = 1 ; Scenario("Mip",'var','','',t) = Mip_Var ; Scenario("Taum",'base',ae,i,t) = tm(ae,i,t); Scenario("Taum",'var',ae,i,t) = 0.2*tm(ae,i,t); PARAMETER Iter Nombre d'iterations MCSRES Resultats présentation MCS Results Resultats présentation variables ; ITER(sc) = 200000 ; ITER("base") = 0 ; loop(sc, tm(ae,i,t) = Scenario("Taum",sc,ae,i,t) ; ModelCGE.iterlim= iter(sc); ModelCGE.optfile= 1 ; $INCLUDE ModelCGE.GEN SOLVE ModelCGE USING MCP; display Scenario, Mip ; MCSRES(sc,'Lab',j,t) = LabDem.l(j,t)*Pl.l(t) ; MCSRES(sc,'Cap',j,t) = CapDem.l(j,t)*RK.l(t) ; MCSRES(sc,i,j,t) = CIJ.l(i,j,t)*Pq.l(i,t) ; MCSRES(sc,ag,f,t) = SUM(j,Spf(ag,f)*MCSRES(sc,f,j,t)) ; MCSRes(sc,i,'MEN',t) = ConsH.l(i,t)*Pq.l(i,t) ; MCSRES(sc,i,'APU',t) = ConsG.l(i,t)*Pq.l(i,t) ; MCSRES(sc,ae,i,t) = Imp.l(ae,i,t)*Pm.l(ae,i,t) ; MCSRES(sc,i,ae,t) = Exp.l(ae,i,t)*Pe.l(ae,i,t) ; MCSRES(sc,ag,ag1,t) = MCS(ag,ag1)*Qref(t)*PRef(t) ; MCSRES(sc,'TAXR',ac,t) = RTAX.l(ac,t)*PGT.l(t) ; MCSRES(sc,'TAXQ',i,t) = tauq(i)*Dcomp.l(i,t)*Pq.l(i,t) ; MCSRES(sc,'TAXM',i,t) = SUM(ae,taum(ae,i)*Imp.l(ae,i,t)*Pm.l(ae,i,t)) ; MCSRES(sc,'TAXE',i,t) = SUM(ae,taue(ae,i)*Exp.l(ae,i,t)*Pe.l(ae,i,t)) ; MCSRES(sc,'TAXL',i,t) = taul(i)*LabDem.l(i,t)*Pl.l(t) ; MCSRES(sc,'TAXK',i,t) = tauk(i)*CapDem.l(i,t)*Rk.l(t) ; MCSRES(sc,'PROF',i,t) = taupr(i)*CapDem.l(i,t)*Rk.l(t) ; MCSRES(sc,'APU','TAXQ',t) = SUM(i,MCSRES(sc,'TAXQ',i,t)) ; MCSRES(sc,'APU','TAXL',t) = SUM(i,MCSRES(sc,'TAXL',i,t)) ; MCSRES(sc,'APU','TAXK',t) = SUM(i,MCSRES(sc,'TAXK',i,t)) ; MCSRES(sc,'APU','TAXM',t) = SUM(i,MCSRES(sc,'TAXM',i,t)) ; MCSRES(sc,'APU','TAXE',t) = SUM(i,MCSRES(sc,'TAXE',i,t)) ; MCSRES(sc,'APU','TAXR',t) = SUM(ac,MCSRES(sc,'TAXR',ac,t)) ; MCSRES(sc,'MEN','PROF',t) = SUM(i,MCSRES(sc,'PROF',i,t)) ; MCSRES(sc,'Inv',ag,t) = SUM(as,MCSRES(sc,ag,as,t)-MCSRES(sc,as,ag,t)) ; MCSRES(sc,i,'Inv',t) = Inv.l(i,t)*Pq.l(i,t) ; * Synthese Results('SYNT','Volume','Investissement Public','','',sc,t) = S0("APU")*Mip(t)*Qref(t); Results('SYNT','Volume','consommation globale','','',sc,t) = SUM(i,ConsH.l(i,t)+ConsG.l(i,t)); Results('SYNT','Volume','PIB aux coûts des facteurs','','',sc,t) = SUM(j,LabDem.l(j,t) + CapDem.l(j,t)); * Comptes Nationaux Results('NAT','Volume','Multiplicateur Investissement Public ','','',sc,t) = Mip(t); Results('NAT','Volume','Cons. Intermediaire', i,j,sc,t) = CIJ.l(i,j,t); Results('NAT','Volume','Investissement',ae,i,sc,t) = Inv.l(i,t); Results('NAT','Volume','Valeur ajoutée','',j,sc,t) = LabDem.l(j,t) + CapDem.l(j,t); Results('NAT','Volume','PIB au coût des facteurs','','',sc,t) = SUM(j,LabDem.l(j,t) + CapDem.l(j,t)); Results('NAT','Volume','Exports',ae,i,sc,t) = Exp.l(ae,i,t); Results('NAT','Volume','Imports',ae,i,sc,t) = Imp.l(ae,i,t); Results('NAT','Volume','Demande de travail',ae,i,sc,t) = LabDem.l(i,t); Results('NAT','Volume','Demande de capital',ae,i,sc,t) = CapDem.l(i,t); Results('NAT','Volume','Cons. finale des ménages',ae,i,sc,t) = ConsH.l(i,t); Results('NAT','Volume','Production domestique',ae,i,sc,t) = Dprod.l(i,t); Results('NAT','Valeur','Cons. Intermediaire', i,j,sc,t) = CIJ.l(i,j,t)*Pq.l(i,t); Results('NAT','Valeur','Investissement',ae,i,sc,t) = Inv.l(i,t)*Pq.l(i,t); Results('NAT','Valeur','PIB au coût des facteurs','','',sc,t) = SUM(j,LabDem.l(j,t)*Pl.l(t) + CapDem.l(j,t)*RK.l(t)); Results('NAT','Valeur','Exports',ae,i,sc,t) = Exp.l(ae,i,t)*PFX.l(ae,t); Results('NAT','Valeur','Imports',ae,i,sc,t) = Imp.l(ae,i,t)*Pm.l(ae,i,t); Results('NAT','Valeur','Demande de travail',ae,i,sc,t) = LabDem.l(i,t)*Pl.l(t); Results('NAT','Valeur','Demande de capital',ae,i,sc,t) = CapDem.l(i,t)*RK.l(t); Results('NAT','Valeur','Cons. finale des ménages',ae,i,sc,t) = ConsH.l(i,t)*Pq.l(i,t); Results('NAT','Valeur','Production domestique',ae,i,sc,t) = Dprod.l(i,t)*Pd.l(i,t); Results('NAT','Valeur','Valeur ajoutée','',j,sc,t) = LabDem.l(j,t)*Pl.l(t)+CapDem.l(j,t)*RK.l(t); Results('NAT','Prices','Prix domestiques',ae,i,sc,t) = Pd.l(i,t); Results('NAT','Prices','Taux de change',ae,i,sc,t) = PFX.l(ae,t); Results('NAT','Prices','Prix des imports',ae,i,sc,t) = Pm.l(ae,i,t); Results('NAT','Prices','Prix des biens composites',ae,i,sc,t) = Pq.l(i,t); Results('NAT','Prices','Prix du travail','','',sc,t) = Pl.l(t); Results('NAT','Prices','Rémunération du capital',ae,'',sc,t) = RK.l(t); * Finances Publiques Results('TOFE','Valeur','Revenus des taxes',ae,i,sc,t) = tauq(i)*PQ.l(i,t)*Q0(i)*Q.l(i,t); Results('TOFE','Valeur','Dépenses du Gouv.',ae,i,sc,t) = ConsG.l(i,t)*Pq.l(i,t); Results('TOFE','Valeur','Investissement public','','',sc,t) = S0("APU")*Mip(t)*Qref(t)*Pkt.l(t); Results('TOFE','Valeur','Déficit public','','',sc,t) = SUM(i,SUM(ae,Results('TOFE','Valeur','Revenus des taxes',ae,i,sc,t))) - SUM(i,SUM(ae,Results('TOFE','Valeur','Dépenses du Gouv.',ae,i,sc,t))) - Results('TOFE','Valeur','Investissement public','','',sc,t); * Balance des paiements Results('BC','Valeur','Exports',ae,i,sc,t) = Exp.l(ae,i,t)*Pm.l(ae,i,t) ; Results('BC','Valeur','Imports',ae,i,sc,t) = Imp.l(ae,i,t)*Pm.l(ae,i,t); Results('BC','Valeur','Balance commerciale',ae,i,sc,t) =(Exp.l(ae,i,t)*Pm.l(ae,i,t)-Imp.l(ae,i,t)*Pm.l(ae,i,t)); Results('BC','Valeur','Transferts en capital',ae,'',sc,t) = RDM.l(ae,t) ; Results('BC','Valeur','Balance des paiements',ae,'',sc,t) = SUM(i,Results('BC','Valeur','Balance commerciale',ae,i,sc,t))+RDM.l(ae,t) ; DISPLAY RESULTS ; ) ; Execute_unload "Model.gdx" MCSRES RESULTS Execute "GDX2ACCESS.EXE Model.gdx"
▶️ Lancer
📊 Résultats
Console
LST
Lancez un modèle...
Pas de LST...