📊 Simulateur MEGC
🏠 Accueil
📁 Modèles
📁 Navigation
🏠
/
Exemples
⬆️
Dossier parent
📄 Modèles
BOP
Calibration_SenAgreg
EMPLOI
INPUT
JOINT
KEYN
Model_SenAgreg-OI
Model_SenAgreg
Model_SenAgreg_Linux
Model_SenAgreg_UTF8
OPEN-VEC
OPEN-VEC_T
OPEN-VEC_T2
OPEN-VEC_T2_Linux
OPEN
Pure exchange
Read_Data
SIMP
TARIFF
TAXENDO
TAXIN
TAXOUT
🖥️ Console
OPEN-VEC_T2_Linux.gms
Sortie
LST
En attente d'exécution...
Fichier LST non disponible
📝 Code GAMS
$TITLE MEGC A DYNAMIQUE RECURSIVE EN ECONOMIE OUVERTE - Version Linux * Ce modèle introduit la dynamique récursive dans le modèle OPEN_VEC. * Auteur : Jean-Marc PHILIP Contact: Philip@analyze.fr SET * Note: Période réduite pour licence démo (limite 1000 colonnes) * Pour la version complète, remettez /2019*2025/ t Periode temporelle /2019*2021/ 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éférence pour les exports Pm0(ae,i) Prix de référence 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 ; 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 ; ) ; * Export des résultats vers GDX Execute_unload "Model.gdx" MCSRES RESULTS ; * Création du paramètre CHART_DATA pour l'interface graphique (dernière période uniquement) PARAMETER CHART_DATA(*,*,*,*,*,*) Données pour les graphiques ; * Copier les résultats de la dernière période (2021) pour chaque scénario CHART_DATA('SYNT','Volume','Investissement Public','','',sc) = Results('SYNT','Volume','Investissement Public','','',sc,'2021') ; CHART_DATA('SYNT','Volume','consommation globale','','',sc) = Results('SYNT','Volume','consommation globale','','',sc,'2021') ; CHART_DATA('SYNT','Volume','PIB aux coûts des facteurs','','',sc) = Results('SYNT','Volume','PIB aux coûts des facteurs','','',sc,'2021') ; CHART_DATA('NAT','Volume','PIB au coût des facteurs','','',sc) = Results('NAT','Volume','PIB au coût des facteurs','','',sc,'2021') ; CHART_DATA('NAT','Valeur','PIB au coût des facteurs','','',sc) = Results('NAT','Valeur','PIB au coût des facteurs','','',sc,'2021') ; CHART_DATA('NAT','Prices','Prix du travail','','',sc) = Results('NAT','Prices','Prix du travail','','',sc,'2021') ; CHART_DATA('NAT','Volume','Valeur ajoutée','',j,sc) = Results('NAT','Volume','Valeur ajoutée','',j,sc,'2021') ; CHART_DATA('NAT','Valeur','Valeur ajoutée','',j,sc) = Results('NAT','Valeur','Valeur ajoutée','',j,sc,'2021') ; CHART_DATA('NAT','Volume','Demande de travail',ae,i,sc) = Results('NAT','Volume','Demande de travail',ae,i,sc,'2021') ; CHART_DATA('NAT','Volume','Demande de capital',ae,i,sc) = Results('NAT','Volume','Demande de capital',ae,i,sc,'2021') ; CHART_DATA('NAT','Volume','Exports',ae,i,sc) = Results('NAT','Volume','Exports',ae,i,sc,'2021') ; CHART_DATA('NAT','Volume','Imports',ae,i,sc) = Results('NAT','Volume','Imports',ae,i,sc,'2021') ; CHART_DATA('NAT','Volume','Cons. finale des ménages',ae,i,sc) = Results('NAT','Volume','Cons. finale des ménages',ae,i,sc,'2021') ; CHART_DATA('NAT','Volume','Production domestique',ae,i,sc) = Results('NAT','Volume','Production domestique',ae,i,sc,'2021') ; CHART_DATA('NAT','Valeur','Exports',ae,i,sc) = Results('NAT','Valeur','Exports',ae,i,sc,'2021') ; CHART_DATA('NAT','Valeur','Imports',ae,i,sc) = Results('NAT','Valeur','Imports',ae,i,sc,'2021') ; CHART_DATA('NAT','Prices','Prix domestiques',ae,i,sc) = Results('NAT','Prices','Prix domestiques',ae,i,sc,'2021') ; CHART_DATA('NAT','Prices','Taux de change',ae,i,sc) = Results('NAT','Prices','Taux de change',ae,i,sc,'2021') ; CHART_DATA('NAT','Prices','Prix des imports',ae,i,sc) = Results('NAT','Prices','Prix des imports',ae,i,sc,'2021') ; CHART_DATA('TOFE','Valeur','Investissement public','','',sc) = Results('TOFE','Valeur','Investissement public','','',sc,'2021') ; CHART_DATA('TOFE','Valeur','Déficit public','','',sc) = Results('TOFE','Valeur','Déficit public','','',sc,'2021') ; CHART_DATA('TOFE','Valeur','Revenus des taxes',ae,i,sc) = Results('TOFE','Valeur','Revenus des taxes',ae,i,sc,'2021') ; CHART_DATA('TOFE','Valeur','Dépenses du Gouv.',ae,i,sc) = Results('TOFE','Valeur','Dépenses du Gouv.',ae,i,sc,'2021') ; CHART_DATA('BC','Valeur','Exports',ae,i,sc) = Results('BC','Valeur','Exports',ae,i,sc,'2021') ; CHART_DATA('BC','Valeur','Imports',ae,i,sc) = Results('BC','Valeur','Imports',ae,i,sc,'2021') ; CHART_DATA('BC','Valeur','Balance commerciale',ae,i,sc) = Results('BC','Valeur','Balance commerciale',ae,i,sc,'2021') ; CHART_DATA('BC','Valeur','Balance des paiements',ae,'',sc) = Results('BC','Valeur','Balance des paiements',ae,'',sc,'2021') ; * Export vers CSV pour l'interface graphique (fichier results.csv en minuscules) Execute_unload "chart_data.gdx" CHART_DATA ; execute 'gdxdump chart_data.gdx output=results.csv symb=CHART_DATA format=csv Header=Y' ; * Export complet des résultats Execute_unload "MCSRES.gdx" MCSRES ; execute 'gdxdump MCSRES.gdx output=MCSRES.csv symb=MCSRES format=csv' ;
▶️ Lancer la Simulation