GAMS Model Simulator

🖥️ Console Calibration_SenAgreg.gms

En attente d'exécution...

📝 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';

📊 Simulateur MEGC

📁 Navigation

🖥️ Console Calibration_SenAgreg.gms

📝 Code GAMS