*       COINT_EX.PRG :  La formulation correction d'erreur
*
ALL 100
SEED 4
ZERO Y1; ZERO Y2; ZERO Y1_D; ZERO Y2_D; ZERO Y2_Y1
*
*      Le modèle à correction d'erreur est un VAR en première différence
*
*      Y1_D = PHI11*Y1_D{1} + U1
*      Y2_D = PHI21*Y1_D{1} + PHI22*Y2_D{1} + DELTA*(Y2{1}-Y1{1}) +U2
*
*      qui assure que la série Y2 ne dévie pas trop de la série Y1.  Le coefficient
*      DELtA joue le rôle d'un «thermostat».  Voir les valeurs: 0,-0.1,-0.2
*      Les équations ci-dessous sont des identités.
*
*      Y1   = Y1{1} + Y1_D
*      Y2   = Y2{1} + Y2_D
*      Y2_Y1= Y2-Y1
*
EQUATION 1 Y1_D
# Y1_D{1}
ASSOCIATE(VAR=1.0) 1
# 0.5
EQUATION 2 Y2_D
# Y2_D{1} Y1_D{1} Y2_Y1{1}
ASSOCIATE(VAR=1.0) 2
# .5 .5 -.1
EQUATION(IDENTITY) 3 Y1
# Y1{1} Y1_D
ASSOCIATE 3
# 1 1
EQUATION(IDENTITY) 4 Y2
# Y2{1} Y2_D
ASSOCIATE 4
# 1 1
EQUATION(IDENTITY) 5 Y2_Y1
# Y2 Y1
ASSOCIATE 5
# 1 -1
*
SIMULATE 5 96 3
# 1 Y1_D
# 2 Y2_D
# 3 Y1
# 4 Y2
# 5 Y2_Y1
*
SPGRAPH(VFIELDS=2)
GRAPH(HEADER='Séries Y1 et Y2 en niveau') 2
# Y1 3 99
# Y2 3 99
GRAPH(HEADER='Écart entre Y2 et Y1') 1
# Y2_Y1 3 99
SPGRAPH(DONE)