GAMS Model Simulator

📁 Modèles

📝 Code TAXENDO.gms

$TITLE: MEGC ï¿½lï¿½mentaire avec un deux biens, deux facteurs de production et deuc agents

* Ce modï¿½le est le mï¿½me que le modï¿½le TAXIN en rendant les taxes endogï¿½nes

*Jean-Marc PHILIP,  email:jm.philip@analyze.fr

TABLE SAM

L       K       RA     GOV      X       Y     Total
   L                                       40      60     100
   K                                       60      40     100
   RA     100     100                                     200
  GOV                                              10      10
   X                       98      2                      100
   Y                      102      8                      110
 Total    100     100     200      10     100     110

;

PARAMETER TXK0 , rk0 ;

TXK0 = 10/40 ;
Rk0 = 1+TXK0 ;

display TXK0, rk0 ;

SCALAR   TXK     Capital income tax rate;

$ONTEXT
$MODEL:TAXEND0
$SECTORS:
        X! Niveau d'activitï¿½ pour le secteur X
        Y! Niveau d'activitï¿½ pour le secteur Y
        W! Niveau d'utilitï¿½ pour le consommateur RA
        G! Niveau d'utilitï¿½ pour le gouvernement G

$COMMODITIES:
         PW   ! Indice du prix de l'iutlitï¿½ du consommateur RA
         PG   ! Indice du prix de l'iutlitï¿½ du gouvernement
         PX   ! Indice des prix des biens de production du produit X
         PY   ! Indice des prix des biens de production du produit Y
         PL   ! Indice des prix de la rï¿½munï¿½ration du travail
         RK   ! Indice des prix de la rï¿½munï¿½ration du capital

$CONSUMERS:
        RA! Le niveau de revenu des consommateurs
        GOV! Solde de revenu du gouvernement

$AUXILIARY:
        TAU     ! Tax multiplier associated with equal yield constraint.

$PROD:X         s:1
O:PX                 Q:100
I:PL                 Q:40
I:RK                 Q:60

$PROD:Y         s:1
O:PY                 Q:110
I:PL                 Q:60
I:RK                 Q:40      p:Rk0     A:GOV     N:tau     M:TXK

$PROD:W         s:1
O:PW                 Q:200
I:PX                 Q:98
I:PY                 Q:102

$PROD:G         s:1
O:PG                 Q:10
I:PX                 Q:2
I:PY                 Q:8

$DEMAND:RA
D:PW                 Q:200
E:PL                 Q:100
E:RK                 Q:100

$DEMAND:GOV
D:PG

$CONSTRAINT:TAU
        W * PW * 200 + G * PG * 10 - PL*100 - RK * 100  =E= 10 * (PX + PY)/2;

* Nous multiplions le revenu fiscal de rï¿½fï¿½rence (10) par une moyenne pondï¿½rï¿½e des prix X et Y.
* avec la contrainte que ce montant reste ï¿½gal ï¿½ la diffï¿½rence entre la somme des utilitï¿½s des agents et de la valeur ajoutï¿½e.

$REPORT:
        V:Cons          O:PW          PROD:W
        V:EmpX          I:PL          PROD:X
        V:CapX          I:RK          PROD:X
        V:EmpY          I:PL          PROD:Y
        V:CapY          I:RK          PROD:Y

$OFFTEXT

$SYSINCLUDE mpsgeset TAXEND0
         PL.FX = 1 ;
         TAU.L = 1 ;

TXK = TXK0 ;

TAXEND0.ITERLIM = 0 ;
$INCLUDE TAXEND0.GEN
        SOLVE TAXEND0 USING MCP ;

PARAMETER  RESULTS ;
RESULTS('Consommation')     =     Cons.l ;
RESULTS('Rï¿½munï¿½ration du travail dans le secteur X')     =     EmpX.l ;
RESULTS('Rï¿½munï¿½ration du capital dans le secteur X')     =     CapX.l ;
RESULTS('Rï¿½munï¿½ration du travail dans le secteur Y')     =     EmpY.l ;
RESULTS('Rï¿½munï¿½ration du capital dans le secteur Y')     =     CapY.l ;

* Envoi des rï¿½sultats dans un fichier Excel

Execute_unload "RESULTS.gdx"    RESULTS
Execute 'gdxxrw i=RESULTS.gdx   o=RESULTS.xlsx  par=RESULTS rdim=1 cdim=0  ' ;

📊 Résultats

Lancez un modèle...

🔢 Simulateur de Modèles GAMS

📁 Modèles

📝 Code TAXENDO.gms

📊 Résultats