📊 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
Calibration_SenAgreg.gms
Sortie
LST
En attente d'exécution...
Fichier LST non disponible
📝 Code GAMS
$TITLE Model S�n�gal *Jean-Marc PHILIP, email:philip@analyze.fr set t Periode temporelle /2019*2024/ t1(t) Ann�e 1 /2019/ as comptes MCS initial /AF_1*AF_27, AI_1*AI_27, P1*P27, Lab, Cap, SNF, SF, Tax_Rev, Tax_Prod, Sub_Prod, TVA, Tax_Aut, Tax_imp, Tax_exp, Sub_Prd, Gov, Men, ISBL, Acc, RDM1*RDM27, Mrg, Inv, Fin/ ts taxes et subvesntions /Tax_Rev, Tax_Prod, Sub_Prod, TVA, Tax_Aut, Tax_imp, Tax_exp, Sub_Prd/ f(as) facteurs /Lab, Cap/ s(as) secteurs /AF_1*AF_27, AI_1*AI_27/ i(as) produits /P1*P27/ ag(as) agents /Men, SF, SNF, ISBL, Gov, RDM1*RDM27/ ai(ag) agents imposables /SNF, SF, GOV, RDM1*RDM27, Men/ mn(ag) m�nages /Men/ ac(ag) consommateurs priv�s /Men, ISBL/ sa(ag) soci�t�s /SF, SNF/ ae(ag) agents ext�rieurs /RDM1*RDM27/ Tax(as) Taxes /Tax_Rev, Tax_Prod, Sub_Prod, TVA, Tax_Aut, Tax_imp, Sub_Prd/ sc scenario /Base, Var/ ; Alias(as,as1), (s,s1), (ag,ag1),(ag,af1), (ae,ae1) ; PARAMETER MCS(*,*) ; $call 'gdxxrw i=SEN_MCS_2019.xlsx o=Sen_MCS_2019.gdx par=MCS rdim=1 cdim=1 rng=Micro_MCS!C3:FP165'; $gdxin Sen_MCS_2019.gdx $load MCS display MCS ; * Construction de la nouvelle MCS set asn /f, txs, 'Prd', 'Sec', 'RDM'/ ; PARAMETER new_mcs(*,*); new_mcs(as,as1) = 0; * Produits secteurs new_mcs('Sec','Prd') = SUM((s,i),mcs(s,i)) ; new_mcs('Prd','Sec') = SUM((i,s),mcs(i,s)) ; new_mcs('Prd',ac) = SUM(i,mcs(i,ac)) ; new_mcs('Prd','Gov') = SUM(i,mcs(i,'Gov')) ; new_mcs('RDM','Prd') = SUM((ae,i),mcs(ae,i)) ; new_mcs('Prd','RDM') = SUM((i,ae),mcs(i,ae)) ; ; new_mcs('Sec','RDM') = SUM((s,ae),mcs(s,ae)) ; new_mcs('RDM','Sec') = SUM((ae,s),mcs(ae,s)) ; * Matrice Qui � Qui new_mcs(ag,ag1) = mcs(ag,ag1); new_mcs(ag,'RDM') = SUM(ae,mcs(ag,ae)) ; new_mcs('RDM',ag) = SUM(ae,mcs(ae,ag)) ; new_mcs(ag,ae) = 0 ; new_mcs(ae,ag) = 0 ; * Facteurs de production new_mcs(f,'Sec') = SUM(s,mcs(f,s)) ; new_mcs(f,'RDM') = SUM(ae,mcs(f,ae)) ; new_mcs(ag,f) = mcs(ag,f) ; new_mcs('RDM',f) = SUM(ae,mcs(ae,f)) ; new_mcs(ae,f) = 0 ; * Taxes et subventions new_mcs(ts,ag) = mcs(ts,ag); new_mcs(ag,ts) = mcs(ag,ts); new_mcs('Sec',ts) = SUM(s,mcs(s,ts)); new_mcs(ts,'Sec') = SUM(s,mcs(ts,s)); new_mcs('Prd',ts) = SUM(i,mcs(i,ts)); new_mcs(ts,'Prd') = SUM(i,mcs(ts,i)); new_mcs(ts,'RDM') = SUM(ae,mcs(ts,ae)); new_mcs('RDM',ts) = SUM(ae,mcs(ae,ts)); new_mcs(ts,ae) = 0; new_mcs(ae,ts) = 0; * Fusion des lignes investissement et financement new_mcs('Inv',ag) = mcs('Inv',ag)+mcs('Fin',ag) ; new_mcs('Inv','RDM') = SUM(ae,new_mcs('Inv',ae)) ; new_mcs('Inv',ae) = 0 ; new_mcs('Prd','Inv') = SUM(i,mcs(i,'Inv')+mcs(i,'Fin')); display new_mcs; execute_unload "SAM.gdx" new_mcs; execute 'gdxxrw i=SAM.gdx o=SAM_Agreg.xlsx par=new_mcs rdim=1 cdim=1';
▶️ Lancer la Simulation