diff --git a/tests/AIM/fs2000_b1L1L.mod b/tests/AIM/fs2000_b1L1L.mod index f7037a194..153790304 100644 --- a/tests/AIM/fs2000_b1L1L.mod +++ b/tests/AIM/fs2000_b1L1L.mod @@ -1,82 +1,82 @@ -// This file replicates the estimation of the CIA model from -// Frank Schorfheide (2000) "Loss function-based evaluation of DSGE models" -// Journal of Applied Econometrics, 15, 645-670. -// the data are the ones provided on Schorfheide's web site with the programs. -// http://www.econ.upenn.edu/~schorf/programs/dsgesel.ZIP -// You need to have fsdat.m in the same directory as this file. -// This file replicates: -// -the posterior mode as computed by Frank's Gauss programs -// -the parameter mean posterior estimates reported in the paper -// -the model probability (harmonic mean) reported in the paper -// This file was tested with dyn_mat_test_0218.zip -// the smooth shocks are probably stil buggy -// -// The equations are taken from J. Nason and T. Cogley (1994) -// "Testing the implications of long-run neutrality for monetary business -// cycle models" Journal of Applied Econometrics, 9, S37-S70. -// Note that there is an initial minus sign missing in equation (A1), p. S63. -// -// Michel Juillard, February 2004 -options_.usePartInfo=0; -var m P c e W R k d n l gy_obs gp_obs Y_obs P_obs y dA P2 c2; -varexo e_a e_m; - -parameters alp bet gam mst rho psi del; - -alp = 0.33; -bet = 0.99; -gam = 0.003; -mst = 1.011; -rho = 0.7; -psi = 0.787; -del = 0.02; - -model ; -dA = exp(gam+e_a); -log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; --P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c2(+1)*P2(+1)*m(+1))=0; -W = l/n; --(psi/(1-psi))*(c*P/(1-n))+l/n = 0; -R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; -1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; -c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); -P*c = m; -m-1+d = l; -e = exp(e_a); -y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); -gy_obs = dA*y/y(-1); -gp_obs = (P/P(-1))*m(-1)/dA; -Y_obs/Y_obs(-1) = gy_obs; -P_obs/P_obs(-1) = gp_obs; -P2 = P(+1); -c2 = c(+1); -end; - -initval; -k = 6; -m = mst; -P = 2.25; -c = 0.45; -e = 1; -W = 4; -R = 1.02; -d = 0.85; -n = 0.19; -l = 0.86; -y = 0.6; -gy_obs = exp(gam); -gp_obs = exp(-gam); -dA = exp(gam); -end; - -shocks; -var e_a; stderr 0.014; -var e_m; stderr 0.005; -end; - -unit_root_vars P_obs Y_obs; - -steady; - -stoch_simul(order=1,irf=0); - +// This file replicates the estimation of the CIA model from +// Frank Schorfheide (2000) "Loss function-based evaluation of DSGE models" +// Journal of Applied Econometrics, 15, 645-670. +// the data are the ones provided on Schorfheide's web site with the programs. +// http://www.econ.upenn.edu/~schorf/programs/dsgesel.ZIP +// You need to have fsdat.m in the same directory as this file. +// This file replicates: +// -the posterior mode as computed by Frank's Gauss programs +// -the parameter mean posterior estimates reported in the paper +// -the model probability (harmonic mean) reported in the paper +// This file was tested with dyn_mat_test_0218.zip +// the smooth shocks are probably stil buggy +// +// The equations are taken from J. Nason and T. Cogley (1994) +// "Testing the implications of long-run neutrality for monetary business +// cycle models" Journal of Applied Econometrics, 9, S37-S70. +// Note that there is an initial minus sign missing in equation (A1), p. S63. +// +// Michel Juillard, February 2004 +options_.usePartInfo=0; +var m P c e W R k d n l gy_obs gp_obs Y_obs P_obs y dA P2 c2; +varexo e_a e_m; + +parameters alp bet gam mst rho psi del; + +alp = 0.33; +bet = 0.99; +gam = 0.003; +mst = 1.011; +rho = 0.7; +psi = 0.787; +del = 0.02; + +model ; +dA = exp(gam+e_a); +log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; +-P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c2(+1)*P2(+1)*m(+1))=0; +W = l/n; +-(psi/(1-psi))*(c*P/(1-n))+l/n = 0; +R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; +1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; +c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); +P*c = m; +m-1+d = l; +e = exp(e_a); +y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); +gy_obs = dA*y/y(-1); +gp_obs = (P/P(-1))*m(-1)/dA; +Y_obs/Y_obs(-1) = gy_obs; +P_obs/P_obs(-1) = gp_obs; +P2 = P(+1); +c2 = c(+1); +end; + +initval; +k = 6; +m = mst; +P = 2.25; +c = 0.45; +e = 1; +W = 4; +R = 1.02; +d = 0.85; +n = 0.19; +l = 0.86; +y = 0.6; +gy_obs = exp(gam); +gp_obs = exp(-gam); +dA = exp(gam); +end; + +shocks; +var e_a; stderr 0.014; +var e_m; stderr 0.005; +end; + +unit_root_vars P_obs Y_obs; + +steady; + +stoch_simul(order=1,irf=0); + diff --git a/tests/AIM/fs2000_b1L1L_AIM.mod b/tests/AIM/fs2000_b1L1L_AIM.mod index 7c2e15e59..697580d59 100644 --- a/tests/AIM/fs2000_b1L1L_AIM.mod +++ b/tests/AIM/fs2000_b1L1L_AIM.mod @@ -1,90 +1,90 @@ -// This file replicates the estimation of the CIA model from -// Frank Schorfheide (2000) "Loss function-based evaluation of DSGE models" -// Journal of Applied Econometrics, 15, 645-670. -// the data are the ones provided on Schorfheide's web site with the programs. -// http://www.econ.upenn.edu/~schorf/programs/dsgesel.ZIP -// You need to have fsdat.m in the same directory as this file. -// This file replicates: -// -the posterior mode as computed by Frank's Gauss programs -// -the parameter mean posterior estimates reported in the paper -// -the model probability (harmonic mean) reported in the paper -// This file was tested with dyn_mat_test_0218.zip -// the smooth shocks are probably stil buggy -// -// The equations are taken from J. Nason and T. Cogley (1994) -// "Testing the implications of long-run neutrality for monetary business -// cycle models" Journal of Applied Econometrics, 9, S37-S70. -// Note that there is an initial minus sign missing in equation (A1), p. S63. -// -// Michel Juillard, February 2004 -options_.usePartInfo=0; -var m P c e W R k d n l gy_obs gp_obs Y_obs P_obs y dA P2 c2; -varexo e_a e_m; - -parameters alp bet gam mst rho psi del; - -alp = 0.33; -bet = 0.99; -gam = 0.003; -mst = 1.011; -rho = 0.7; -psi = 0.787; -del = 0.02; - -model ; -dA = exp(gam+e_a); -log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; --P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c2(+1)*P2(+1)*m(+1))=0; -W = l/n; --(psi/(1-psi))*(c*P/(1-n))+l/n = 0; -R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; -1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; -c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); -P*c = m; -m-1+d = l; -e = exp(e_a); -y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); -gy_obs = dA*y/y(-1); -gp_obs = (P/P(-1))*m(-1)/dA; -Y_obs/Y_obs(-1) = gy_obs; -P_obs/P_obs(-1) = gp_obs; -P2 = P(+1); -c2 = c(+1); -end; - -initval; -k = 6; -m = mst; -P = 2.25; -c = 0.45; -e = 1; -W = 4; -R = 1.02; -d = 0.85; -n = 0.19; -l = 0.86; -y = 0.6; -gy_obs = exp(gam); -gp_obs = exp(-gam); -dA = exp(gam); -end; - -shocks; -var e_a; stderr 0.014; -var e_m; stderr 0.005; -end; - -unit_root_vars P_obs Y_obs; - -steady; - -stoch_simul(aim_solver, order=1, irf=0); - -benchmark = load('fs2000_b1L1L_results'); -threshold = 1e-8; - -if max(max(abs(benchmark.oo_.dr.ghx-oo_.dr.ghx) > threshold)); - error('error in ghx'); -elseif max(max(abs(benchmark.oo_.dr.ghu-oo_.dr.ghu) > threshold)); - error('error in ghy'); -end; +// This file replicates the estimation of the CIA model from +// Frank Schorfheide (2000) "Loss function-based evaluation of DSGE models" +// Journal of Applied Econometrics, 15, 645-670. +// the data are the ones provided on Schorfheide's web site with the programs. +// http://www.econ.upenn.edu/~schorf/programs/dsgesel.ZIP +// You need to have fsdat.m in the same directory as this file. +// This file replicates: +// -the posterior mode as computed by Frank's Gauss programs +// -the parameter mean posterior estimates reported in the paper +// -the model probability (harmonic mean) reported in the paper +// This file was tested with dyn_mat_test_0218.zip +// the smooth shocks are probably stil buggy +// +// The equations are taken from J. Nason and T. Cogley (1994) +// "Testing the implications of long-run neutrality for monetary business +// cycle models" Journal of Applied Econometrics, 9, S37-S70. +// Note that there is an initial minus sign missing in equation (A1), p. S63. +// +// Michel Juillard, February 2004 +options_.usePartInfo=0; +var m P c e W R k d n l gy_obs gp_obs Y_obs P_obs y dA P2 c2; +varexo e_a e_m; + +parameters alp bet gam mst rho psi del; + +alp = 0.33; +bet = 0.99; +gam = 0.003; +mst = 1.011; +rho = 0.7; +psi = 0.787; +del = 0.02; + +model ; +dA = exp(gam+e_a); +log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; +-P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c2(+1)*P2(+1)*m(+1))=0; +W = l/n; +-(psi/(1-psi))*(c*P/(1-n))+l/n = 0; +R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; +1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; +c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); +P*c = m; +m-1+d = l; +e = exp(e_a); +y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); +gy_obs = dA*y/y(-1); +gp_obs = (P/P(-1))*m(-1)/dA; +Y_obs/Y_obs(-1) = gy_obs; +P_obs/P_obs(-1) = gp_obs; +P2 = P(+1); +c2 = c(+1); +end; + +initval; +k = 6; +m = mst; +P = 2.25; +c = 0.45; +e = 1; +W = 4; +R = 1.02; +d = 0.85; +n = 0.19; +l = 0.86; +y = 0.6; +gy_obs = exp(gam); +gp_obs = exp(-gam); +dA = exp(gam); +end; + +shocks; +var e_a; stderr 0.014; +var e_m; stderr 0.005; +end; + +unit_root_vars P_obs Y_obs; + +steady; + +stoch_simul(aim_solver, order=1, irf=0); + +benchmark = load('fs2000_b1L1L_results'); +threshold = 1e-8; + +if max(max(abs(benchmark.oo_.dr.ghx-oo_.dr.ghx) > threshold)); + error('error in ghx'); +elseif max(max(abs(benchmark.oo_.dr.ghu-oo_.dr.ghu) > threshold)); + error('error in ghy'); +end; diff --git a/tests/AIM/fs2000x10L9_L.mod b/tests/AIM/fs2000x10L9_L.mod index 62b1a7840..85a28b763 100644 --- a/tests/AIM/fs2000x10L9_L.mod +++ b/tests/AIM/fs2000x10L9_L.mod @@ -1,78 +1,78 @@ -// This file replicates the estimation of the CIA model from -// Frank Schorfheide (2000) "Loss function-based evaluation of DSGE models" -// Journal of Applied Econometrics, 15, 645-670. -// the data are the ones provided on Schorfheide's web site with the programs. -// http://www.econ.upenn.edu/~schorf/programs/dsgesel.ZIP -// You need to have fsdat.m in the same directory as this file. -// This file replicates: -// -the posterior mode as computed by Frank's Gauss programs -// -the parameter mean posterior estimates reported in the paper -// -the model probability (harmonic mean) reported in the paper -// This file was tested with dyn_mat_test_0218.zip -// the smooth shocks are probably stil buggy -// -// The equations are taken from J. Nason and T. Cogley (1994) -// "Testing the implications of long-run neutrality for monetary business -// cycle models" Journal of Applied Econometrics, 9, S37-S70. -// Note that there is an initial minus sign missing in equation (A1), p. S63. -// -// Michel Juillard, February 2004 - -var m P c e W R k d n l gy_obs gp_obs y dA; -varexo e_a e_m; - -parameters alp bet gam mst rho psi del; - -alp = 0.33; -bet = 0.99; -gam = 0.003; -mst = 1.011; -rho = 0.7; -psi = 0.787; -del = 0.02; - -model; -dA = exp(gam+e_a); -log(m) = (1-rho)*log(mst) + rho*log(0.5*m(-1)+0.25*m(-2)+0.13*m(-3)+0.06*m(-4)+0.03*m(-5)+0.015*m(-6)+0.007*m(-7)+0.004*m(-8)+0.003*m(-9)+0.001*m(-10))+e_m; --P/(((1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9)))*m/9)+bet*((1.3*P(+1)+P(+5)+0.7*P(+9))/3)*(alp*exp(-alp*(gam+log((1.3*e(+1)+e(+5)+0.7*e(+9))/3)))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; -W = l/n; --(psi/(1-psi))*(c*P/(1-n))+l/n = 0; -R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; -1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l* (1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9))/9) = 0; -c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a)*4)*k(-4); -P*c = m; -m-1+d = l; -e = exp(e_a); -y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); -gy_obs = dA*y/y(-1); -gp_obs = (P/P(-1))*m(-1)/dA; -end; - -initval; -k = 6; -m = mst; -P = 2.25; -c = 0.45; -e = 1; -W = 4; -R = 1.02; -d = 0.85; -n = 0.19; -l = 0.86; -y = 0.6; -gy_obs = exp(gam); -gp_obs = exp(-gam); -dA = exp(gam); -end; - -shocks; -var e_a; stderr 0.014; -var e_m; stderr 0.005; -end; - -steady; - -check; - -stoch_simul(order=1,irf=0); - +// This file replicates the estimation of the CIA model from +// Frank Schorfheide (2000) "Loss function-based evaluation of DSGE models" +// Journal of Applied Econometrics, 15, 645-670. +// the data are the ones provided on Schorfheide's web site with the programs. +// http://www.econ.upenn.edu/~schorf/programs/dsgesel.ZIP +// You need to have fsdat.m in the same directory as this file. +// This file replicates: +// -the posterior mode as computed by Frank's Gauss programs +// -the parameter mean posterior estimates reported in the paper +// -the model probability (harmonic mean) reported in the paper +// This file was tested with dyn_mat_test_0218.zip +// the smooth shocks are probably stil buggy +// +// The equations are taken from J. Nason and T. Cogley (1994) +// "Testing the implications of long-run neutrality for monetary business +// cycle models" Journal of Applied Econometrics, 9, S37-S70. +// Note that there is an initial minus sign missing in equation (A1), p. S63. +// +// Michel Juillard, February 2004 + +var m P c e W R k d n l gy_obs gp_obs y dA; +varexo e_a e_m; + +parameters alp bet gam mst rho psi del; + +alp = 0.33; +bet = 0.99; +gam = 0.003; +mst = 1.011; +rho = 0.7; +psi = 0.787; +del = 0.02; + +model; +dA = exp(gam+e_a); +log(m) = (1-rho)*log(mst) + rho*log(0.5*m(-1)+0.25*m(-2)+0.13*m(-3)+0.06*m(-4)+0.03*m(-5)+0.015*m(-6)+0.007*m(-7)+0.004*m(-8)+0.003*m(-9)+0.001*m(-10))+e_m; +-P/(((1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9)))*m/9)+bet*((1.3*P(+1)+P(+5)+0.7*P(+9))/3)*(alp*exp(-alp*(gam+log((1.3*e(+1)+e(+5)+0.7*e(+9))/3)))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; +W = l/n; +-(psi/(1-psi))*(c*P/(1-n))+l/n = 0; +R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; +1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l* (1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9))/9) = 0; +c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a)*4)*k(-4); +P*c = m; +m-1+d = l; +e = exp(e_a); +y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); +gy_obs = dA*y/y(-1); +gp_obs = (P/P(-1))*m(-1)/dA; +end; + +initval; +k = 6; +m = mst; +P = 2.25; +c = 0.45; +e = 1; +W = 4; +R = 1.02; +d = 0.85; +n = 0.19; +l = 0.86; +y = 0.6; +gy_obs = exp(gam); +gp_obs = exp(-gam); +dA = exp(gam); +end; + +shocks; +var e_a; stderr 0.014; +var e_m; stderr 0.005; +end; + +steady; + +check; + +stoch_simul(order=1,irf=0); + diff --git a/tests/AIM/fs2000x10L9_L_AIM.mod b/tests/AIM/fs2000x10L9_L_AIM.mod index ab573ccaf..e651ff93d 100644 --- a/tests/AIM/fs2000x10L9_L_AIM.mod +++ b/tests/AIM/fs2000x10L9_L_AIM.mod @@ -1,86 +1,86 @@ -// This file replicates the estimation of the CIA model from -// Frank Schorfheide (2000) "Loss function-based evaluation of DSGE models" -// Journal of Applied Econometrics, 15, 645-670. -// the data are the ones provided on Schorfheide's web site with the programs. -// http://www.econ.upenn.edu/~schorf/programs/dsgesel.ZIP -// You need to have fsdat.m in the same directory as this file. -// This file replicates: -// -the posterior mode as computed by Frank's Gauss programs -// -the parameter mean posterior estimates reported in the paper -// -the model probability (harmonic mean) reported in the paper -// This file was tested with dyn_mat_test_0218.zip -// the smooth shocks are probably stil buggy -// -// The equations are taken from J. Nason and T. Cogley (1994) -// "Testing the implications of long-run neutrality for monetary business -// cycle models" Journal of Applied Econometrics, 9, S37-S70. -// Note that there is an initial minus sign missing in equation (A1), p. S63. -// -// Michel Juillard, February 2004 - -var m P c e W R k d n l gy_obs gp_obs y dA; -varexo e_a e_m; - -parameters alp bet gam mst rho psi del; - -alp = 0.33; -bet = 0.99; -gam = 0.003; -mst = 1.011; -rho = 0.7; -psi = 0.787; -del = 0.02; - -model; -dA = exp(gam+e_a); -log(m) = (1-rho)*log(mst) + rho*log(0.5*m(-1)+0.25*m(-2)+0.13*m(-3)+0.06*m(-4)+0.03*m(-5)+0.015*m(-6)+0.007*m(-7)+0.004*m(-8)+0.003*m(-9)+0.001*m(-10))+e_m; --P/(((1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9)))*m/9)+bet*((1.3*P(+1)+P(+5)+0.7*P(+9))/3)*(alp*exp(-alp*(gam+log((1.3*e(+1)+e(+5)+0.7*e(+9))/3)))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; -W = l/n; --(psi/(1-psi))*(c*P/(1-n))+l/n = 0; -R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; -1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l* (1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9))/9) = 0; -c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a)*4)*k(-4); -P*c = m; -m-1+d = l; -e = exp(e_a); -y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); -gy_obs = dA*y/y(-1); -gp_obs = (P/P(-1))*m(-1)/dA; -end; - -initval; -k = 6; -m = mst; -P = 2.25; -c = 0.45; -e = 1; -W = 4; -R = 1.02; -d = 0.85; -n = 0.19; -l = 0.86; -y = 0.6; -gy_obs = exp(gam); -gp_obs = exp(-gam); -dA = exp(gam); -end; - -shocks; -var e_a; stderr 0.014; -var e_m; stderr 0.005; -end; - -steady; - -check; - -stoch_simul(aim_solver, order=1,irf=0); - -benchmark = load('fs2000x10L9_L_results'); -threshold = 1e-8; - -if max(max(abs(benchmark.oo_.dr.ghx-oo_.dr.ghx) > threshold)); - error('error in ghx'); -elseif max(max(abs(benchmark.oo_.dr.ghu-oo_.dr.ghu) > threshold)); - error('error in ghy'); -end; +// This file replicates the estimation of the CIA model from +// Frank Schorfheide (2000) "Loss function-based evaluation of DSGE models" +// Journal of Applied Econometrics, 15, 645-670. +// the data are the ones provided on Schorfheide's web site with the programs. +// http://www.econ.upenn.edu/~schorf/programs/dsgesel.ZIP +// You need to have fsdat.m in the same directory as this file. +// This file replicates: +// -the posterior mode as computed by Frank's Gauss programs +// -the parameter mean posterior estimates reported in the paper +// -the model probability (harmonic mean) reported in the paper +// This file was tested with dyn_mat_test_0218.zip +// the smooth shocks are probably stil buggy +// +// The equations are taken from J. Nason and T. Cogley (1994) +// "Testing the implications of long-run neutrality for monetary business +// cycle models" Journal of Applied Econometrics, 9, S37-S70. +// Note that there is an initial minus sign missing in equation (A1), p. S63. +// +// Michel Juillard, February 2004 + +var m P c e W R k d n l gy_obs gp_obs y dA; +varexo e_a e_m; + +parameters alp bet gam mst rho psi del; + +alp = 0.33; +bet = 0.99; +gam = 0.003; +mst = 1.011; +rho = 0.7; +psi = 0.787; +del = 0.02; + +model; +dA = exp(gam+e_a); +log(m) = (1-rho)*log(mst) + rho*log(0.5*m(-1)+0.25*m(-2)+0.13*m(-3)+0.06*m(-4)+0.03*m(-5)+0.015*m(-6)+0.007*m(-7)+0.004*m(-8)+0.003*m(-9)+0.001*m(-10))+e_m; +-P/(((1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9)))*m/9)+bet*((1.3*P(+1)+P(+5)+0.7*P(+9))/3)*(alp*exp(-alp*(gam+log((1.3*e(+1)+e(+5)+0.7*e(+9))/3)))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; +W = l/n; +-(psi/(1-psi))*(c*P/(1-n))+l/n = 0; +R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; +1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l* (1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9))/9) = 0; +c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a)*4)*k(-4); +P*c = m; +m-1+d = l; +e = exp(e_a); +y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); +gy_obs = dA*y/y(-1); +gp_obs = (P/P(-1))*m(-1)/dA; +end; + +initval; +k = 6; +m = mst; +P = 2.25; +c = 0.45; +e = 1; +W = 4; +R = 1.02; +d = 0.85; +n = 0.19; +l = 0.86; +y = 0.6; +gy_obs = exp(gam); +gp_obs = exp(-gam); +dA = exp(gam); +end; + +shocks; +var e_a; stderr 0.014; +var e_m; stderr 0.005; +end; + +steady; + +check; + +stoch_simul(aim_solver, order=1,irf=0); + +benchmark = load('fs2000x10L9_L_results'); +threshold = 1e-8; + +if max(max(abs(benchmark.oo_.dr.ghx-oo_.dr.ghx) > threshold)); + error('error in ghx'); +elseif max(max(abs(benchmark.oo_.dr.ghu-oo_.dr.ghu) > threshold)); + error('error in ghy'); +end; diff --git a/tests/AIM/fs2000x10_L9_L.mod b/tests/AIM/fs2000x10_L9_L.mod index 88c1ed67c..89316c101 100644 --- a/tests/AIM/fs2000x10_L9_L.mod +++ b/tests/AIM/fs2000x10_L9_L.mod @@ -1,59 +1,59 @@ - -//Model with up to 10 lags and leads up to 9 - but not all, with some missing - -var m P c e W R k d n l gy_obs gp_obs y dA; -varexo e_a e_m; - -parameters alp bet gam mst rho psi del; - -alp = 0.33; -bet = 0.99; -gam = 0.003; -mst = 1.011; -rho = 0.7; -psi = 0.787; -del = 0.02; - -model; -dA = exp(gam+e_a); % missing 0.06*m(-4) and +0.25*m(-2) -log(m) = (1-rho)*log(mst) + rho*log(0.75*m(-1)+0.13*m(-3)+0.09*m(-5)+0.015*m(-6)+0.007*m(-7)+0.004*m(-8)+0.003*m(-9)+0.001*m(-10))+e_m; --P/(((1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9)))*m/9)+bet*((1.3*P(+1)+P(+5)+0.7*P(+9))/3)*(alp*exp(-alp*(gam+log((1.3*e(+1)+e(+5)+0.7*e(+9))/3)))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; -W = l/n; --(psi/(1-psi))*(c*P/(1-n))+l/n = 0; -R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; -1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l* (1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9))/9) = 0; -c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a)*4)*k(-4); -P*c = m; -m-1+d = l; -e = exp(e_a); -y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); -gy_obs = dA*y/y(-1); -gp_obs = (P/P(-1))*m(-1)/dA; -end; - -initval; -k = 6; -m = mst; -P = 2.25; -c = 0.45; -e = 1; -W = 4; -R = 1.02; -d = 0.85; -n = 0.19; -l = 0.86; -y = 0.6; -gy_obs = exp(gam); -gp_obs = exp(-gam); -dA = exp(gam); -end; - -shocks; -var e_a; stderr 0.014; -var e_m; stderr 0.005; -end; - -steady; - -stoch_simul(order=1,irf=0); - + +//Model with up to 10 lags and leads up to 9 - but not all, with some missing + +var m P c e W R k d n l gy_obs gp_obs y dA; +varexo e_a e_m; + +parameters alp bet gam mst rho psi del; + +alp = 0.33; +bet = 0.99; +gam = 0.003; +mst = 1.011; +rho = 0.7; +psi = 0.787; +del = 0.02; + +model; +dA = exp(gam+e_a); % missing 0.06*m(-4) and +0.25*m(-2) +log(m) = (1-rho)*log(mst) + rho*log(0.75*m(-1)+0.13*m(-3)+0.09*m(-5)+0.015*m(-6)+0.007*m(-7)+0.004*m(-8)+0.003*m(-9)+0.001*m(-10))+e_m; +-P/(((1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9)))*m/9)+bet*((1.3*P(+1)+P(+5)+0.7*P(+9))/3)*(alp*exp(-alp*(gam+log((1.3*e(+1)+e(+5)+0.7*e(+9))/3)))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; +W = l/n; +-(psi/(1-psi))*(c*P/(1-n))+l/n = 0; +R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; +1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l* (1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9))/9) = 0; +c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a)*4)*k(-4); +P*c = m; +m-1+d = l; +e = exp(e_a); +y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); +gy_obs = dA*y/y(-1); +gp_obs = (P/P(-1))*m(-1)/dA; +end; + +initval; +k = 6; +m = mst; +P = 2.25; +c = 0.45; +e = 1; +W = 4; +R = 1.02; +d = 0.85; +n = 0.19; +l = 0.86; +y = 0.6; +gy_obs = exp(gam); +gp_obs = exp(-gam); +dA = exp(gam); +end; + +shocks; +var e_a; stderr 0.014; +var e_m; stderr 0.005; +end; + +steady; + +stoch_simul(order=1,irf=0); + diff --git a/tests/AIM/fs2000x10_L9_L_AIM.mod b/tests/AIM/fs2000x10_L9_L_AIM.mod index ab90b2669..fa80630c0 100644 --- a/tests/AIM/fs2000x10_L9_L_AIM.mod +++ b/tests/AIM/fs2000x10_L9_L_AIM.mod @@ -1,67 +1,67 @@ - -//Model with up to 10 lags and leads up to 9 - but not all, with some missing - -var m P c e W R k d n l gy_obs gp_obs y dA; -varexo e_a e_m; - -parameters alp bet gam mst rho psi del; - -alp = 0.33; -bet = 0.99; -gam = 0.003; -mst = 1.011; -rho = 0.7; -psi = 0.787; -del = 0.02; - -model; -dA = exp(gam+e_a); % missing 0.06*m(-4) and +0.25*m(-2) -log(m) = (1-rho)*log(mst) + rho*log(0.75*m(-1)+0.13*m(-3)+0.09*m(-5)+0.015*m(-6)+0.007*m(-7)+0.004*m(-8)+0.003*m(-9)+0.001*m(-10))+e_m; --P/(((1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9)))*m/9)+bet*((1.3*P(+1)+P(+5)+0.7*P(+9))/3)*(alp*exp(-alp*(gam+log((1.3*e(+1)+e(+5)+0.7*e(+9))/3)))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; -W = l/n; --(psi/(1-psi))*(c*P/(1-n))+l/n = 0; -R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; -1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l* (1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9))/9) = 0; -c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a)*4)*k(-4); -P*c = m; -m-1+d = l; -e = exp(e_a); -y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); -gy_obs = dA*y/y(-1); -gp_obs = (P/P(-1))*m(-1)/dA; -end; - -initval; -k = 6; -m = mst; -P = 2.25; -c = 0.45; -e = 1; -W = 4; -R = 1.02; -d = 0.85; -n = 0.19; -l = 0.86; -y = 0.6; -gy_obs = exp(gam); -gp_obs = exp(-gam); -dA = exp(gam); -end; - -shocks; -var e_a; stderr 0.014; -var e_m; stderr 0.005; -end; - -steady; - -stoch_simul(aim_solver, order=1,irf=0); - -benchmark = load('fs2000x10_L9_L_results'); -threshold = 1e-8; - -if max(max(abs(benchmark.oo_.dr.ghx-oo_.dr.ghx) > threshold)); - error('error in ghx'); -elseif max(max(abs(benchmark.oo_.dr.ghu-oo_.dr.ghu) > threshold)); - error('error in ghy'); -end; + +//Model with up to 10 lags and leads up to 9 - but not all, with some missing + +var m P c e W R k d n l gy_obs gp_obs y dA; +varexo e_a e_m; + +parameters alp bet gam mst rho psi del; + +alp = 0.33; +bet = 0.99; +gam = 0.003; +mst = 1.011; +rho = 0.7; +psi = 0.787; +del = 0.02; + +model; +dA = exp(gam+e_a); % missing 0.06*m(-4) and +0.25*m(-2) +log(m) = (1-rho)*log(mst) + rho*log(0.75*m(-1)+0.13*m(-3)+0.09*m(-5)+0.015*m(-6)+0.007*m(-7)+0.004*m(-8)+0.003*m(-9)+0.001*m(-10))+e_m; +-P/(((1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9)))*m/9)+bet*((1.3*P(+1)+P(+5)+0.7*P(+9))/3)*(alp*exp(-alp*(gam+log((1.3*e(+1)+e(+5)+0.7*e(+9))/3)))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; +W = l/n; +-(psi/(1-psi))*(c*P/(1-n))+l/n = 0; +R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; +1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l* (1.3*c(+1)+c(+5)+0.7*c(+9))*(1.3*P(+1)+P(+5)+0.7*P(+9))/9) = 0; +c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a)*4)*k(-4); +P*c = m; +m-1+d = l; +e = exp(e_a); +y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); +gy_obs = dA*y/y(-1); +gp_obs = (P/P(-1))*m(-1)/dA; +end; + +initval; +k = 6; +m = mst; +P = 2.25; +c = 0.45; +e = 1; +W = 4; +R = 1.02; +d = 0.85; +n = 0.19; +l = 0.86; +y = 0.6; +gy_obs = exp(gam); +gp_obs = exp(-gam); +dA = exp(gam); +end; + +shocks; +var e_a; stderr 0.014; +var e_m; stderr 0.005; +end; + +steady; + +stoch_simul(aim_solver, order=1,irf=0); + +benchmark = load('fs2000x10_L9_L_results'); +threshold = 1e-8; + +if max(max(abs(benchmark.oo_.dr.ghx-oo_.dr.ghx) > threshold)); + error('error in ghx'); +elseif max(max(abs(benchmark.oo_.dr.ghu-oo_.dr.ghu) > threshold)); + error('error in ghy'); +end; diff --git a/tests/AIM/ls2003_2L0L.mod b/tests/AIM/ls2003_2L0L.mod index cd94e7d0f..bfc404c43 100644 --- a/tests/AIM/ls2003_2L0L.mod +++ b/tests/AIM/ls2003_2L0L.mod @@ -1,47 +1,47 @@ -var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; -varexo e_R e_q e_ys e_pies e_A; - -parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; - -psi1 = 1.54; -psi2 = 0.25; -psi3 = 0.25; -rho_R = 0.5; -alpha = 0.3; -rr = 2.51; -k = 0.5; -tau = 0.5; -rho_q = 0.4; -rho_A = 0.2; -rho_ys = 0.9; -rho_pies = 0.7; - -// GP extended to see effect of 2 lags and 2 leads -model(linear); -//y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); -y = 0.3*y +0.3*y(-1) +0.3*y(-2)-(tau +alpha*(2-alpha)*(1-tau))*(R-pie)-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq + alpha*(2-alpha)*((1-tau)/tau)*(y_s(11)-y_s)-A; -//y = 0.3*y(+2)+0.3*y(+1)+0.3*y(-2) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); -//pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; -pie = exp(-rr/400)*pie(-1)+alpha*exp(-rr/400)*dq-alpha*dq(-1)+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; -pie = de+(1-alpha)*dq+pie_s; -R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; -dq = rho_q*dq(-1)+e_q; -y_s = rho_ys*y_s(-1)+e_ys; -//pie_s = rho_pies*pie_s(-1)+e_pies; -pie_s = rho_pies*pie_s(-1)+(1-rho_pies)*pie_s(-2)+e_pies; -A = rho_A*A(-1)+e_A; -y_obs = y-y(-1)+A; -pie_obs = 4*pie; -R_obs = 4*R; -end; - -shocks; -var e_R = 1.25^2; -var e_q = 2.5^2; -var e_A = 1.89; -var e_ys = 1.89; -var e_pies = 1.89; -end; - -stoch_simul(order=1,irf=0); - +var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; +varexo e_R e_q e_ys e_pies e_A; + +parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; + +psi1 = 1.54; +psi2 = 0.25; +psi3 = 0.25; +rho_R = 0.5; +alpha = 0.3; +rr = 2.51; +k = 0.5; +tau = 0.5; +rho_q = 0.4; +rho_A = 0.2; +rho_ys = 0.9; +rho_pies = 0.7; + +// GP extended to see effect of 2 lags and 2 leads +model(linear); +//y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); +y = 0.3*y +0.3*y(-1) +0.3*y(-2)-(tau +alpha*(2-alpha)*(1-tau))*(R-pie)-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq + alpha*(2-alpha)*((1-tau)/tau)*(y_s(11)-y_s)-A; +//y = 0.3*y(+2)+0.3*y(+1)+0.3*y(-2) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); +//pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; +pie = exp(-rr/400)*pie(-1)+alpha*exp(-rr/400)*dq-alpha*dq(-1)+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; +pie = de+(1-alpha)*dq+pie_s; +R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; +dq = rho_q*dq(-1)+e_q; +y_s = rho_ys*y_s(-1)+e_ys; +//pie_s = rho_pies*pie_s(-1)+e_pies; +pie_s = rho_pies*pie_s(-1)+(1-rho_pies)*pie_s(-2)+e_pies; +A = rho_A*A(-1)+e_A; +y_obs = y-y(-1)+A; +pie_obs = 4*pie; +R_obs = 4*R; +end; + +shocks; +var e_R = 1.25^2; +var e_q = 2.5^2; +var e_A = 1.89; +var e_ys = 1.89; +var e_pies = 1.89; +end; + +stoch_simul(order=1,irf=0); + diff --git a/tests/AIM/ls2003_2L0L_AIM.mod b/tests/AIM/ls2003_2L0L_AIM.mod index 13b0ad130..8ff90c3e5 100644 --- a/tests/AIM/ls2003_2L0L_AIM.mod +++ b/tests/AIM/ls2003_2L0L_AIM.mod @@ -1,55 +1,55 @@ -var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; -varexo e_R e_q e_ys e_pies e_A; - -parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; - -psi1 = 1.54; -psi2 = 0.25; -psi3 = 0.25; -rho_R = 0.5; -alpha = 0.3; -rr = 2.51; -k = 0.5; -tau = 0.5; -rho_q = 0.4; -rho_A = 0.2; -rho_ys = 0.9; -rho_pies = 0.7; - -// GP extended to see effect of 2 lags and 2 leads -model(linear); -//y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); -y = 0.3*y +0.3*y(-1) +0.3*y(-2)-(tau +alpha*(2-alpha)*(1-tau))*(R-pie)-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq + alpha*(2-alpha)*((1-tau)/tau)*(y_s(11)-y_s)-A; -//y = 0.3*y(+2)+0.3*y(+1)+0.3*y(-2) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); -//pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; -pie = exp(-rr/400)*pie(-1)+alpha*exp(-rr/400)*dq-alpha*dq(-1)+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; -pie = de+(1-alpha)*dq+pie_s; -R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; -dq = rho_q*dq(-1)+e_q; -y_s = rho_ys*y_s(-1)+e_ys; -//pie_s = rho_pies*pie_s(-1)+e_pies; -pie_s = rho_pies*pie_s(-1)+(1-rho_pies)*pie_s(-2)+e_pies; -A = rho_A*A(-1)+e_A; -y_obs = y-y(-1)+A; -pie_obs = 4*pie; -R_obs = 4*R; -end; - -shocks; -var e_R = 1.25^2; -var e_q = 2.5^2; -var e_A = 1.89; -var e_ys = 1.89; -var e_pies = 1.89; -end; - -stoch_simul(aim_solver, order=1,irf=0); - -benchmark = load('ls2003_2L0L_results'); -threshold = 1e-8; - -if max(max(abs(benchmark.oo_.dr.ghx-oo_.dr.ghx) > threshold)); - error('error in ghx'); -elseif max(max(abs(benchmark.oo_.dr.ghu-oo_.dr.ghu) > threshold)); - error('error in ghy'); -end; +var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; +varexo e_R e_q e_ys e_pies e_A; + +parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; + +psi1 = 1.54; +psi2 = 0.25; +psi3 = 0.25; +rho_R = 0.5; +alpha = 0.3; +rr = 2.51; +k = 0.5; +tau = 0.5; +rho_q = 0.4; +rho_A = 0.2; +rho_ys = 0.9; +rho_pies = 0.7; + +// GP extended to see effect of 2 lags and 2 leads +model(linear); +//y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); +y = 0.3*y +0.3*y(-1) +0.3*y(-2)-(tau +alpha*(2-alpha)*(1-tau))*(R-pie)-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq + alpha*(2-alpha)*((1-tau)/tau)*(y_s(11)-y_s)-A; +//y = 0.3*y(+2)+0.3*y(+1)+0.3*y(-2) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); +//pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; +pie = exp(-rr/400)*pie(-1)+alpha*exp(-rr/400)*dq-alpha*dq(-1)+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; +pie = de+(1-alpha)*dq+pie_s; +R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; +dq = rho_q*dq(-1)+e_q; +y_s = rho_ys*y_s(-1)+e_ys; +//pie_s = rho_pies*pie_s(-1)+e_pies; +pie_s = rho_pies*pie_s(-1)+(1-rho_pies)*pie_s(-2)+e_pies; +A = rho_A*A(-1)+e_A; +y_obs = y-y(-1)+A; +pie_obs = 4*pie; +R_obs = 4*R; +end; + +shocks; +var e_R = 1.25^2; +var e_q = 2.5^2; +var e_A = 1.89; +var e_ys = 1.89; +var e_pies = 1.89; +end; + +stoch_simul(aim_solver, order=1,irf=0); + +benchmark = load('ls2003_2L0L_results'); +threshold = 1e-8; + +if max(max(abs(benchmark.oo_.dr.ghx-oo_.dr.ghx) > threshold)); + error('error in ghx'); +elseif max(max(abs(benchmark.oo_.dr.ghu-oo_.dr.ghu) > threshold)); + error('error in ghy'); +end; diff --git a/tests/AIM/ls2003_2L2L.mod b/tests/AIM/ls2003_2L2L.mod index 1ef2d3891..50a1f9fe1 100644 --- a/tests/AIM/ls2003_2L2L.mod +++ b/tests/AIM/ls2003_2L2L.mod @@ -1,45 +1,45 @@ -var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; -varexo e_R e_q e_ys e_pies e_A; - -parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; - -psi1 = 1.54; -psi2 = 0.25; -psi3 = 0.25; -rho_R = 0.5; -alpha = 0.3; -rr = 2.51; -k = 0.5; -tau = 0.5; -rho_q = 0.4; -rho_A = 0.2; -rho_ys = 0.9; -rho_pies = 0.7; - -// GP extended to see effect of 2 lags and 2 leads -model(linear); -//y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); -y = 0.3*y(+2)+0.3*y(+1)+0.3*y(-2) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); -pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; -pie = de+(1-alpha)*dq+pie_s; -R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; -dq = rho_q*dq(-1)+e_q; -y_s = rho_ys*y_s(-1)+e_ys; -//pie_s = rho_pies*pie_s(-1)+e_pies; -pie_s = rho_pies*pie_s(-1)+(1-rho_pies)*pie_s(-2)+e_pies; -A = rho_A*A(-1)+e_A; -y_obs = y-y(-1)+A; -pie_obs = 4*pie; -R_obs = 4*R; -end; - -shocks; -var e_R = 1.25^2; -var e_q = 2.5^2; -var e_A = 1.89; -var e_ys = 1.89; -var e_pies = 1.89; -end; - -stoch_simul(order=1,irf=0); - +var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; +varexo e_R e_q e_ys e_pies e_A; + +parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; + +psi1 = 1.54; +psi2 = 0.25; +psi3 = 0.25; +rho_R = 0.5; +alpha = 0.3; +rr = 2.51; +k = 0.5; +tau = 0.5; +rho_q = 0.4; +rho_A = 0.2; +rho_ys = 0.9; +rho_pies = 0.7; + +// GP extended to see effect of 2 lags and 2 leads +model(linear); +//y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); +y = 0.3*y(+2)+0.3*y(+1)+0.3*y(-2) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); +pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; +pie = de+(1-alpha)*dq+pie_s; +R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; +dq = rho_q*dq(-1)+e_q; +y_s = rho_ys*y_s(-1)+e_ys; +//pie_s = rho_pies*pie_s(-1)+e_pies; +pie_s = rho_pies*pie_s(-1)+(1-rho_pies)*pie_s(-2)+e_pies; +A = rho_A*A(-1)+e_A; +y_obs = y-y(-1)+A; +pie_obs = 4*pie; +R_obs = 4*R; +end; + +shocks; +var e_R = 1.25^2; +var e_q = 2.5^2; +var e_A = 1.89; +var e_ys = 1.89; +var e_pies = 1.89; +end; + +stoch_simul(order=1,irf=0); + diff --git a/tests/AIM/ls2003_2L2L_AIM.mod b/tests/AIM/ls2003_2L2L_AIM.mod index 158ed5d14..11f60720d 100644 --- a/tests/AIM/ls2003_2L2L_AIM.mod +++ b/tests/AIM/ls2003_2L2L_AIM.mod @@ -1,54 +1,54 @@ -var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; -varexo e_R e_q e_ys e_pies e_A; - -parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; - -psi1 = 1.54; -psi2 = 0.25; -psi3 = 0.25; -rho_R = 0.5; -alpha = 0.3; -rr = 2.51; -k = 0.5; -tau = 0.5; -rho_q = 0.4; -rho_A = 0.2; -rho_ys = 0.9; -rho_pies = 0.7; - -// GP extended to see effect of 2 lags and 2 leads -model(linear); -//y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); -y = 0.3*y(+2)+0.3*y(+1)+0.3*y(-2) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); -pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; -pie = de+(1-alpha)*dq+pie_s; -R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; -dq = rho_q*dq(-1)+e_q; -y_s = rho_ys*y_s(-1)+e_ys; -//pie_s = rho_pies*pie_s(-1)+e_pies; -pie_s = rho_pies*pie_s(-1)+(1-rho_pies)*pie_s(-2)+e_pies; -A = rho_A*A(-1)+e_A; -y_obs = y-y(-1)+A; -pie_obs = 4*pie; -R_obs = 4*R; -end; - -shocks; -var e_R = 1.25^2; -var e_q = 2.5^2; -var e_A = 1.89; -var e_ys = 1.89; -var e_pies = 1.89; -end; - -stoch_simul(aim_solver, order=1,irf=0); - -benchmark = load('ls2003_2L2L_results'); -threshold = 1e-8; - -if max(max(abs(benchmark.oo_.dr.ghx-oo_.dr.ghx) > threshold)); - error('error in ghx'); -elseif max(max(abs(benchmark.oo_.dr.ghu-oo_.dr.ghu) > threshold)); - error('error in ghy'); -end; - +var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; +varexo e_R e_q e_ys e_pies e_A; + +parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; + +psi1 = 1.54; +psi2 = 0.25; +psi3 = 0.25; +rho_R = 0.5; +alpha = 0.3; +rr = 2.51; +k = 0.5; +tau = 0.5; +rho_q = 0.4; +rho_A = 0.2; +rho_ys = 0.9; +rho_pies = 0.7; + +// GP extended to see effect of 2 lags and 2 leads +model(linear); +//y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); +y = 0.3*y(+2)+0.3*y(+1)+0.3*y(-2) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); +pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; +pie = de+(1-alpha)*dq+pie_s; +R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; +dq = rho_q*dq(-1)+e_q; +y_s = rho_ys*y_s(-1)+e_ys; +//pie_s = rho_pies*pie_s(-1)+e_pies; +pie_s = rho_pies*pie_s(-1)+(1-rho_pies)*pie_s(-2)+e_pies; +A = rho_A*A(-1)+e_A; +y_obs = y-y(-1)+A; +pie_obs = 4*pie; +R_obs = 4*R; +end; + +shocks; +var e_R = 1.25^2; +var e_q = 2.5^2; +var e_A = 1.89; +var e_ys = 1.89; +var e_pies = 1.89; +end; + +stoch_simul(aim_solver, order=1,irf=0); + +benchmark = load('ls2003_2L2L_results'); +threshold = 1e-8; + +if max(max(abs(benchmark.oo_.dr.ghx-oo_.dr.ghx) > threshold)); + error('error in ghx'); +elseif max(max(abs(benchmark.oo_.dr.ghu-oo_.dr.ghu) > threshold)); + error('error in ghy'); +end; + diff --git a/tests/arima/mod1.mod b/tests/arima/mod1.mod index 9104e67a1..fa9475b03 100644 --- a/tests/arima/mod1.mod +++ b/tests/arima/mod1.mod @@ -1,23 +1,23 @@ -var dx dy x y; -varexo e_x e_y; - -parameters rho_x rho_y; - -rho_x = 0.5; -rho_y = -0.3; - -model; -dx = rho_x*dx(-1)+e_x; -dy = rho_y*dy(-1)+e_y; -x = x(-1)+dx; -y = y(-1)+dy; -end; - -shocks; -var e_x; stderr 0.01; -var e_y; stderr 0.01; -end; - -stoch_simul(order=1,periods=1000,irf=0,nomoments); - +var dx dy x y; +varexo e_x e_y; + +parameters rho_x rho_y; + +rho_x = 0.5; +rho_y = -0.3; + +model; +dx = rho_x*dx(-1)+e_x; +dy = rho_y*dy(-1)+e_y; +x = x(-1)+dx; +y = y(-1)+dy; +end; + +shocks; +var e_x; stderr 0.01; +var e_y; stderr 0.01; +end; + +stoch_simul(order=1,periods=1000,irf=0,nomoments); + datatomfile('data1',[]); \ No newline at end of file diff --git a/tests/arima/mod1a.mod b/tests/arima/mod1a.mod index 9f63405d7..c85910454 100644 --- a/tests/arima/mod1a.mod +++ b/tests/arima/mod1a.mod @@ -1,23 +1,23 @@ -var dx dy; -varexo e_x e_y; - -parameters rho_x rho_y; - -rho_x = 0.5; -rho_y = -0.3; - -model; -dx = rho_x*dx(-1)+e_x; -dy = rho_y*dy(-1)+e_y; -end; - -estimated_params; -rho_x,NORMAL_PDF,0.5,0.1; -rho_y,NORMAL_PDF,-0.3,0.1; -stderr e_x,INV_GAMMA_PDF,0.01,inf; -stderr e_y,INV_GAMMA_PDF,0.01,inf; -end; - -varobs dx dy; -check; +var dx dy; +varexo e_x e_y; + +parameters rho_x rho_y; + +rho_x = 0.5; +rho_y = -0.3; + +model; +dx = rho_x*dx(-1)+e_x; +dy = rho_y*dy(-1)+e_y; +end; + +estimated_params; +rho_x,NORMAL_PDF,0.5,0.1; +rho_y,NORMAL_PDF,-0.3,0.1; +stderr e_x,INV_GAMMA_PDF,0.01,inf; +stderr e_y,INV_GAMMA_PDF,0.01,inf; +end; + +varobs dx dy; +check; estimation(datafile=data1,nobs=1000,mh_replic=2000); \ No newline at end of file diff --git a/tests/arima/mod1b.mod b/tests/arima/mod1b.mod index 73b6e8ff4..955a73b5f 100644 --- a/tests/arima/mod1b.mod +++ b/tests/arima/mod1b.mod @@ -1,25 +1,25 @@ -var dx dy x y; -varexo e_x e_y; - -parameters rho_x rho_y; - -rho_x = 0.5; -rho_y = -0.3; - -model; -dx = rho_x*dx(-1)+e_x; -dy = rho_y*dy(-1)+e_y; -x = x(-1)+dx; -y = y(-1)+dy; -end; - -estimated_params; -rho_x,NORMAL_PDF,0.5,0.1; -rho_y,NORMAL_PDF,-0.3,0.1; -stderr e_x,INV_GAMMA_PDF,0.01,inf; -stderr e_y,INV_GAMMA_PDF,0.01,inf; -end; - -varobs x y; -unit_root_vars x y; +var dx dy x y; +varexo e_x e_y; + +parameters rho_x rho_y; + +rho_x = 0.5; +rho_y = -0.3; + +model; +dx = rho_x*dx(-1)+e_x; +dy = rho_y*dy(-1)+e_y; +x = x(-1)+dx; +y = y(-1)+dy; +end; + +estimated_params; +rho_x,NORMAL_PDF,0.5,0.1; +rho_y,NORMAL_PDF,-0.3,0.1; +stderr e_x,INV_GAMMA_PDF,0.01,inf; +stderr e_y,INV_GAMMA_PDF,0.01,inf; +end; + +varobs x y; +unit_root_vars x y; estimation(datafile=data1,nobs=1000,mh_replic=0); \ No newline at end of file diff --git a/tests/arima/mod1c.mod b/tests/arima/mod1c.mod index a1a48f3ab..ab3e09674 100644 --- a/tests/arima/mod1c.mod +++ b/tests/arima/mod1c.mod @@ -1,27 +1,27 @@ -var dx dy x y; -varexo e_x e_y; - -parameters rho_x rho_y; - -rho_x = 0.5; -rho_y = -0.3; - -model; -dx = rho_x*dx(-1)+e_x; -dy = rho_y*dy(-1)+e_y; -x = x(-1)+dx; -y = y(-1)+dy; -end; - -estimated_params; -rho_x,NORMAL_PDF,0.5,0.1; -rho_y,NORMAL_PDF,-0.3,0.1; -stderr e_x,INV_GAMMA_PDF,0.01,inf; -stderr e_y,INV_GAMMA_PDF,0.01,inf; -stderr x,INV_GAMMA_PDF,0.01,inf; -stderr y,INV_GAMMA_PDF,0.01,inf; -end; - -varobs x y; -unit_root_vars x y; +var dx dy x y; +varexo e_x e_y; + +parameters rho_x rho_y; + +rho_x = 0.5; +rho_y = -0.3; + +model; +dx = rho_x*dx(-1)+e_x; +dy = rho_y*dy(-1)+e_y; +x = x(-1)+dx; +y = y(-1)+dy; +end; + +estimated_params; +rho_x,NORMAL_PDF,0.5,0.1; +rho_y,NORMAL_PDF,-0.3,0.1; +stderr e_x,INV_GAMMA_PDF,0.01,inf; +stderr e_y,INV_GAMMA_PDF,0.01,inf; +stderr x,INV_GAMMA_PDF,0.01,inf; +stderr y,INV_GAMMA_PDF,0.01,inf; +end; + +varobs x y; +unit_root_vars x y; estimation(datafile=data1,nobs=1000,mh_replic=2000,lik_init=2); \ No newline at end of file diff --git a/tests/arima/mod2.mod b/tests/arima/mod2.mod index c88d6422b..6c0a3c77d 100644 --- a/tests/arima/mod2.mod +++ b/tests/arima/mod2.mod @@ -1,26 +1,26 @@ -var dx dy x y; -varexo e_x e_y; - -parameters rho_x rho_y b a1 a2; - -rho_x = 0.5; -rho_y = -0.3; -b = 1; -a1 = -0.1; -a2 = 0.2; - -model; -dx = rho_x*dx(-1)+a1*(x(-1)-b*y(-1))+e_x; -dy = rho_y*dy(-1)+a2*(x(-1)-b*y(-1))+e_y; -x = x(-1)+dx; -y = y(-1)+dy; -end; - -shocks; -var e_x; stderr 0.01; -var e_y; stderr 0.01; -end; - -stoch_simul(order=1,periods=1000,irf=0,nomoments); - +var dx dy x y; +varexo e_x e_y; + +parameters rho_x rho_y b a1 a2; + +rho_x = 0.5; +rho_y = -0.3; +b = 1; +a1 = -0.1; +a2 = 0.2; + +model; +dx = rho_x*dx(-1)+a1*(x(-1)-b*y(-1))+e_x; +dy = rho_y*dy(-1)+a2*(x(-1)-b*y(-1))+e_y; +x = x(-1)+dx; +y = y(-1)+dy; +end; + +shocks; +var e_x; stderr 0.01; +var e_y; stderr 0.01; +end; + +stoch_simul(order=1,periods=1000,irf=0,nomoments); + datatomfile('data2',[]); \ No newline at end of file diff --git a/tests/arima/mod2a.mod b/tests/arima/mod2a.mod index bc9ebc369..a0ceed658 100644 --- a/tests/arima/mod2a.mod +++ b/tests/arima/mod2a.mod @@ -1,33 +1,33 @@ -var dx dy x y; -varexo e_x e_y; - -parameters rho_x rho_y b a1 a2; - -rho_x = 0.5; -rho_y = -0.3; -b = 1; -a1 = -0.1; -a2 = 0.2; - -model; -dx = rho_x*dx(-1)+a1*(x(-1)-b*y(-1))+e_x; -dy = rho_y*dy(-1)+a2*(x(-1)-b*y(-1))+e_y; -x = x(-1)+dx; -y = y(-1)+dy; -end; - -estimated_params; -rho_x,NORMAL_PDF,0.5,0.1; -rho_y,NORMAL_PDF,-0.3,0.1; -b,NORMAL_PDF,1,0.1; -a1,NORMAL_PDF,-0.1,0.1; -a2,NORMAL_PDF,0.2,0.1; - -stderr e_x,INV_GAMMA_PDF,0.01,inf; -stderr e_y,INV_GAMMA_PDF,0.01,inf; -end; - -varobs dx dy; - -unit_root_vars x y; -estimation(datafile=data2,nobs=100,mh_replic=0,lik_init=2); +var dx dy x y; +varexo e_x e_y; + +parameters rho_x rho_y b a1 a2; + +rho_x = 0.5; +rho_y = -0.3; +b = 1; +a1 = -0.1; +a2 = 0.2; + +model; +dx = rho_x*dx(-1)+a1*(x(-1)-b*y(-1))+e_x; +dy = rho_y*dy(-1)+a2*(x(-1)-b*y(-1))+e_y; +x = x(-1)+dx; +y = y(-1)+dy; +end; + +estimated_params; +rho_x,NORMAL_PDF,0.5,0.1; +rho_y,NORMAL_PDF,-0.3,0.1; +b,NORMAL_PDF,1,0.1; +a1,NORMAL_PDF,-0.1,0.1; +a2,NORMAL_PDF,0.2,0.1; + +stderr e_x,INV_GAMMA_PDF,0.01,inf; +stderr e_y,INV_GAMMA_PDF,0.01,inf; +end; + +varobs dx dy; + +unit_root_vars x y; +estimation(datafile=data2,nobs=100,mh_replic=0,lik_init=2); diff --git a/tests/arima/mod2b.mod b/tests/arima/mod2b.mod index d766269ca..1fd7a0ba2 100644 --- a/tests/arima/mod2b.mod +++ b/tests/arima/mod2b.mod @@ -1,33 +1,33 @@ -var dx dy x y; -varexo e_x e_y; - -parameters rho_x rho_y b a1 a2; - -rho_x = 0.5; -rho_y = -0.3; -b = 1; -a1 = -0.1; -a2 = 0.2; - -model; -dx = rho_x*dx(-1)+a1*(x(-1)-b*y(-1))+e_x; -dy = rho_y*dy(-1)+a2*(x(-1)-b*y(-1))+e_y; -x = x(-1)+dx; -y = y(-1)+dy; -end; - -estimated_params; -rho_x,NORMAL_PDF,0.5,0.1; -rho_y,NORMAL_PDF,-0.3,0.1; -b,NORMAL_PDF,1,0.1; -a1,NORMAL_PDF,-0.1,0.1; -a2,NORMAL_PDF,0.2,0.1; - -stderr e_x,INV_GAMMA_PDF,0.01,inf; -stderr e_y,INV_GAMMA_PDF,0.01,inf; -end; - -varobs x y; - -unit_root_vars x y; -estimation(datafile=data2,nobs=100,mh_replic=0,lik_init=2); +var dx dy x y; +varexo e_x e_y; + +parameters rho_x rho_y b a1 a2; + +rho_x = 0.5; +rho_y = -0.3; +b = 1; +a1 = -0.1; +a2 = 0.2; + +model; +dx = rho_x*dx(-1)+a1*(x(-1)-b*y(-1))+e_x; +dy = rho_y*dy(-1)+a2*(x(-1)-b*y(-1))+e_y; +x = x(-1)+dx; +y = y(-1)+dy; +end; + +estimated_params; +rho_x,NORMAL_PDF,0.5,0.1; +rho_y,NORMAL_PDF,-0.3,0.1; +b,NORMAL_PDF,1,0.1; +a1,NORMAL_PDF,-0.1,0.1; +a2,NORMAL_PDF,0.2,0.1; + +stderr e_x,INV_GAMMA_PDF,0.01,inf; +stderr e_y,INV_GAMMA_PDF,0.01,inf; +end; + +varobs x y; + +unit_root_vars x y; +estimation(datafile=data2,nobs=100,mh_replic=0,lik_init=2); diff --git a/tests/arima/mod2c.mod b/tests/arima/mod2c.mod index 8ce2cae8e..1769080e1 100644 --- a/tests/arima/mod2c.mod +++ b/tests/arima/mod2c.mod @@ -1,31 +1,31 @@ -var dx dy coint_err; -varexo e_x e_y; - -parameters rho_x rho_y b a1 a2; - -rho_x = 0.5; -rho_y = -0.3; -b = 1; -a1 = -0.1; -a2 = 0.2; - -model; -dx = rho_x*dx(-1)+a1*coint_err(-1)+e_x; -dy = rho_y*dy(-1)+a2*coint_err(-1)+e_y; -coint_err = dx-b*dy+coint_err(-1); -end; - -estimated_params; -rho_x,NORMAL_PDF,0.5,0.1; -rho_y,NORMAL_PDF,-0.3,0.1; -b,NORMAL_PDF,1,0.1; -a1,NORMAL_PDF,-0.1,0.1; -a2,NORMAL_PDF,0.2,0.1; - -stderr e_x,INV_GAMMA_PDF,0.01,inf; -stderr e_y,INV_GAMMA_PDF,0.01,inf; -end; - -varobs dx dy; - -estimation(datafile=data2,nobs=100,mh_replic=0); +var dx dy coint_err; +varexo e_x e_y; + +parameters rho_x rho_y b a1 a2; + +rho_x = 0.5; +rho_y = -0.3; +b = 1; +a1 = -0.1; +a2 = 0.2; + +model; +dx = rho_x*dx(-1)+a1*coint_err(-1)+e_x; +dy = rho_y*dy(-1)+a2*coint_err(-1)+e_y; +coint_err = dx-b*dy+coint_err(-1); +end; + +estimated_params; +rho_x,NORMAL_PDF,0.5,0.1; +rho_y,NORMAL_PDF,-0.3,0.1; +b,NORMAL_PDF,1,0.1; +a1,NORMAL_PDF,-0.1,0.1; +a2,NORMAL_PDF,0.2,0.1; + +stderr e_x,INV_GAMMA_PDF,0.01,inf; +stderr e_y,INV_GAMMA_PDF,0.01,inf; +end; + +varobs dx dy; + +estimation(datafile=data2,nobs=100,mh_replic=0); diff --git a/tests/arima/mod3a.mod b/tests/arima/mod3a.mod index 0f0da16e3..cfa20775d 100644 --- a/tests/arima/mod3a.mod +++ b/tests/arima/mod3a.mod @@ -1,24 +1,24 @@ -var dx dy; -varexo e_x e_y; - -parameters rho_x rho_y; - -rho_x = 0.5; -rho_y = -0.3; - -model; -dx = rho_x*dx(-1)+e_x; -dy = rho_y*dy(-1)+e_y; -end; - -estimated_params; -rho_x,NORMAL_PDF,0.5,0.1; -rho_y,NORMAL_PDF,-0.3,0.1; -stderr e_x,INV_GAMMA_PDF,0.01,inf; -stderr e_y,INV_GAMMA_PDF,0.01,inf; -end; - -varobs dx dy; -check; -estimation(datafile=data1,nobs=1000,mh_replic=0,load_mh_file); +var dx dy; +varexo e_x e_y; + +parameters rho_x rho_y; + +rho_x = 0.5; +rho_y = -0.3; + +model; +dx = rho_x*dx(-1)+e_x; +dy = rho_y*dy(-1)+e_y; +end; + +estimated_params; +rho_x,NORMAL_PDF,0.5,0.1; +rho_y,NORMAL_PDF,-0.3,0.1; +stderr e_x,INV_GAMMA_PDF,0.01,inf; +stderr e_y,INV_GAMMA_PDF,0.01,inf; +end; + +varobs dx dy; +check; +estimation(datafile=data1,nobs=1000,mh_replic=0,load_mh_file); stab_map_; \ No newline at end of file diff --git a/tests/block_bytecode/fs2000_common.mod b/tests/block_bytecode/fs2000_common.mod index 0d86c7d46..f7ba0b78e 100644 --- a/tests/block_bytecode/fs2000_common.mod +++ b/tests/block_bytecode/fs2000_common.mod @@ -1,91 +1,91 @@ -var m P c e W R k d n l gy_obs gp_obs y dA; -varexo e_a e_m; - -parameters alp bet gam mst rho psi del; - -alp = 0.33; -bet = 0.99; -gam = 0.003; -mst = 1.011; -rho = 0.7; -psi = 0.787; -del = 0.02; - -@#if block_bytecode == 2 -model(block, bytecode); -@#else -@# if block_bytecode == 1 -model(block); -@# else -model; -@# endif -@#endif - -/*0*/ exp(gam+e_a) = dA ; -/*1*/ log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; -/*2*/ -P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; -/*3*/ l/n = W; -/*4*/ -(psi/(1-psi))*(c*P/(1-n))+l/n = 0; -/*5*/ R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; -/*6*/ 1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; -/*7*/ c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); -/*8*/ P*c = m; -/*9*/ m-1+d = l; -/*10*/ e = exp(e_a); -/*11*/ k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)) = y ; -/*12*/ gy_obs = dA*y/y(-1); -/*13*/ gp_obs = (P/P(-1))*m(-1)/dA; -end; - -initval; -k = 6; -m = mst; -P = 2.25; -c = 0.45; -e = 1; -W = 4; -R = 1.02; -d = 0.85; -n = 0.19; -l = 0.86; -y = 0.6; -gy_obs = exp(gam); -gp_obs = exp(-gam); -dA = exp(gam); -e_a=0; -e_m=0; -end; - -shocks; -var e_a; stderr 0.014; -var e_m; stderr 0.005; -end; - -options_.maxit_=10; -steady(solve_algo = @{solve_algo}); - -@#if block_bytecode > 0 -model_info; -@#endif - -shocks; -var e_a; -periods 1; -values 0.16; -end; - -simul(periods=200, stack_solve_algo = @{stack_solve_algo}); - -@#if block_bytecode > 0 -if ~exist('fs2000_simk_results.mat','file'); - error('fs2000_simk must be run first'); -end; - -oo1 = load('fs2000_simk_results','oo_'); - -err = max(max(abs(oo_.endo_simul - oo1.oo_.endo_simul))) -disp(['Max error in simulation: ' num2str(err)]) -if err > 1e-4 - error('Error above the threshold') -end; -@#endif +var m P c e W R k d n l gy_obs gp_obs y dA; +varexo e_a e_m; + +parameters alp bet gam mst rho psi del; + +alp = 0.33; +bet = 0.99; +gam = 0.003; +mst = 1.011; +rho = 0.7; +psi = 0.787; +del = 0.02; + +@#if block_bytecode == 2 +model(block, bytecode); +@#else +@# if block_bytecode == 1 +model(block); +@# else +model; +@# endif +@#endif + +/*0*/ exp(gam+e_a) = dA ; +/*1*/ log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; +/*2*/ -P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; +/*3*/ l/n = W; +/*4*/ -(psi/(1-psi))*(c*P/(1-n))+l/n = 0; +/*5*/ R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; +/*6*/ 1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; +/*7*/ c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); +/*8*/ P*c = m; +/*9*/ m-1+d = l; +/*10*/ e = exp(e_a); +/*11*/ k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)) = y ; +/*12*/ gy_obs = dA*y/y(-1); +/*13*/ gp_obs = (P/P(-1))*m(-1)/dA; +end; + +initval; +k = 6; +m = mst; +P = 2.25; +c = 0.45; +e = 1; +W = 4; +R = 1.02; +d = 0.85; +n = 0.19; +l = 0.86; +y = 0.6; +gy_obs = exp(gam); +gp_obs = exp(-gam); +dA = exp(gam); +e_a=0; +e_m=0; +end; + +shocks; +var e_a; stderr 0.014; +var e_m; stderr 0.005; +end; + +options_.maxit_=10; +steady(solve_algo = @{solve_algo}); + +@#if block_bytecode > 0 +model_info; +@#endif + +shocks; +var e_a; +periods 1; +values 0.16; +end; + +simul(periods=200, stack_solve_algo = @{stack_solve_algo}); + +@#if block_bytecode > 0 +if ~exist('fs2000_simk_results.mat','file'); + error('fs2000_simk must be run first'); +end; + +oo1 = load('fs2000_simk_results','oo_'); + +err = max(max(abs(oo_.endo_simul - oo1.oo_.endo_simul))) +disp(['Max error in simulation: ' num2str(err)]) +if err > 1e-4 + error('Error above the threshold') +end; +@#endif diff --git a/tests/block_bytecode/ireland.mod b/tests/block_bytecode/ireland.mod index 654b451fd..fee8eafe8 100644 --- a/tests/block_bytecode/ireland.mod +++ b/tests/block_bytecode/ireland.mod @@ -1,80 +1,80 @@ -var y a k c i h eoy eoc eoh oy oc oh; -varexo e eeoy eeoc eeoh; - -parameters theta rho eta gam bet delta aa r11 r12 r13 r21 r22 r23 r31 r32 r33 scy shc shy; - -bet = 0.99; -delta = 0.025; -theta = 0.2; -rho = 0.9959; -eta = 1.0051; -gam = 0.0045; -aa = 1.8; -r11 = 0.99; -r12 = 0; -r13 = 0; -r21 = 0; -r22 = 0.99; -r23 = 0; -r31 = 0; -r32 = 0; -r33 = 0.99; -scy = 0.0040; -shy = 0.0015; -shc = 0.0010; - -model(block,cutoff=0); -exp(y) = exp(a)*exp(k(-1))^theta*exp(h)^(1-theta); -a = (1-rho)*aa+rho*a(-1)+e; -exp(y) = exp(c) + exp(i); -eta*exp(k) = (1-delta)*exp(k(-1))+exp(i); -gam*exp(c)*exp(h) = (1-theta)*exp(y); -eta/exp(c) = bet*(1/exp(c(+1)))*(theta*(exp(y(+1))/exp(k))+1-delta); -eoy = r11*eoy(-1) + r12*eoc(-1) + r13*eoh(-1) + eeoy; -eoc = r21*eoy(-1) + r22*eoc(-1) + r23*eoh(-1) + scy*eeoy+eeoc; -eoh = r31*eoy(-1) + r32*eoc(-1) + r33*eoh(-1) + shy*eeoy+shc*eeoc+eeoh; -oy = y + eoy; -oc = c + eoc; -oh = h + eoh; -end; - -initval; -e=0; -eeoy=0; -eeoc=0; -eeoh=0; -y= 7.99331700544506; -a= 1.8; -k= 9.59646163090336; -c= 7.83132048725623; -i= 6.09323152367607; -h= 5.34253084908048; -eoy= 0.0000; -eoc= 0.0000; -eoh= 0; -oy= 7.99331700544506; -oc= 7.83132048725623; -oh= 5.34253084908048; -k=k+0.000001; - -end; - -options_.dynatol=1e-12; -options_.maxit_=5; -options_.slowc=1; -steady(solve_algo=2); - -options_.dynatol=4e-5; - -shocks; -var e; -periods 1; -values 0.02; -end; - -options_.maxit_=20; -model_info; - -simul(periods=2000, stack_solve_algo = 1); -rplot y; -rplot k; +var y a k c i h eoy eoc eoh oy oc oh; +varexo e eeoy eeoc eeoh; + +parameters theta rho eta gam bet delta aa r11 r12 r13 r21 r22 r23 r31 r32 r33 scy shc shy; + +bet = 0.99; +delta = 0.025; +theta = 0.2; +rho = 0.9959; +eta = 1.0051; +gam = 0.0045; +aa = 1.8; +r11 = 0.99; +r12 = 0; +r13 = 0; +r21 = 0; +r22 = 0.99; +r23 = 0; +r31 = 0; +r32 = 0; +r33 = 0.99; +scy = 0.0040; +shy = 0.0015; +shc = 0.0010; + +model(block,cutoff=0); +exp(y) = exp(a)*exp(k(-1))^theta*exp(h)^(1-theta); +a = (1-rho)*aa+rho*a(-1)+e; +exp(y) = exp(c) + exp(i); +eta*exp(k) = (1-delta)*exp(k(-1))+exp(i); +gam*exp(c)*exp(h) = (1-theta)*exp(y); +eta/exp(c) = bet*(1/exp(c(+1)))*(theta*(exp(y(+1))/exp(k))+1-delta); +eoy = r11*eoy(-1) + r12*eoc(-1) + r13*eoh(-1) + eeoy; +eoc = r21*eoy(-1) + r22*eoc(-1) + r23*eoh(-1) + scy*eeoy+eeoc; +eoh = r31*eoy(-1) + r32*eoc(-1) + r33*eoh(-1) + shy*eeoy+shc*eeoc+eeoh; +oy = y + eoy; +oc = c + eoc; +oh = h + eoh; +end; + +initval; +e=0; +eeoy=0; +eeoc=0; +eeoh=0; +y= 7.99331700544506; +a= 1.8; +k= 9.59646163090336; +c= 7.83132048725623; +i= 6.09323152367607; +h= 5.34253084908048; +eoy= 0.0000; +eoc= 0.0000; +eoh= 0; +oy= 7.99331700544506; +oc= 7.83132048725623; +oh= 5.34253084908048; +k=k+0.000001; + +end; + +options_.dynatol=1e-12; +options_.maxit_=5; +options_.slowc=1; +steady(solve_algo=2); + +options_.dynatol=4e-5; + +shocks; +var e; +periods 1; +values 0.02; +end; + +options_.maxit_=20; +model_info; + +simul(periods=2000, stack_solve_algo = 1); +rplot y; +rplot k; diff --git a/tests/block_bytecode/ls2003.mod b/tests/block_bytecode/ls2003.mod index 8a0b5f01e..be2827828 100644 --- a/tests/block_bytecode/ls2003.mod +++ b/tests/block_bytecode/ls2003.mod @@ -1,73 +1,73 @@ -var y y_s R pie dq pie_s de A y_obs pie_obs R_obs vv ww; -varexo e_R e_q e_ys e_pies e_A; - -parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; - -psi1 = 1.54; -psi2 = 0.25; -psi3 = 0.25; -rho_R = 0.5; -alpha = 0.3; -rr = 2.51; -k = 0.5; -tau = 0.5; -rho_q = 0.4; -rho_A = 0.2; -rho_ys = 0.9; -rho_pies = 0.7; - - -model(block, bytecode, cutoff=0); -y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); -pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; -pie = de+(1-alpha)*dq+pie_s; -R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; -dq = rho_q*dq(-1)+e_q; -y_s = rho_ys*y_s(-1)+e_ys; -pie_s = rho_pies*pie_s(-1)+e_pies; -A = rho_A*A(-1)+e_A; -y_obs = y-y(-1)+A; -pie_obs = 4*pie; -R_obs = 4*R; -vv = 0.2*ww+0.5*vv(-1)+1; -ww = 0.1*vv+0.5*ww(-1)+2; -/* A lt= - 0.5*vv-0.2*ww = 1 --0.1*vv+0.5*ww = 2 -[ 0.5 -0.2][vv] [1] - = -[-0.1 0.5][ww] [2] -det = 0.25-0.02 = 0.23 -[vv] [0.5 0.2] [1] [0.9] [3.91304] - = 1/0.23* = 1/0.23* = -[ww] [0.1 0.5] [2] [1.1] [4.7826] -*/ -end; - -shocks; -var e_R = 1.25^2; -var e_q = 2.5^2; -var e_A = 1.89; -var e_ys = 1.89; -var e_pies = 1.89; -end; - -options_.maxit_=100; -steady(solve_algo = 5); - -model_info; -//check; - -shocks; -var e_q; -periods 1; -values 0.5; -end; - -simul(periods=20, markowitz=0, stack_solve_algo = 5); -rplot vv; -rplot ww; -rplot A; -rplot pie; - - +var y y_s R pie dq pie_s de A y_obs pie_obs R_obs vv ww; +varexo e_R e_q e_ys e_pies e_A; + +parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; + +psi1 = 1.54; +psi2 = 0.25; +psi3 = 0.25; +rho_R = 0.5; +alpha = 0.3; +rr = 2.51; +k = 0.5; +tau = 0.5; +rho_q = 0.4; +rho_A = 0.2; +rho_ys = 0.9; +rho_pies = 0.7; + + +model(block, bytecode, cutoff=0); +y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); +pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; +pie = de+(1-alpha)*dq+pie_s; +R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; +dq = rho_q*dq(-1)+e_q; +y_s = rho_ys*y_s(-1)+e_ys; +pie_s = rho_pies*pie_s(-1)+e_pies; +A = rho_A*A(-1)+e_A; +y_obs = y-y(-1)+A; +pie_obs = 4*pie; +R_obs = 4*R; +vv = 0.2*ww+0.5*vv(-1)+1; +ww = 0.1*vv+0.5*ww(-1)+2; +/* A lt= + 0.5*vv-0.2*ww = 1 +-0.1*vv+0.5*ww = 2 +[ 0.5 -0.2][vv] [1] + = +[-0.1 0.5][ww] [2] +det = 0.25-0.02 = 0.23 +[vv] [0.5 0.2] [1] [0.9] [3.91304] + = 1/0.23* = 1/0.23* = +[ww] [0.1 0.5] [2] [1.1] [4.7826] +*/ +end; + +shocks; +var e_R = 1.25^2; +var e_q = 2.5^2; +var e_A = 1.89; +var e_ys = 1.89; +var e_pies = 1.89; +end; + +options_.maxit_=100; +steady(solve_algo = 5); + +model_info; +//check; + +shocks; +var e_q; +periods 1; +values 0.5; +end; + +simul(periods=20, markowitz=0, stack_solve_algo = 5); +rplot vv; +rplot ww; +rplot A; +rplot pie; + + diff --git a/tests/block_bytecode/mod1.mod b/tests/block_bytecode/mod1.mod index 16abb20af..80c5c542f 100644 --- a/tests/block_bytecode/mod1.mod +++ b/tests/block_bytecode/mod1.mod @@ -1,27 +1,27 @@ -var dx dy x y; -varexo e_x e_y; - -parameters rho_x rho_y; - -rho_x = 0.5; -rho_y = -0.3; - -model(block); -dx = rho_x*dx(-1)+e_x; -dy = rho_y*dy(-1)+e_y; -x = x(-1)+dx; -y = y(-1)+dy; -end; - -shocks; -var e_x; stderr 0.01; -var e_y; stderr 0.01; -end; -steady; -check; -model_info; -simul(periods=50); -/*stoch_simul(order=1,periods=1000,irf=0,nomoments); - -datatomfile('data1',[]); +var dx dy x y; +varexo e_x e_y; + +parameters rho_x rho_y; + +rho_x = 0.5; +rho_y = -0.3; + +model(block); +dx = rho_x*dx(-1)+e_x; +dy = rho_y*dy(-1)+e_y; +x = x(-1)+dx; +y = y(-1)+dy; +end; + +shocks; +var e_x; stderr 0.01; +var e_y; stderr 0.01; +end; +steady; +check; +model_info; +simul(periods=50); +/*stoch_simul(order=1,periods=1000,irf=0,nomoments); + +datatomfile('data1',[]); */ \ No newline at end of file diff --git a/tests/block_bytecode/multimod.mod b/tests/block_bytecode/multimod.mod index 194b9121b..07b3854a9 100644 --- a/tests/block_bytecode/multimod.mod +++ b/tests/block_bytecode/multimod.mod @@ -1,2777 +1,2777 @@ -var -CA_A CA_ACT CA_B CA_BT CA_C CA_COIL CA_CPI CA_CU CA_CURBAL CA_C_DI CA_C_PI CA_DLGDP CA_DLLF CA_ER CA_FACT CA_GDEF CA_GDP CA_GDP_FE CA_GE CA_GNP -CA_IM CA_INFL CA_INVEST CA_IOIL CA_IT CA_K CA_LF CA_M CA_MPC CA_MPCINV CA_MPK CA_NEER CA_NFA CA_P CA_PFM CA_PGNP CA_PGNPNO CA_PIM CA_PIMA CA_PIT -CA_PXM CA_PXT CA_Q CA_R CA_RCI CA_RL CA_RLR CA_RS CA_RSR CA_TAX CA_TAXH CA_TAXK CA_TB CA_TFP_FE CA_TRATE CA_UNR CA_UNR_A CA_W CA_WH CA_WH1 CA_WH2 -CA_WH3 CA_WK CA_XM CA_XMA CA_XT CA_YD -DC_A DC_CTOT DC_DEBT DC_GDP DC_GDP_FE DC_IM DC_INVEST DC_INVESTC DC_INVESTM DC_IOIL DC_IT DC_K DC_KC DC_KM DC_NFA DC_NNPCAP DC_P DC_PGNP -DC_PIM DC_PIMA DC_PIT DC_PXM DC_PXT DC_QNT DC_XCOM DC_XM DC_XMA DC_XOIL DC_XSM DC_XT -FR_A FR_ACT FR_B FR_BT FR_C FR_COIL FR_CPI FR_CU FR_CURBAL FR_C_DI FR_C_PI FR_DLGDP FR_DLLF FR_ER FR_FACT FR_GDEF FR_GDP FR_GDP_FE FR_GE FR_GNP -FR_IM FR_INFL FR_INVEST FR_IOIL FR_IT FR_K FR_LF FR_M FR_MPC FR_MPCINV FR_MPK FR_NEER FR_NFA FR_P FR_PFM FR_PGNP FR_PGNPNO FR_PIM FR_PIMA FR_PIT -FR_PXM FR_PXT FR_Q FR_R FR_RCI FR_RL FR_RLR FR_RS FR_RSR FR_TAX FR_TAXH FR_TAXK FR_TB FR_TFP_FE FR_TRATE FR_UNR FR_UNR_A FR_W FR_WH FR_WH1 FR_WH2 -FR_WH3 FR_WK FR_XM FR_XMA FR_XT FR_YD -GR_A GR_ACT GR_B GR_BT GR_C GR_COIL GR_CPI GR_CU GR_CURBAL GR_C_DI GR_C_PI GR_DLGDP GR_DLLF GR_ER GR_FACT GR_GDEF GR_GDP GR_GDP_FE GR_GE GR_GNP -GR_IM GR_INFL GR_INVEST GR_IOIL GR_IT GR_K GR_LF GR_M GR_MPC GR_MPCINV GR_MPK GR_NEER GR_NFA GR_P GR_PFM GR_PGNP GR_PGNPNO GR_PIM GR_PIMA GR_PIT -GR_PXM GR_PXT GR_Q GR_R GR_RCI GR_RL GR_RLR GR_RS GR_RSR GR_TAX GR_TAXH GR_TAXK GR_TB GR_TFP_FE GR_TRATE GR_UNR GR_UNR_A GR_W GR_WH GR_WH1 GR_WH2 -GR_WH3 GR_WK GR_XM GR_XMA GR_XT GR_YD -HO_A HO_GDP HO_ICOM HO_IM HO_IT HO_NFA HO_PIT HO_PXT HO_XOIL HO_XT -IT_A IT_ACT IT_B IT_BT IT_C IT_COIL IT_CPI IT_CU IT_CURBAL IT_C_DI IT_C_PI IT_DLGDP IT_DLLF IT_ER IT_FACT IT_GDEF IT_GDP IT_GDP_FE IT_GE IT_GNP -IT_IM IT_INFL IT_INVEST IT_IOIL IT_IT IT_K IT_LF IT_M IT_MPC IT_MPCINV IT_MPK IT_NEER IT_NFA IT_P IT_PFM IT_PGNP IT_PGNPNO IT_PIM IT_PIMA IT_PIT -IT_PXM IT_PXT IT_Q IT_R IT_RCI IT_RL IT_RLR IT_RS IT_RSR IT_TAX IT_TAXH IT_TAXK IT_TB IT_TFP_FE IT_TRATE IT_UNR IT_UNR_A IT_W IT_WH IT_WH1 IT_WH2 -IT_WH3 IT_WK IT_XM IT_XMA IT_XT IT_YD -JA_A JA_ACT JA_B JA_BT JA_C JA_COIL JA_CPI JA_CU JA_CURBAL JA_C_DI JA_C_PI JA_DLGDP JA_DLLF JA_ER JA_FACT JA_GDEF JA_GDP JA_GDP_FE JA_GE JA_GNP -JA_IM JA_INFL JA_INVEST JA_IOIL JA_IT JA_K JA_LF JA_M JA_MPC JA_MPCINV JA_MPK JA_NEER JA_NFA JA_P JA_PFM JA_PGNP JA_PGNPNO JA_PIM JA_PIMA JA_PIT -JA_PXM JA_PXT JA_Q JA_R JA_RCI JA_RL JA_RLR JA_RS JA_RSR JA_TAX JA_TAXH JA_TAXK JA_TB JA_TFP_FE JA_TRATE JA_UNR JA_UNR_A JA_W JA_WH JA_WH1 JA_WH2 -JA_WH3 JA_WK JA_XM JA_XMA JA_XT JA_YD -PCOM POIL -RES_CA_ICOM -RES_FR_ICOM -RES_GR_ICOM -RES_IT_ICOM -RES_JA_ICOM -RES_SI_ICOM -RES_UK_ICOM -RES_US_ICOM -RW_FACT RW_IM RW_NEER RW_PFM RW_PIM RW_PIMA RW_PXM RW_RCI RW_XCOM RW_XM RW_XMA RW_XOIL -SI_A SI_ACT SI_B SI_BT SI_C SI_COIL SI_CPI SI_CU SI_CURBAL SI_C_DI SI_C_PI SI_DLGDP SI_DLLF SI_ER SI_FACT SI_GDEF SI_GDP SI_GDP_FE SI_GE SI_GNP -SI_IM SI_INFL SI_INVEST SI_IOIL SI_IT SI_K SI_LF SI_M SI_MPC SI_MPCINV SI_MPK SI_NEER SI_NFA SI_P SI_PFM SI_PGNP SI_PGNPNO SI_PIM SI_PIMA SI_PIT -SI_PXM SI_PXT SI_Q SI_R SI_RCI SI_RL SI_RLR SI_RS SI_RSR SI_TAX SI_TAXH SI_TAXK SI_TB SI_TFP_FE SI_TRATE SI_UNR SI_UNR_A SI_W SI_WH SI_WH1 SI_WH2 -SI_WH3 SI_WK SI_XM SI_XMA SI_XT SI_YD -UK_A UK_ACT UK_B UK_BT UK_C UK_COIL UK_CPI UK_CU UK_CURBAL UK_C_DI UK_C_PI UK_DLGDP UK_DLLF UK_ER UK_FACT UK_GDEF UK_GDP UK_GDP_FE UK_GE UK_GNP -UK_IM UK_INFL UK_INVEST UK_IOIL UK_IT UK_K UK_LF UK_M UK_MPC UK_MPCINV UK_MPK UK_NEER UK_NFA UK_P UK_PFM UK_PGNP UK_PGNPNO UK_PIM UK_PIMA UK_PIT -UK_PXM UK_PXT UK_Q UK_R UK_RCI UK_RL UK_RLR UK_RS UK_RSR UK_TAX UK_TAXH UK_TAXK UK_TB UK_TFP_FE UK_TRATE UK_UNR UK_UNR_A UK_W UK_WH UK_WH1 UK_WH2 -UK_WH3 UK_WK UK_XM UK_XMA UK_XT UK_YD -US_A US_ACT US_B US_BT US_C US_COIL US_CPI US_CU US_CURBAL US_C_DI US_C_PI US_DLGDP US_DLLF US_ER US_FACT US_GDEF US_GDP US_GDP_FE US_GE US_GNP -US_IM US_INFL US_INVEST US_IOIL US_IT US_K US_LF US_M US_MPC US_MPCINV US_MPK US_NEER US_NFA US_P US_PFM US_PGNP US_PGNPNO US_PIM US_PIMA US_PIT -US_PXM US_PXT US_Q US_R US_RCI US_RL US_RLR US_RR US_RS US_RSR US_TAX US_TAXH US_TAXK US_TB US_TFP_FE US_TRATE US_UNR US_UNR_A US_W US_WH US_WH1 US_WH2 -US_WH3 US_WK US_XM US_XMA US_XT US_YD -WTRADE WTRADER -; -varexo -CA_ALPHA1 CA_ALPHA2 CA_ALPHA3 CA_BCHI1 CA_BCHI2 CA_BETA CA_BT_GDP_RAT CA_CPI_GAP_EXOG CA_CPI_TAR CA_DELTA CA_DELTA_SS CA_DEM3 CA_DLLF_SS CA_G CA_GDP_GAP_EXOG -CA_GEXOG CA_ICOM CA_LAMBDA CA_LAMBDA1 CA_LAMBDA2 CA_LAMBDA3 CA_MGROW CA_MT CA_NEER_PAR CA_NLIN CA_PAR CA_PART CA_PARUS CA_PGNPNO_GAP_EXOG CA_PGNPNO_TAR -CA_PGNP_GAP_EXOG CA_PGNP_TAR CA_PHI CA_POP CA_PREM CA_PROB CA_PRODOIL CA_P_GAP_EXOG CA_P_TAR CA_RSCON CA_RSCON2 CA_RS_EXOG CA_SIGMA CA_TAXK_ALPHA CA_TAXK_SHAR -CA_TPREM CA_TRATEK CA_TRATE_ALPHA CA_TRATE_EXOG CA_UNR_FE CA_UNR_GAP_EXOG CA_XOIL CA_X_RS1 CA_X_RS2 -DC_BETA DC_DELTA DC_INFL DC_KCOMSHR DC_OILSHR DC_PROD DC_XOILSHR DC_XTNDHIST -FR_ALPHA1 FR_ALPHA2 FR_ALPHA3 FR_BCHI1 FR_BCHI2 FR_BETA FR_BT_GDP_RAT FR_CPI_GAP_EXOG FR_CPI_TAR FR_DELTA FR_DELTA_SS FR_DEM3 FR_DLLF_SS FR_G FR_GDP_GAP_EXOG -FR_GEXOG FR_ICOM FR_LAMBDA FR_LAMBDA1 FR_LAMBDA2 FR_LAMBDA3 FR_MGROW FR_MT FR_NEER_PAR FR_NLIN FR_PAR FR_PART FR_PARUS FR_PGNPNO_GAP_EXOG FR_PGNPNO_TAR -FR_PGNP_GAP_EXOG FR_PGNP_TAR FR_PHI FR_POP FR_PREM FR_PROB FR_PRODOIL FR_P_GAP_EXOG FR_P_TAR FR_RSCON FR_RSCON2 FR_RS_EXOG FR_SIGMA FR_TAXK_ALPHA FR_TAXK_SHAR -FR_TPREM FR_TRATEK FR_TRATE_ALPHA FR_TRATE_EXOG FR_UNR_FE FR_UNR_GAP_EXOG FR_XOIL FR_X_RS1 FR_X_RS2 -GREAL GREAL_SS -GR_ALPHA1 GR_ALPHA2 GR_ALPHA3 GR_BCHI1 GR_BCHI2 GR_BETA GR_BT_GDP_RAT GR_CPI_GAP_EXOG GR_CPI_TAR GR_DELTA GR_DELTA_SS GR_DEM3 GR_DLLF_SS GR_G GR_GDP_GAP_EXOG -GR_GEXOG GR_ICOM GR_LAMBDA GR_LAMBDA1 GR_LAMBDA2 GR_LAMBDA3 GR_MGROW GR_MT GR_NEER_PAR GR_NLIN GR_PAR GR_PART GR_PARUS GR_PGNPNO_GAP_EXOG GR_PGNPNO_TAR -GR_PGNP_GAP_EXOG GR_PGNP_TAR GR_PHI GR_POP GR_PREM GR_PROB GR_PRODOIL GR_P_GAP_EXOG GR_P_TAR GR_RSCON GR_RSCON2 GR_RS_EXOG GR_SIGMA GR_TAXK_ALPHA GR_TAXK_SHAR -GR_TPREM GR_TRATEK GR_TRATE_ALPHA GR_TRATE_EXOG GR_UNR_FE GR_UNR_GAP_EXOG GR_XOIL GR_X_RS1 GR_X_RS2 -HO_IOIL HO_QNT HO_XM -IT_ALPHA1 IT_ALPHA2 IT_ALPHA3 IT_BCHI1 IT_BCHI2 IT_BETA IT_BT_GDP_RAT IT_CPI_GAP_EXOG IT_CPI_TAR IT_DELTA IT_DELTA_SS IT_DEM3 IT_DLLF_SS IT_G IT_GDP_GAP_EXOG -IT_GEXOG IT_ICOM IT_LAMBDA IT_LAMBDA1 IT_LAMBDA2 IT_LAMBDA3 IT_MGROW IT_MT IT_NEER_PAR IT_NLIN IT_PAR IT_PART IT_PARUS IT_PGNPNO_GAP_EXOG IT_PGNPNO_TAR -IT_PGNP_GAP_EXOG IT_PGNP_TAR IT_PHI IT_POP IT_PREM IT_PROB IT_PRODOIL IT_P_GAP_EXOG IT_P_TAR IT_RSCON IT_RSCON2 IT_RS_EXOG IT_SIGMA IT_TAXK_ALPHA IT_TAXK_SHAR -IT_TPREM IT_TRATEK IT_TRATE_ALPHA IT_TRATE_EXOG IT_UNR_FE IT_UNR_GAP_EXOG IT_XOIL IT_X_RS1 IT_X_RS2 -JA_ALPHA1 JA_ALPHA2 JA_ALPHA3 JA_BCHI1 JA_BCHI2 JA_BETA JA_BT_GDP_RAT JA_CPI_GAP_EXOG JA_CPI_TAR JA_DELTA JA_DELTA_SS JA_DEM3 JA_DLLF_SS JA_G JA_GDP_GAP_EXOG -JA_GEXOG JA_ICOM JA_LAMBDA JA_LAMBDA1 JA_LAMBDA2 JA_LAMBDA3 JA_MGROW JA_MT JA_NEER_PAR JA_NLIN JA_PAR JA_PART JA_PARUS JA_PGNPNO_GAP_EXOG JA_PGNPNO_TAR -JA_PGNP_GAP_EXOG JA_PGNP_TAR JA_PHI JA_POP JA_PREM JA_PROB JA_PRODOIL JA_P_GAP_EXOG JA_P_TAR JA_RSCON JA_RSCON2 JA_RS_EXOG JA_SIGMA JA_TAXK_ALPHA JA_TAXK_SHAR -JA_TPREM JA_TRATEK JA_TRATE_ALPHA JA_TRATE_EXOG JA_UNR_FE JA_UNR_GAP_EXOG JA_XOIL JA_X_RS1 JA_X_RS2 -RES_CA_COIL RES_CA_CPI RES_CA_C_DI RES_CA_ER RES_CA_GNP RES_CA_IM RES_CA_IOIL RES_CA_K RES_CA_M RES_CA_MPC RES_CA_NFA RES_CA_P RES_CA_PGNP RES_CA_PIM RES_CA_PXM -RES_CA_RL RES_CA_RS RES_CA_TFP_FE RES_CA_TRATE RES_CA_UNR_A RES_CA_WH1 RES_CA_WH2 RES_CA_WH3 RES_CA_WK RES_CA_XM -RES_DC_CTOT RES_DC_DEBT RES_DC_GDP_FE RES_DC_IT RES_DC_NFA RES_DC_PGNP RES_DC_PIM RES_DC_PIMA RES_DC_PXM RES_DC_QNT RES_DC_XOIL RES_DC_XSM -RES_FR_COIL RES_FR_CPI RES_FR_C_DI RES_FR_ER RES_FR_GNP RES_FR_IM RES_FR_IOIL RES_FR_K RES_FR_M RES_FR_MPC RES_FR_NFA RES_FR_P RES_FR_PGNP RES_FR_PIM RES_FR_PXM -RES_FR_RL RES_FR_RS RES_FR_TFP_FE RES_FR_TRATE RES_FR_UNR_A RES_FR_WH1 RES_FR_WH2 RES_FR_WH3 RES_FR_WK RES_FR_XM -RES_GR_COIL RES_GR_CPI RES_GR_C_DI RES_GR_ER RES_GR_GNP RES_GR_IM RES_GR_IOIL RES_GR_K RES_GR_M RES_GR_MPC RES_GR_NFA RES_GR_P RES_GR_PGNP RES_GR_PIM RES_GR_PXM -RES_GR_RL RES_GR_RS RES_GR_TFP_FE RES_GR_TRATE RES_GR_UNR_A RES_GR_WH1 RES_GR_WH2 RES_GR_WH3 RES_GR_WK RES_GR_XM -RES_HO_ICOM RES_HO_IM RES_HO_PIT RES_HO_PXT -RES_IT_COIL RES_IT_CPI RES_IT_C_DI RES_IT_ER RES_IT_GNP RES_IT_IM RES_IT_IOIL RES_IT_K RES_IT_M RES_IT_MPC RES_IT_NFA RES_IT_P RES_IT_PGNP RES_IT_PIM RES_IT_PXM -RES_IT_RL RES_IT_RS RES_IT_TFP_FE RES_IT_TRATE RES_IT_UNR_A RES_IT_WH1 RES_IT_WH2 RES_IT_WH3 RES_IT_WK RES_IT_XM -RES_JA_COIL RES_JA_CPI RES_JA_C_DI RES_JA_ER RES_JA_GNP RES_JA_IM RES_JA_IOIL RES_JA_K RES_JA_M RES_JA_MPC RES_JA_NFA RES_JA_P RES_JA_PGNP RES_JA_PIM RES_JA_PXM -RES_JA_RL RES_JA_RS RES_JA_TFP_FE RES_JA_TRATE RES_JA_UNR_A RES_JA_WH1 RES_JA_WH2 RES_JA_WH3 RES_JA_WK RES_JA_XM -RES_PCOM -RES_RW_PIM RES_RW_PXM RES_RW_XM -RES_SI_COIL RES_SI_CPI RES_SI_C_DI RES_SI_ER RES_SI_GNP RES_SI_IM RES_SI_IOIL RES_SI_K RES_SI_M RES_SI_MPC RES_SI_NFA RES_SI_P RES_SI_PGNP RES_SI_PIM RES_SI_PXM -RES_SI_RL RES_SI_RS RES_SI_TFP_FE RES_SI_TRATE RES_SI_UNR_A RES_SI_WH1 RES_SI_WH2 RES_SI_WH3 RES_SI_WK RES_SI_XM -RES_UK_COIL RES_UK_CPI RES_UK_C_DI RES_UK_ER RES_UK_GNP RES_UK_IM RES_UK_IOIL RES_UK_K RES_UK_M RES_UK_MPC RES_UK_NFA RES_UK_P RES_UK_PGNP RES_UK_PIM RES_UK_PXM -RES_UK_RL RES_UK_RS RES_UK_TFP_FE RES_UK_TRATE RES_UK_UNR_A RES_UK_WH1 RES_UK_WH2 RES_UK_WH3 RES_UK_WK RES_UK_XM -RES_US_COIL RES_US_CPI RES_US_C_DI RES_US_ER RES_US_GNP RES_US_IM RES_US_IOIL RES_US_K RES_US_M RES_US_MPC RES_US_NFA RES_US_P RES_US_PGNP RES_US_PIM RES_US_PXM -RES_US_RL RES_US_RS RES_US_TFP_FE RES_US_TRATE RES_US_UNR_A RES_US_WH1 RES_US_WH2 RES_US_WH3 RES_US_WK RES_US_XM -RES_WTRADE RES_WTRADER RPOIL -RW_ER RW_INFL -SI_ALPHA1 SI_ALPHA2 SI_ALPHA3 SI_BCHI1 SI_BCHI2 SI_BETA SI_BT_GDP_RAT SI_CPI_GAP_EXOG SI_CPI_TAR SI_DELTA SI_DELTA_SS SI_DEM3 SI_DLLF_SS SI_G SI_GDP_GAP_EXOG -SI_GEXOG SI_ICOM SI_LAMBDA SI_LAMBDA1 SI_LAMBDA2 SI_LAMBDA3 SI_MGROW SI_MT SI_NEER_PAR SI_NLIN SI_PAR SI_PART SI_PARUS SI_PGNPNO_GAP_EXOG SI_PGNPNO_TAR -SI_PGNP_GAP_EXOG SI_PGNP_TAR SI_PHI SI_POP SI_PREM SI_PROB SI_PRODOIL SI_P_GAP_EXOG SI_P_TAR SI_RSCON SI_RSCON2 SI_RS_EXOG SI_SIGMA SI_TAXK_ALPHA SI_TAXK_SHAR -SI_TPREM SI_TRATEK SI_TRATE_ALPHA SI_TRATE_EXOG SI_UNR_FE SI_UNR_GAP_EXOG SI_XOIL SI_X_RS1 SI_X_RS2 -TME -UK_ALPHA1 UK_ALPHA2 UK_ALPHA3 UK_BCHI1 UK_BCHI2 UK_BETA UK_BT_GDP_RAT UK_CPI_GAP_EXOG UK_CPI_TAR UK_DELTA UK_DELTA_SS UK_DEM3 UK_DLLF_SS UK_G UK_GDP_GAP_EXOG -UK_GEXOG UK_ICOM UK_LAMBDA UK_LAMBDA1 UK_LAMBDA2 UK_LAMBDA3 UK_MGROW UK_MT UK_NEER_PAR UK_NLIN UK_PAR UK_PART UK_PARUS UK_PGNPNO_GAP_EXOG UK_PGNPNO_TAR -UK_PGNP_GAP_EXOG UK_PGNP_TAR UK_PHI UK_POP UK_PREM UK_PROB UK_PRODOIL UK_P_GAP_EXOG UK_P_TAR UK_RSCON UK_RSCON2 UK_RS_EXOG UK_SIGMA UK_TAXK_ALPHA UK_TAXK_SHAR -UK_TPREM UK_TRATEK UK_TRATE_ALPHA UK_TRATE_EXOG UK_UNR_FE UK_UNR_GAP_EXOG UK_XOIL UK_X_RS1 UK_X_RS2 -US_ALPHA1 US_ALPHA2 US_ALPHA3 US_BCHI1 US_BCHI2 US_BETA US_BT_GDP_RAT US_CPI_GAP_EXOG US_CPI_TAR US_DELTA US_DELTA_SS US_DEM3 US_DLLF_SS US_G US_GDP_GAP_EXOG -US_GEXOG US_ICOM US_LAMBDA US_LAMBDA1 US_LAMBDA2 US_LAMBDA3 US_MGROW US_MT US_NEER_PAR US_NLIN US_PAR US_PART US_PARUS US_PGNPNO_GAP_EXOG US_PGNPNO_TAR -US_PGNP_GAP_EXOG US_PGNP_TAR US_PHI US_POP US_PREM US_PROB US_PRODOIL US_P_GAP_EXOG US_P_TAR US_RRBAR US_RSCON US_RSCON2 US_RS_EXOG US_SIGMA US_TAXK_ALPHA -US_TAXK_SHAR US_TPREM US_TRATEK US_TRATE_ALPHA US_TRATE_EXOG US_UNR_FE US_UNR_GAP_EXOG US_XOIL US_X_RS1 US_X_RS2; -parameters -CA_CHI CA_COIL0 CA_COIL1 CA_COIL2 CA_COIL3 CA_COIL4 CA_CPI1 CA_CPI2 CA_C_MPROP CA_DELTA_PI CA_E96 CA_GAMMA CA_G_MPROP CA_IC0 CA_IC1 CA_IC2 CA_IC3 CA_IC4 -CA_IC5 CA_IM0 CA_IM1 CA_IM2 CA_IM3 CA_INVEST_MPROP CA_K1 CA_K2 CA_M0 CA_M2 CA_M4 CA_PXM0 CA_PXM1 CA_PXM2 CA_RS1 CA_RS1PERM CA_RS2 CA_RS3 CA_RS4 CA_RS5 -CA_RS6 CA_RTARC1 CA_RTARC2 CA_RTARC3 CA_RTARC4 CA_RTARF1 CA_RTARF2 CA_RTARF3 CA_RTARF4 CA_UNR_1 CA_UNR_2 CA_WT CA_XM0 CA_XM1 CA_XM2 CA_XM3 CA_XT_MPROP -DC_C0 DC_C1 DC_C2 DC_DEBT1 DC_DEBT2 DC_GDP_FE0 -FR_CHI FR_COIL0 FR_COIL1 FR_COIL2 FR_COIL3 FR_COIL4 FR_CPI1 FR_CPI2 FR_C_MPROP FR_DELTA_PI FR_E96 FR_GAMMA FR_G_MPROP FR_IC0 FR_IC1 FR_IC2 FR_IC3 FR_IC4 -FR_IC5 FR_IM0 FR_IM1 FR_IM2 FR_IM3 FR_INVEST_MPROP FR_K1 FR_K2 FR_M0 FR_M2 FR_M4 FR_PXM0 FR_PXM1 FR_PXM2 FR_RS1 FR_RS1PERM FR_RS2 FR_RS3 FR_RS4 FR_RS5 -FR_RS6 FR_RTARC1 FR_RTARC2 FR_RTARC3 FR_RTARC4 FR_RTARF1 FR_RTARF2 FR_RTARF3 FR_RTARF4 FR_UNR_1 FR_UNR_2 FR_WT FR_XM0 FR_XM1 FR_XM2 FR_XM3 FR_XT_MPROP -GR_CHI GR_COIL0 GR_COIL1 GR_COIL2 GR_COIL3 GR_COIL4 GR_CPI1 GR_CPI2 GR_C_MPROP GR_DELTA_PI GR_E96 GR_GAMMA GR_G_MPROP GR_IC0 GR_IC1 GR_IC2 GR_IC3 GR_IC4 -GR_IC5 GR_IM0 GR_IM1 GR_IM2 GR_IM3 GR_INVEST_MPROP GR_K1 GR_K2 GR_M0 GR_M2 GR_M4 GR_PXM0 GR_PXM1 GR_PXM2 GR_RS1 GR_RS1PERM GR_RS2 GR_RS3 GR_RS4 GR_RS5 -GR_RS6 GR_RTARC1 GR_RTARC2 GR_RTARC3 GR_RTARC4 GR_RTARF1 GR_RTARF2 GR_RTARF3 GR_RTARF4 GR_UNR_1 GR_UNR_2 GR_WT GR_XM0 GR_XM1 GR_XM2 GR_XM3 GR_XT_MPROP -HO_A0 HO_A1 HO_IC2 -ISR -IT_CHI IT_COIL0 IT_COIL1 IT_COIL2 IT_COIL3 IT_COIL4 IT_CPI1 IT_CPI2 IT_C_MPROP IT_DELTA_PI IT_E96 IT_GAMMA IT_G_MPROP IT_IC0 IT_IC1 IT_IC2 IT_IC3 IT_IC4 -IT_IC5 IT_IM0 IT_IM1 IT_IM2 IT_IM3 IT_INVEST_MPROP IT_K1 IT_K2 IT_M0 IT_M2 IT_M4 IT_PXM0 IT_PXM1 IT_PXM2 IT_RS1 IT_RS1PERM IT_RS2 IT_RS3 IT_RS4 IT_RS5 -IT_RS6 IT_RTARC1 IT_RTARC2 IT_RTARC3 IT_RTARC4 IT_RTARF1 IT_RTARF2 IT_RTARF3 IT_RTARF4 IT_UNR_1 IT_UNR_2 IT_WT IT_XM0 IT_XM1 IT_XM2 IT_XM3 IT_XT_MPROP -JA_CHI JA_COIL0 JA_COIL1 JA_COIL2 JA_COIL3 JA_COIL4 JA_CPI1 JA_CPI2 JA_C_MPROP JA_DELTA_PI JA_E96 JA_GAMMA JA_G_MPROP JA_IC0 JA_IC1 JA_IC2 JA_IC3 JA_IC4 -JA_IC5 JA_IM0 JA_IM1 JA_IM2 JA_IM3 JA_INVEST_MPROP JA_K1 JA_K2 JA_M0 JA_M2 JA_M4 JA_PXM0 JA_PXM1 JA_PXM2 JA_RS1 JA_RS1PERM JA_RS2 JA_RS3 JA_RS4 JA_RS5 -JA_RS6 JA_RTARC1 JA_RTARC2 JA_RTARC3 JA_RTARC4 JA_RTARF1 JA_RTARF2 JA_RTARF3 JA_RTARF4 JA_UNR_1 JA_UNR_2 JA_WT JA_XM0 JA_XM1 JA_XM2 JA_XM3 JA_XT_MPROP -RW_E96 RW_PXM1 RW_PXM2 RW_XCOM1 RW_XM0 RW_XM1 RW_XM2 RW_XM3 RW_XSM1 -S0101 S0102 S0103 S0104 S0105 S0106 S0107 S0108 S0109 -S0201 S0202 S0203 S0204 S0205 S0206 S0207 S0208 S0209 -S0301 S0302 S0303 S0304 S0305 S0306 S0307 S0308 S0309 -S0401 S0402 S0403 S0404 S0405 S0406 S0407 S0408 S0409 -S0501 S0502 S0503 S0504 S0505 S0506 S0507 S0508 S0509 -S0601 S0602 S0603 S0604 S0605 S0606 S0607 S0608 S0609 -S0701 S0702 S0703 S0704 S0705 S0706 S0707 S0708 S0709 -S0801 S0802 S0803 S0804 S0805 S0806 S0807 S0808 S0809 -S0901 S0902 S0903 S0904 S0905 S0906 S0907 S0908 S0909 -SI_CHI SI_COIL0 SI_COIL1 SI_COIL2 SI_COIL3 SI_COIL4 SI_CPI1 SI_CPI2 SI_C_MPROP SI_DELTA_PI SI_E96 SI_GAMMA SI_G_MPROP SI_IC0 SI_IC1 SI_IC2 SI_IC3 SI_IC4 -SI_IC5 SI_IM0 SI_IM1 SI_IM2 SI_IM3 SI_INVEST_MPROP SI_K1 SI_K2 SI_M0 SI_M2 SI_M4 SI_PXM0 SI_PXM1 SI_PXM2 SI_RS1 SI_RS1PERM SI_RS2 SI_RS3 SI_RS4 SI_RS5 -SI_RS6 SI_RTARC1 SI_RTARC2 SI_RTARC3 SI_RTARC4 SI_RTARF1 SI_RTARF2 SI_RTARF3 SI_RTARF4 SI_UNR_1 SI_UNR_2 SI_WT SI_XM0 SI_XM1 SI_XM2 SI_XM3 SI_XT_MPROP -T01 T02 T03 T04 T05 T06 T07 T08 T09 -TAU1 TRDE TRDER -UK_CHI UK_COIL0 UK_COIL1 UK_COIL2 UK_COIL3 UK_COIL4 UK_CPI1 UK_CPI2 UK_C_MPROP UK_DELTA_PI UK_E96 UK_GAMMA UK_G_MPROP UK_IC0 UK_IC1 UK_IC2 UK_IC3 UK_IC4 -UK_IC5 UK_IM0 UK_IM1 UK_IM2 UK_IM3 UK_INVEST_MPROP UK_K1 UK_K2 UK_M0 UK_M2 UK_M4 UK_PXM0 UK_PXM1 UK_PXM2 UK_RS1 UK_RS1PERM UK_RS2 UK_RS3 UK_RS4 UK_RS5 -UK_RS6 UK_RTARC1 UK_RTARC2 UK_RTARC3 UK_RTARC4 UK_RTARF1 UK_RTARF2 UK_RTARF3 UK_RTARF4 UK_UNR_1 UK_UNR_2 UK_WT UK_XM0 UK_XM1 UK_XM2 UK_XM3 UK_XT_MPROP -US_CHI US_COIL0 US_COIL1 US_COIL2 US_COIL3 US_COIL4 US_CPI1 US_CPI2 US_C_MPROP US_DELTA_PI US_E96 US_GAMMA US_G_MPROP US_IC0 US_IC1 US_IC2 US_IC3 US_IC4 -US_IC5 US_IM0 US_IM1 US_IM2 US_IM3 US_INVEST_MPROP US_K1 US_K2 US_M0 US_M2 US_M4 US_PXM0 US_PXM1 US_PXM2 US_RS1 US_RS1PERM US_RS2 US_RS3 US_RS4 US_RS5 -US_RS6 US_RTARC1 US_RTARC2 US_RTARC3 US_RTARC4 US_RTARF1 US_RTARF2 US_RTARF3 US_RTARF4 US_UNR_1 US_UNR_2 US_WT US_XM0 US_XM1 US_XM2 US_XM3 US_XT_MPROP -V0102 V0103 V0104 V0105 V0106 V0107 V0108 -V0201 V0203 V0204 V0205 V0206 V0207 V0208 -V0301 V0302 V0304 V0305 V0306 V0307 V0308 -V0401 V0402 V0403 V0405 V0406 V0407 V0408 -V0501 V0502 V0503 V0504 V0506 V0507 V0508 -V0601 V0602 V0603 V0604 V0605 V0607 V0608 -V0701 V0702 V0703 V0704 V0705 V0706 V0708 -V0801 V0802 V0803 V0804 V0805 V0806 V0807 -W0101 W0102 W0103 W0104 W0105 W0106 W0107 W0108 W0109 -W0201 W0202 W0203 W0204 W0205 W0206 W0207 W0208 W0209 -W0301 W0302 W0303 W0304 W0305 W0306 W0307 W0308 W0309 -W0401 W0402 W0403 W0404 W0405 W0406 W0407 W0408 W0409 -W0501 W0502 W0503 W0504 W0505 W0506 W0507 W0508 W0509 -W0601 W0602 W0603 W0604 W0605 W0606 W0607 W0608 W0609 -W0701 W0702 W0703 W0704 W0705 W0706 W0707 W0708 W0709 -W0801 W0802 W0803 W0804 W0805 W0806 W0807 W0808 W0809 -W0901 W0902 W0903 W0904 W0905 W0906 W0907 W0908 W0909; - -CA_CHI=12; -CA_COIL0=-0.23205499351; -CA_COIL1=0.971576988697; -CA_COIL2=-0.0460230000317; -CA_COIL3=-0.0477560013533; -CA_COIL4=0.0639569982886; -CA_CPI1=0.0885436907411; -CA_CPI2=0.584154784679; -CA_C_MPROP=0.178070038557; -CA_DELTA_PI=0.53; -CA_E96=0.733423769474; -CA_GAMMA=1.77305098623; -CA_G_MPROP=0.184400975704; -CA_IC0=-3.32013988495; -CA_IC1=2.43067002296; -CA_IC2=-1.11615002155; -CA_IC3=-0.562039971352; -CA_IC4=0.662097990513; -CA_IC5=-1; -CA_IM0=0.0133133819327; -CA_IM1=-0.339117258787; -CA_IM2=0.0625357478857; -CA_IM3=-0.991348028183; -CA_INVEST_MPROP=0.515719473362; -CA_K1=0.0328033864498; -CA_K2=0.0473355539143; -CA_M0=-0.0607150010765; -CA_M2=-0.0054020001553; -CA_M4=0.788931012154; -CA_PXM0=-0.0128829535097; -CA_PXM1=0.645817816257; -CA_PXM2=0.0349373221397; -CA_RS1=0.333; -CA_RS1PERM=0.333; -CA_RS2=0; -CA_RS3=0; -CA_RS4=0; -CA_RS5=0; -CA_RS6=0; -CA_RTARC1=0; -CA_RTARC2=0; -CA_RTARC3=0; -CA_RTARC4=0; -CA_RTARF1=0; -CA_RTARF2=0; -CA_RTARF3=0; -CA_RTARF4=0; -CA_UNR_1=-0.42063587904; -CA_UNR_2=0.32201731205; -CA_WT=6.36961058059e-006; -CA_XM0=-0.00616873381659; -CA_XM1=-0.419528901577; -CA_XM2=0.0101102301851; -CA_XM3=-1.74084436893; -CA_XT_MPROP=0.15729150176; -DC_C0=-0.433786988258; -DC_C1=0.366304010153; -DC_C2=0.372914999723; -DC_DEBT1=0.600000023842; -DC_DEBT2=0.15000000596; -DC_GDP_FE0=3.73925995827; -FR_CHI=12; -FR_COIL0=-0.234044000506; -FR_COIL1=2.4851899147; -FR_COIL2=-0.0460230000317; -FR_COIL3=-0.0477560013533; -FR_COIL4=0.0639569982886; -FR_CPI1=0.133349880576; -FR_CPI2=0.822861135006; -FR_C_MPROP=0.164363101125; -FR_DELTA_PI=1; -FR_E96=0.195483461022; -FR_GAMMA=1.13691873848; -FR_G_MPROP=0.0880697220564; -FR_IC0=-0.19662900269; -FR_IC1=1.18206000328; -FR_IC2=-0.317216992378; -FR_IC3=-0.126195997; -FR_IC4=0.271228998899; -FR_IC5=-0.513716995716; -FR_IM0=0.00227451790124; -FR_IM1=-0.339117258787; -FR_IM2=0.140992045403; -FR_IM3=-0.991348028183; -FR_INVEST_MPROP=0.330241620541; -FR_K1=0.0328033864498; -FR_K2=0.0473355539143; -FR_M0=0.125633999705; -FR_M2=-0.0054020001553; -FR_M4=0.788931012154; -FR_PXM0=-0.00220575975254; -FR_PXM1=0.705334246159; -FR_PXM2=0.0349373221397; -FR_RS1=0; -FR_RS1PERM=0.333; -FR_RS2=2000000; -FR_RS3=0; -FR_RS4=0; -FR_RS5=0; -FR_RS6=0; -FR_RTARC1=0; -FR_RTARC2=0; -FR_RTARC3=0; -FR_RTARC4=0; -FR_RTARF1=0; -FR_RTARF2=0; -FR_RTARF3=0; -FR_RTARF4=0; -FR_UNR_1=-0.295711427927; -FR_UNR_2=0.437749415636; -FR_WT=1.6754593069e-005; -FR_XM0=-0.00668761134148; -FR_XM1=-0.482208490372; -FR_XM2=0.014295168221; -FR_XM3=-1.74084436893; -FR_XT_MPROP=0.153821244836; -GR_CHI=12; -GR_COIL0=-0.235900998116; -GR_COIL1=1.66013002396; -GR_COIL2=-0.0460230000317; -GR_COIL3=-0.0477560013533; -GR_COIL4=0.0639569982886; -GR_CPI1=0.154569670558; -GR_CPI2=0.557855904102; -GR_C_MPROP=0.166775077581; -GR_DELTA_PI=0.53; -GR_E96=0.66455155611; -GR_GAMMA=0.819746218622; -GR_G_MPROP=0.0776999294758; -GR_IC0=-0.014525000006; -GR_IC1=1.10573005676; -GR_IC2=-0.48298099637; -GR_IC3=0; -GR_IC4=0; -GR_IC5=0; -GR_IM0=0.0129903983325; -GR_IM1=-0.339117258787; -GR_IM2=0.133345082402; -GR_IM3=-0.991348028183; -GR_INVEST_MPROP=0.197875678539; -GR_K1=0.0328033864498; -GR_K2=0.0473355539143; -GR_M0=0.136906996369; -GR_M2=-0.0054020001553; -GR_M4=0.788931012154; -GR_PXM0=-0.00301471399143; -GR_PXM1=0.808721482754; -GR_PXM2=0.0349373221397; -GR_RS1=0.333; -GR_RS1PERM=0.333; -GR_RS2=0; -GR_RS3=0; -GR_RS4=0; -GR_RS5=0; -GR_RS6=0; -GR_RTARC1=0; -GR_RTARC2=0; -GR_RTARC3=0; -GR_RTARC4=0; -GR_RTARF1=0; -GR_RTARF2=0; -GR_RTARF3=0; -GR_RTARF4=0; -GR_UNR_1=-0.337131500244; -GR_UNR_2=0.177726686001; -GR_WT=2.56170225665e-005; -GR_XM0=-0.00160425971262; -GR_XM1=-0.404824435711; -GR_XM2=0.0564797371626; -GR_XM3=-1.74084436893; -GR_XT_MPROP=0.248123139143; -HO_A0=0; -HO_A1=0.140000000596; -HO_IC2=-1.03489995003; -ISR=0.0299999993294; -IT_CHI=12; -IT_COIL0=-0.231263995171; -IT_COIL1=0.593788981438; -IT_COIL2=-0.0460230000317; -IT_COIL3=-0.0477560013533; -IT_COIL4=0.0639569982886; -IT_CPI1=0.0572924762964; -IT_CPI2=0.849322021008; -IT_C_MPROP=0.170956239104; -IT_DELTA_PI=1; -IT_E96=0.648110522889; -IT_GAMMA=2.30496358126; -IT_G_MPROP=0.0941127538681; -IT_IC0=-0.746583998203; -IT_IC1=2.10226988792; -IT_IC2=-0.430978000164; -IT_IC3=-0.278881013393; -IT_IC4=0.292979985476; -IT_IC5=-0.616999983788; -IT_IM0=-0.0256050173193; -IT_IM1=-0.339117258787; -IT_IM2=0.344494223595; -IT_IM3=-0.991348028183; -IT_INVEST_MPROP=0.166337579489; -IT_K1=0.0328033864498; -IT_K2=0.0473355539143; -IT_M0=0.161681994796; -IT_M2=-0.0054020001553; -IT_M4=0.788931012154; -IT_PXM0=0.000566755014006; -IT_PXM1=0.658845901489; -IT_PXM2=0.0349373221397; -IT_RS1=0; -IT_RS1PERM=0.333; -IT_RS2=2000000; -IT_RS3=0; -IT_RS4=0; -IT_RS5=0; -IT_RS6=0; -IT_RTARC1=0; -IT_RTARC2=0; -IT_RTARC3=0; -IT_RTARC4=0; -IT_RTARF1=0; -IT_RTARF2=0; -IT_RTARF3=0; -IT_RTARF4=0; -IT_UNR_1=-0.0943256691098; -IT_UNR_2=0.793544411659; -IT_WT=1.32181730735e-005; -IT_XM0=-0.0253433175385; -IT_XM1=-0.387458562851; -IT_XM2=0.17049998045; -IT_XM3=-1.74084436893; -IT_XT_MPROP=0.165393054485; -JA_CHI=12; -JA_COIL0=-0.320129007101; -JA_COIL1=1.22408998013; -JA_COIL2=-0.0460230000317; -JA_COIL3=-0.0477560013533; -JA_COIL4=0.0639569982886; -JA_CPI1=0.0650515928864; -JA_CPI2=0.791279554367; -JA_C_MPROP=0.0782259404659; -JA_DELTA_PI=0.53; -JA_E96=9.19294636697; -JA_GAMMA=9.10910964012; -JA_G_MPROP=0.0464610271156; -JA_IC0=-1.10236001015; -JA_IC1=0.436967998743; -JA_IC2=-0.423990011215; -JA_IC3=-0.337971001863; -JA_IC4=0.210978001356; -JA_IC5=-0.458155989647; -JA_IM0=-0.0712840557098; -JA_IM1=-0.339117258787; -JA_IM2=0.347616523504; -JA_IM3=-0.991348028183; -JA_INVEST_MPROP=0.0722297132015; -JA_K1=0.0328033864498; -JA_K2=0.0473355539143; -JA_M0=0.029030000791; -JA_M2=-0.0054020001553; -JA_M4=0.788931012154; -JA_PXM0=-0.00688820658252; -JA_PXM1=0.64994853735; -JA_PXM2=0.0349373221397; -JA_RS1=0.333; -JA_RS1PERM=0.333; -JA_RS2=0; -JA_RS3=0; -JA_RS4=0; -JA_RS5=0; -JA_RS6=0; -JA_RTARC1=0; -JA_RTARC2=0; -JA_RTARC3=0; -JA_RTARC4=0; -JA_RTARF1=0; -JA_RTARF2=0; -JA_RTARF3=0; -JA_RTARF4=0; -JA_UNR_1=-0.0611038096249; -JA_UNR_2=0.48595276475; -JA_WT=5.00687931675e-005; -JA_XM0=0.024151481688; -JA_XM1=-0.459041416645; -JA_XM2=0.364201933146; -JA_XM3=-1.74084436893; -JA_XT_MPROP=0.0883775576949; -RW_E96=1; -RW_PXM1=-0.40000000596; -RW_PXM2=-0.10000000149; -RW_XCOM1=0.300000011921; -RW_XM0=-0.00616873381659; -RW_XM1=-0.419528901577; -RW_XM2=0.0101102301851; -RW_XM3=-1.74084436893; -RW_XSM1=0.40000000596; -S0101=0; -S0102=0.211428981673; -S0103=0.0518315242932; -S0104=0.0499099911459; -S0105=0.0461929631515; -S0106=0.107709788268; -S0107=0.755355733991; -S0108=0.102362944882; -S0109=0.25825817487; -S0201=0.140730977983; -S0202=0; -S0203=0.0402535143414; -S0204=0.0186281396133; -S0205=0.0178380540457; -S0206=0.0435290672186; -S0207=0.0291917712961; -S0208=0.0498749237363; -S0209=0.206865929608; -S0301=0.0496485427176; -S0302=0.0441081698314; -S0303=0; -S0304=0.193178152483; -S0305=0.200114990415; -S0306=0.14276178335; -S0307=0.015950421856; -S0308=0.262332248098; -S0309=0.126014094315; -S0401=0.021532626072; -S0402=0.0167699758807; -S0403=0.108500266691; -S0404=0; -S0405=0.138882342615; -S0406=0.0935827744846; -S0407=0.0109323931691; -S0408=0.128842129226; -S0409=0.0649077327766; -S0501=0.0229825548319; -S0502=0.0174868984566; -S0503=0.0964474330303; -S0504=0.108455598703; -S0505=0; -S0506=0.0564481958061; -S0507=0.010383992488; -S0508=0.0836702594125; -S0509=0.0699498052739; -S0601=0.0391029180375; -S0602=0.0208742140953; -S0603=0.0650511176965; -S0604=0.0836065042775; -S0605=0.0602465540559; -S0606=0; -S0607=0.0175125547848; -S0608=0.116874153448; -S0609=0.0646555060199; -S0701=0.204879168808; -S0702=0.0233890814121; -S0703=0.00508720134929; -S0704=0.00419850099405; -S0705=0.00503869062909; -S0706=0.00975502690095; -S0707=0; -S0708=0.00782505967526; -S0709=0.0142728223294; -S0801=0.0670277430388; -S0802=0.0995331039443; -S0803=0.405142668132; -S0804=0.348010416891; -S0805=0.26853217235; -S0806=0.317507537454; -S0807=0.0434426679092; -S0808=0; -S0809=0.195075934808; -S0901=0.454095468511; -S0902=0.566409574707; -S0903=0.227686274466; -S0904=0.194012695892; -S0905=0.263154232738; -S0906=0.228705826518; -S0907=0.117230464506; -S0908=0.248218281522; -S0909=0; -SI_CHI=12; -SI_COIL0=-0.220861002803; -SI_COIL1=0.764611005783; -SI_COIL2=-0.0460230000317; -SI_COIL3=-0.0477560013533; -SI_COIL4=0.0639569982886; -SI_CPI1=0.0885436907411; -SI_CPI2=0.584154784679; -SI_C_MPROP=0.178070038557; -SI_DELTA_PI=0.53; -SI_E96=1; -SI_GAMMA=2.68042981625; -SI_G_MPROP=0.184400975704; -SI_IC0=-1.8622200489; -SI_IC1=1.95882999897; -SI_IC2=-0.451727002859; -SI_IC3=-0.135161995888; -SI_IC4=0.498308986425; -SI_IC5=-0.599273979664; -SI_IM0=0.0133133819327; -SI_IM1=-0.339117258787; -SI_IM2=0.0625357478857; -SI_IM3=-0.991348028183; -SI_INVEST_MPROP=0.515719473362; -SI_K1=0.0328033864498; -SI_K2=0.0473355539143; -SI_M0=-0.0292150005698; -SI_M2=-0.0054020001553; -SI_M4=0.788931012154; -SI_PXM0=-0.0128829535097; -SI_PXM1=0.645817816257; -SI_PXM2=0.0349373221397; -SI_RS1=0.333; -SI_RS1PERM=0.333; -SI_RS2=0; -SI_RS3=0; -SI_RS4=0; -SI_RS5=0; -SI_RS6=0; -SI_RTARC1=0; -SI_RTARC2=0; -SI_RTARC3=0; -SI_RTARC4=0; -SI_RTARF1=0; -SI_RTARF2=0; -SI_RTARF3=0; -SI_RTARF4=0; -SI_UNR_1=-0.414891779423; -SI_UNR_2=0.367525577545; -SI_WT=3.509713705e-005; -SI_XM0=-0.00616873381659; -SI_XM1=-0.419528901577; -SI_XM2=0.0101102301851; -SI_XM3=-1.74084436893; -SI_XT_MPROP=0.15729150176; -T01=0.16637001296; -T02=0.0851782429459; -T03=0.112577622798; -T04=0.0672679615184; -T05=0.051428852688; -T06=0.0635713068531; -T07=0.0437942590402; -T08=0.168281015113; -T09=0.241530726083; -TAU1=0.2; -TRDE=1000; -TRDER=1000; -UK_CHI=12; -UK_COIL0=-0.295890003443; -UK_COIL1=1.26555001736; -UK_COIL2=-0.0432269982994; -UK_COIL3=-0.0499509982765; -UK_COIL4=0.0755050033331; -UK_CPI1=0.135559409857; -UK_CPI2=0.739067137241; -UK_C_MPROP=0.236572146416; -UK_DELTA_PI=0.53; -UK_E96=1.56173992157; -UK_GAMMA=2.36357469112; -UK_G_MPROP=0.117712050676; -UK_IC0=-0.0400650016963; -UK_IC1=1.13595998287; -UK_IC2=-0.480706006289; -UK_IC3=0; -UK_IC4=0; -UK_IC5=0; -UK_IM0=-0.00298645487055; -UK_IM1=-0.339117258787; -UK_IM2=0.259559065104; -UK_IM3=-0.991348028183; -UK_INVEST_MPROP=0.326577752829; -UK_K1=0.0328033864498; -UK_K2=0.0473355539143; -UK_M0=-0.0982170030475; -UK_M2=-0.0054020001553; -UK_M4=0.788931012154; -UK_PXM0=-0.00295503181405; -UK_PXM1=0.63050109148; -UK_PXM2=0.0349373221397; -UK_RS1=0.333; -UK_RS1PERM=0.333; -UK_RS2=0; -UK_RS3=0; -UK_RS4=0; -UK_RS5=0; -UK_RS6=0; -UK_RTARC1=0; -UK_RTARC2=0; -UK_RTARC3=0; -UK_RTARC4=0; -UK_RTARF1=0; -UK_RTARF2=0; -UK_RTARF3=0; -UK_RTARF4=0; -UK_UNR_1=-0.33446392417; -UK_UNR_2=0.683579683304; -UK_WT=1.2619961324e-005; -UK_XM0=0.00526482798159; -UK_XM1=-0.451665729284; -UK_XM2=0.130913674831; -UK_XM3=-1.74084436893; -UK_XT_MPROP=0.15884745121; -US_CHI=12; -US_COIL0=-0.234869003296; -US_COIL1=0.851813018322; -US_COIL2=-0.0460230000317; -US_COIL3=-0.0477560013533; -US_COIL4=0.0639569982886; -US_CPI1=0.0600003153086; -US_CPI2=0.978459060192; -US_C_MPROP=0.0787769183517; -US_DELTA_PI=0.53; -US_E96=1; -US_GAMMA=1.25564420596; -US_G_MPROP=0.0697601884603; -US_IC0=-4.08905982971; -US_IC1=2.08457994461; -US_IC2=-0.722373008728; -US_IC3=-0.219500005245; -US_IC4=0.815505981445; -US_IC5=-0.823925971985; -US_IM0=0.0275149382651; -US_IM1=-0.339117258787; -US_IM2=0.0594643093646; -US_IM3=-0.991348028183; -US_INVEST_MPROP=0.174478381872; -US_K1=0.0328033864498; -US_K2=0.0473355539143; -US_M0=0.0839120000601; -US_M2=-0.0054020001553; -US_M4=0.788931012154; -US_PXM0=-0.00524724042043; -US_PXM1=0.638190448284; -US_PXM2=0.0349373221397; -US_RS1=0.333; -US_RS1PERM=0.333; -US_RS2=0; -US_RS3=0; -US_RS4=0; -US_RS5=0; -US_RS6=0; -US_RTARC1=0; -US_RTARC2=0; -US_RTARC3=0; -US_RTARC4=0; -US_RTARF1=0; -US_RTARF2=0; -US_RTARF3=0; -US_RTARF4=0; -US_UNR_1=-0.418832212687; -US_UNR_2=0.20457854867; -US_WT=8.31260528269e-005; -US_XM0=0.0335212536156; -US_XM1=-0.42607691884; -US_XM2=0.0847327336669; -US_XM3=-1.74084436893; -US_XT_MPROP=0.068832308054; -V0102=0.302939; -V0103=0.1149987; -V0104=0.05839044; -V0105=0.04559976; -V0106=0.0890599; -V0107=0.2508736; -V0108=0.1381385; -V0201=0.5340386; -V0203=0.1368557; -V0204=0.04634024; -V0205=0.03792391; -V0206=0.06666363; -V0207=0.03194354; -V0208=0.1462343; -V0301=0.1048398; -V0302=0.07077477; -V0304=0.1628517; -V0305=0.1299371; -V0306=0.1107158; -V0307=0.0077914; -V0308=0.4130895; -V0401=0.09336697; -V0402=0.04203319; -V0403=0.2856347; -V0405=0.143795; -V0406=0.1087066; -V0407=0.007638456; -V0408=0.3188251; -V0501=0.09431349; -V0502=0.04449457; -V0503=0.2947892; -V0504=0.185996; -V0506=0.09233788; -V0507=0.007625379; -V0508=0.2804435; -V0601=0.1649267; -V0602=0.07002937; -V0603=0.2248978; -V0604=0.1258964; -V0605=0.08267559; -V0607=0.01384079; -V0608=0.3177335; -V0701=0.8238854; -V0702=0.05950828; -V0703=0.0280669; -V0704=0.01568794; -V0705=0.01210771; -V0706=0.02454505; -V0708=0.03619872; -V0801=0.0269276; -V0802=0.0324527; -V0803=0.08555825; -V0804=0.06546576; -V0805=0.0516105; -V0806=0.05701964; -V0807=0.006865961; -W0101=-1; -W0102=0.158314128764; -W0103=0.144148080288; -W0104=0.078498145888; -W0105=0.0731862618008; -W0106=0.0770074545758; -W0107=0.013557730213; -W0108=0.212383102831; -W0109=0.242905095639; -W0201=0.198243776352; -W0202=-1; -W0203=0.13303216642; -W0204=0.0713086550403; -W0205=0.0695296751108; -W0206=0.0712296426923; -W0207=0.0765000899962; -W0208=0.187864186254; -W0209=0.192291808135; -W0301=0.158728054259; -W0302=0.10595582598; -W0303=-1; -W0304=0.107333239352; -W0305=0.0847327465098; -W0306=0.0981502409584; -W0307=0.0275220178134; -W0308=0.167795340239; -W0309=0.249782534889; -W0401=0.138316983506; -W0402=0.0938147168545; -W0403=0.168836924388; -W0404=-1; -W0405=0.0747207012628; -W0406=0.0813418537478; -W0407=0.0220610834413; -W0408=0.194651586757; -W0409=0.226256150043; -W0501=0.142928956526; -W0502=0.102467450391; -W0503=0.150092928257; -W0504=0.0835779316292; -W0505=-1; -W0506=0.078777445823; -W0507=0.0247664878133; -W0508=0.217768101495; -W0509=0.199620698065; -W0601=0.138720021274; -W0602=0.102439099154; -W0603=0.168900001338; -W0604=0.0888147938683; -W0605=0.0768422939279; -W0606=-1; -W0607=0.0347617704635; -W0608=0.164211166816; -W0609=0.225310853159; -W0701=0.0332804830561; -W0702=0.164136190858; -W0703=0.0742635886407; -W0704=0.0347684058849; -W0705=0.0347291240407; -W0706=0.0510638287607; -W0707=-1; -W0708=0.100630284767; -W0709=0.507128093992; -W0801=0.166407280379; -W0802=0.115122730336; -W0803=0.137316258214; -W0804=0.102276661523; -W0805=0.101929410645; -W0806=0.0783535439484; -W0807=0.0278301070227; -W0808=-1; -W0809=0.270764007932; -W0901=0.149822902292; -W0902=0.11592454783; -W0903=0.15042408861; -W0904=0.082470009466; -W0905=0.0666627750021; -W0906=0.0800069594276; -W0907=0.147854375051; -W0908=0.206834342322; -W0909=-1; -model(block, bytecode, mfs = 3, cutoff =0); -//model(SPARSE,markowitz=2.0); -//model; - ( log(US_CPI)-(log(US_CPI(-1)))) = US_CPI1*( log(US_PIM)-(log(US_PIM(-1))))+US_CPI2*( log(US_PGNP)-(log(US_PGNP(-1))))+(1-US_CPI1-US_CPI2)*log(US_CPI(-1)/US_CPI(-2))+RES_US_CPI ; - US_UNR_A = US_UNR_FE+US_UNR_1*100*log(US_GDP/US_GDP_FE)+US_UNR_2*(US_UNR(-1)-US_UNR_FE(-1))+RES_US_UNR_A ; - US_UNR = /*MAX(US_UNR_A;0.1)*/US_UNR_A ; - ( log(US_PGNPNO)-(log(US_PGNPNO(-1)))) = US_LAMBDA*(US_DELTA_PI*( log(US_PGNPNO(1))-(log(US_PGNPNO)))+(1-US_DELTA_PI)*( log(US_PGNPNO(-1))-(log(US_PGNPNO(-2)))))+(1-US_LAMBDA)*( log(US_PGNPNO(-1))-(log(US_PGNPNO(-2))))+US_GAMMA/100*(US_NLIN-US_UNR)/(US_UNR-US_PHI)+RES_US_PGNP ; - US_INFL = US_MGROW/GREAL ; - US_DLLF = log(US_LF/US_LF(-1)) ; - US_DLGDP = log(US_GDP/US_GDP(-1)) ; - US_C = US_C_DI+US_C_PI ; - US_MPC = 1/US_MPCINV ; - US_MPCINV(1) = US_MPCINV-1-((1-US_SIGMA)*(US_RSR+US_PROB)-(RES_US_MPC+US_PROB))*US_MPCINV/US_SIGMA ; - US_WH1(1) = US_WH1*(1+US_RSR+US_ALPHA1+RES_US_WH1+US_PROB+exp(US_DLLF_SS)-1)-(((1-US_BETA)*US_GDP*US_PGNP-US_TAXH)/US_P+RES_US_WK*US_WK) ; - US_WH2(1) = US_WH2*(1+US_RSR+US_ALPHA2+RES_US_WH2+US_PROB+exp(US_DLLF_SS)-1)-(((1-US_BETA)*US_GDP*US_PGNP-US_TAXH)/US_P+RES_US_WK*US_WK) ; - US_WH3(1) = US_WH3*(1+US_RSR+US_ALPHA3+RES_US_WH3+US_PROB+exp(US_DLLF_SS)-1)-(((1-US_BETA)*US_GDP*US_PGNP-US_TAXH)/US_P+RES_US_WK*US_WK) ; - US_C_DI = (US_LAMBDA1*US_BCHI1+US_LAMBDA2*US_BCHI2+US_LAMBDA3*(1-US_BCHI1-US_BCHI2))*((1-US_BETA)*US_GDP*US_PGNP-US_TAXH)/US_P+RES_US_C_DI*GREAL^TME ; - US_C_PI = US_MPC*(US_WK+(US_M+US_B+US_NFA/US_ER)/US_P+US_BCHI1*(1-US_LAMBDA1)*US_WH1+US_BCHI2*(1-US_LAMBDA2)*US_WH2+(1-US_BCHI1-US_BCHI2)*(1-US_LAMBDA3)*US_WH3) ; - US_WH = US_BCHI1*US_WH1+US_BCHI2*US_WH2+(1-US_BCHI1-US_BCHI2)*US_WH3 ; - ( log(US_COIL)-(log(US_COIL(-1)))) = US_COIL0+US_COIL1*( log(US_GDP)-(log(US_GDP(-1))))+US_COIL2*( log(POIL/US_ER/US_PGNP)-(log(POIL(-1)/US_ER(-1)/US_PGNP(-1))))+US_COIL3*log(POIL(-1)/US_ER(-1)/US_PGNP(-1))+US_COIL4*log(US_GDP(-1)/US_COIL(-1))+RES_US_COIL ; - US_INVEST/US_K(-1)-(US_DELTA_SS+GREAL_SS-1) = US_K1*(US_WK/US_K(-1)-1)+US_K2*(US_WK(-1)/US_K(-2)-1)+RES_US_K ; - US_MPK = US_BETA*US_GDP/US_K ; - US_Q = US_CHI*(US_INVEST/US_K(-1)-(US_DELTA_SS+GREAL_SS-1))+1 ; - US_WK(1) = US_WK*(1+US_RSR+US_K/US_K(-1)-1+US_DELTA+RES_US_WK)-(US_BETA*US_GDP*US_PGNP-US_TAXK)/US_P+(US_CHI/2*((US_Q-1)/US_CHI)^2+US_INVEST/US_K(-1)*(US_Q-1))*US_K(-1)*US_PGNP/US_P ; - US_INVEST = ( US_K-(US_K(-1)))+US_DELTA*US_K(-1) ; - ( log(US_XM)-(log(US_XM(-1)))) = US_XM0+( log(US_FACT)-(log(US_FACT(-1))))+US_XM1*( US_RCI-(US_RCI(-1)))+US_XM2*(US_XM3*US_RCI(-1)+log(US_FACT(-1))-log(US_XM(-1)))+RES_US_XM ; - US_XMA = US_XM+T01*(WTRADER-TRDER*GREAL^TME)/US_E96 ; - US_XT = US_XMA+US_XOIL ; - US_ACT = US_C_MPROP*US_C+US_INVEST_MPROP*US_INVEST+US_G_MPROP*US_G+US_XT_MPROP*US_XT ; - ( log(US_IM)-(log(US_IM(-1)))) = US_IM0+( log(US_ACT)-(log(US_ACT(-1))))+US_IM1*( log(US_PIMA/US_PGNPNO)-(log(US_PIMA(-1)/US_PGNPNO(-1))))+US_IM2*(US_IM3*log(US_PIMA(-1)/US_PGNPNO(-1))+log(US_ACT(-1))-log(US_IM(-1)))+RES_US_IM ; - US_IOIL = US_COIL+US_XOIL-US_PRODOIL+RES_US_IOIL*GREAL^TME ; - ( log(US_ICOM)-(log(US_ICOM(-1)))) = US_IC0+US_IC2*( log(PCOM/US_ER/US_PGNP)-(log(PCOM(-1)/US_ER(-1)/US_PGNP(-1))))+US_IC1*( log(US_GDP)-(log(US_GDP(-1))))+US_IC3*log(PCOM(-1)/US_ER(-1)/US_PGNP(-1))+US_IC4*log(US_GDP(-1))+US_IC5*log(US_ICOM(-1))+RES_US_ICOM-(US_IC4+US_IC5)*log(GREAL^TME) ; - US_IT = US_IM+US_IOIL+US_ICOM ; - US_A = US_C+US_INVEST+US_G ; - US_GDP = US_A+US_XT-US_IT ; - US_GNP = US_GDP+(US_R+(US_PREM(-3)+US_PREM(-2)+US_PREM(-1))/3)*US_NFA(-1)/US_ER/US_PGNP+RES_US_GNP*GREAL^TME ; - US_W = US_WH+US_WK+(US_M+US_B+US_NFA/US_ER)/US_P ; - US_YD = (US_GDP*US_PGNP-US_TAX)/US_P-US_DELTA*US_K(-1) ; - US_GE = US_P*US_G+US_R*US_B(-1)+US_GEXOG ; - US_TAX = US_TRATE*US_PGNP*US_GNP ; - US_TAXK = US_TAXK_ALPHA*US_TAXK_SHAR*US_TAX+(1-US_TAXK_ALPHA)*US_TRATEK*US_BETA*US_GDP*US_PGNP ; - US_TAXH = US_TAX-US_TAXK ; - US_TRATE = US_TRATE_EXOG*(1-US_TRATE_ALPHA)+US_TRATE_ALPHA*((US_TRATE(-2)/5+US_TRATE(-1)/5+US_TRATE(0)/5+US_TRATE(1)/5+US_TRATE(2)/5)+TAU1*(US_B(1)/(US_GNP(1)*US_PGNP(1))-US_BT_GDP_RAT(1))+RES_US_TRATE) ; - US_BT = US_BT_GDP_RAT*US_GNP*US_PGNP ; - ( US_B-(US_B(-1)))+( US_M-(US_M(-1))) = US_R*US_B(-1)+US_P*US_G-US_TAX ; - US_GDEF = ( US_B+US_M-(US_B(-1)+US_M(-1))) ; - log(US_M/US_P) = US_M0+(1-US_M4)*log(US_A)+US_M2*US_RS+US_M4*log(US_M(-1)/US_P(-1))+RES_US_M ; - US_RS = (1-US_X_RS1)*US_RS_EXOG+US_X_RS1*(US_RS(-1)+US_RS1*log(US_MT/US_M)/US_M2+US_RS2*log(GR_ER/US_ER/US_PAR)+US_RS3*log(US_ER/US_ER/US_PARUS)+US_RS4*log(US_NEER/US_NEER_PAR)+US_RS5*(US_UNR_FE-US_UNR-US_UNR_GAP_EXOG)+US_RS6*100*(log(US_GDP)-log(US_GDP_FE)-US_GDP_GAP_EXOG)+US_X_RS2*(-US_RS(-1)+US_RSCON+100*( log(US_P(1))-(log(US_P))))+100*(US_RTARC1*(( log(US_P)-(log(US_P(-1))))-( log(US_P_TAR)-(log(US_P_TAR(-1))))-US_P_GAP_EXOG)+US_RTARC2*(( log(US_PGNP)-(log(US_PGNP(-1))))-( log(US_PGNP_TAR)-(log(US_PGNP_TAR(-1))))-US_PGNP_GAP_EXOG)+US_RTARC3*(( log(US_CPI)-(log(US_CPI(-1))))-( log(US_CPI_TAR)-(log(US_CPI_TAR(-1))))-US_CPI_GAP_EXOG)+US_RTARC4*(( log(US_PGNPNO)-(log(US_PGNPNO(-1))))-( log(US_PGNPNO_TAR)-(log(US_PGNPNO_TAR(-1))))-US_PGNPNO_GAP_EXOG)+US_RTARF1*(( log(US_P(1))-(log(US_P)))-( log(US_P_TAR(1))-(log(US_P_TAR)))-US_P_GAP_EXOG(1))+US_RTARF2*(( log(US_PGNP(1))-(log(US_PGNP)))-( log(US_PGNP_TAR(1))-(log(US_PGNP_TAR)))-US_PGNP_GAP_EXOG(1))+US_RTARF3*(( log(US_CPI(1))-(log(US_CPI)))-( log(US_CPI_TAR(1))-(log(US_CPI_TAR)))-US_CPI_GAP_EXOG(1))+US_RTARF4*(( log(US_PGNPNO(1))-(log(US_PGNPNO)))-( log(US_PGNPNO_TAR(1))-(log(US_PGNPNO_TAR)))-US_PGNPNO_GAP_EXOG(1)))+US_RSCON2+RES_US_RS)+US_RS1PERM*0 ; - US_RL/100 = ((1+US_RS/100)*(1+US_RS(1)/100)*(1+US_RS(2)/100)*(1+US_RS(3)/100)*(1+US_RS(4)/100)*(1+US_RS(5)/100)*(1+US_RS(6)/100)*(1+US_RS(7)/100)*(1+US_RS(8)/100)*(1+US_RS(9)/100))^0.1*(1+US_TPREM)-1+RES_US_RL ; - US_R = 0.5*US_RS(-1)/100+0.5*(US_RL(-3)/100+US_RL(-2)/100+US_RL(-1)/100)/3 ; - US_RLR = (1+US_RL/100)/(US_P(10)/US_P)^0.1-1 ; - US_RSR = (1+US_RS/100)/(US_P(1)/US_P)-1 ; - US_PGNPNO = (US_GDP*US_PGNP-US_PRODOIL*POIL/US_ER*US_E96)/(US_GDP-US_PRODOIL) ; - US_PGNP = (US_P*US_A+US_XT*US_PXT-US_IT*US_PIT)/US_GDP+RES_US_P*US_PGNP ; - ( log(US_PXM)-(log(US_PXM(-1)))) = US_PXM0+US_PXM1*( log(US_PGNPNO)-(log(US_PGNPNO(-1))))+(1-US_PXM1)*( log(US_PFM)-(log(US_PFM(-1))))+US_PXM2*log(US_PGNPNO(-1)/US_PXM(-1))+RES_US_PXM ; - US_PXT = (US_XMA*US_PXM+POIL/US_ER*US_E96*US_XOIL)/US_XT ; - US_PIM = (S0101*US_PXM+S0201*JA_PXM*JA_ER/JA_E96+S0301*GR_PXM*GR_ER/GR_E96+S0401*FR_PXM*FR_ER/FR_E96+S0501*IT_PXM*IT_ER/IT_E96+S0601*UK_PXM*UK_ER/UK_E96+S0701*CA_PXM*CA_ER/CA_E96+S0801*SI_PXM*SI_ER/SI_E96+S0901*RW_PXM*RW_ER/RW_E96)/(US_ER/US_E96)*(1+RES_US_PIM) ; - US_PIMA = US_PIM+T01*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/US_ER/US_IM ; - US_PIT = (US_IM*US_PIMA+US_IOIL*POIL/US_ER*US_E96+US_ICOM*PCOM/US_ER*US_E96)/US_IT ; - //log(US_TFP_FE) = RES_US_TFP_FE ; - US_TFP_FE = exp(RES_US_TFP_FE) ; - US_GDP_FE = US_TFP_FE*US_K^US_BETA*((1-US_UNR_FE/100)*US_LF)^(1-US_BETA) ; - US_LF = US_POP*US_PART/(1+US_DEM3) ; - US_CU = 100*US_GDP/US_GDP_FE ; - ( US_NFA-(US_NFA(-1))) = (US_XT*US_PXT-US_IT*US_PIT)*US_ER+(US_R+(US_PREM(-3)+US_PREM(-2)+US_PREM(-1))/3)*US_NFA(-1)+RES_US_NFA*US_INFL^TME*GREAL^TME ; - US_TB = US_XT*US_PXT-US_IT*US_PIT ; - US_CURBAL = ( US_NFA-(US_NFA(-1))) ; - US_ER = 1+RES_US_ER ; - US_RR = (0.8*US_RS(-1)+0.2*(US_RL(-3)+US_RL(-2)+US_RL(-1))/3)/100 ; - US_RCI = log(US_PXM)-log(US_PFM) ; - US_FACT = (US_IM*US_E96*S0101+JA_IM*JA_E96*S0102+GR_IM*GR_E96*S0103+FR_IM*FR_E96*S0104+IT_IM*IT_E96*S0105+UK_IM*UK_E96*S0106+CA_IM*CA_E96*S0107+SI_IM*SI_E96*S0108+(HO_IM+DC_IM)*RW_E96*S0109)/US_E96 ; - log(US_PFM) = W0101*log(US_ER/US_E96)+W0102*log(JA_PXM*JA_ER/JA_E96)+W0103*log(GR_PXM*GR_ER/GR_E96)+W0104*log(FR_PXM*FR_ER/FR_E96)+W0105*log(IT_PXM*IT_ER/IT_E96)+W0106*log(UK_PXM*UK_ER/UK_E96)+W0107*log(CA_PXM*CA_ER/CA_E96)+W0108*log(SI_PXM*SI_ER/SI_E96)+W0109*log(RW_PXM*RW_ER/RW_E96) ; - US_NEER = exp(+(log(US_ER/US_E96))-V0102*log(JA_ER/JA_E96)-V0103*log(GR_ER/GR_E96)-V0104*log(FR_ER/FR_E96)-V0105*log(IT_ER/IT_E96)-V0106*log(UK_ER/UK_E96)-V0107*log(CA_ER/CA_E96)-V0108*log(SI_ER/SI_E96)) ; - ( log(JA_CPI)-(log(JA_CPI(-1)))) = JA_CPI1*( log(JA_PIM)-(log(JA_PIM(-1))))+JA_CPI2*( log(JA_PGNP)-(log(JA_PGNP(-1))))+(1-JA_CPI1-JA_CPI2)*log(JA_CPI(-1)/JA_CPI(-2))+RES_JA_CPI ; - JA_UNR_A = JA_UNR_FE+JA_UNR_1*100*log(JA_GDP/JA_GDP_FE)+JA_UNR_2*(JA_UNR(-1)-JA_UNR_FE(-1))+RES_JA_UNR_A ; - JA_UNR = JA_UNR_A/*MAX(JA_UNR_A;0.1)*/ ; - ( log(JA_PGNPNO)-(log(JA_PGNPNO(-1)))) = JA_LAMBDA*(JA_DELTA_PI*( log(JA_PGNPNO(1))-(log(JA_PGNPNO)))+(1-JA_DELTA_PI)*( log(JA_PGNPNO(-1))-(log(JA_PGNPNO(-2)))))+(1-JA_LAMBDA)*( log(JA_PGNPNO(-1))-(log(JA_PGNPNO(-2))))+JA_GAMMA/100*(JA_NLIN-JA_UNR)/(JA_UNR-JA_PHI)+RES_JA_PGNP ; - JA_INFL = JA_MGROW/GREAL ; - JA_DLLF = log(JA_LF/JA_LF(-1)) ; - JA_DLGDP = log(JA_GDP/JA_GDP(-1)) ; - JA_C = JA_C_DI+JA_C_PI ; - JA_MPC = 1/JA_MPCINV ; - JA_MPCINV(1) = JA_MPCINV-1-((1-JA_SIGMA)*(JA_RSR+JA_PROB)-(RES_JA_MPC+JA_PROB))*JA_MPCINV/JA_SIGMA ; - JA_WH1(1) = JA_WH1*(1+JA_RSR+JA_ALPHA1+RES_JA_WH1+JA_PROB+exp(JA_DLLF_SS)-1)-(((1-JA_BETA)*JA_GDP*JA_PGNP-JA_TAXH)/JA_P+RES_JA_WK*JA_WK) ; - JA_WH2(1) = JA_WH2*(1+JA_RSR+JA_ALPHA2+RES_JA_WH2+JA_PROB+exp(JA_DLLF_SS)-1)-(((1-JA_BETA)*JA_GDP*JA_PGNP-JA_TAXH)/JA_P+RES_JA_WK*JA_WK) ; - JA_WH3(1) = JA_WH3*(1+JA_RSR+JA_ALPHA3+RES_JA_WH3+JA_PROB+exp(JA_DLLF_SS)-1)-(((1-JA_BETA)*JA_GDP*JA_PGNP-JA_TAXH)/JA_P+RES_JA_WK*JA_WK) ; - JA_C_DI = (JA_LAMBDA1*JA_BCHI1+JA_LAMBDA2*JA_BCHI2+JA_LAMBDA3*(1-JA_BCHI1-JA_BCHI2))*((1-JA_BETA)*JA_GDP*JA_PGNP-JA_TAXH)/JA_P+RES_JA_C_DI*GREAL^TME ; - JA_C_PI = JA_MPC*(JA_WK+(JA_M+JA_B+JA_NFA/JA_ER)/JA_P+JA_BCHI1*(1-JA_LAMBDA1)*JA_WH1+JA_BCHI2*(1-JA_LAMBDA2)*JA_WH2+(1-JA_BCHI1-JA_BCHI2)*(1-JA_LAMBDA3)*JA_WH3) ; - JA_WH = JA_BCHI1*JA_WH1+JA_BCHI2*JA_WH2+(1-JA_BCHI1-JA_BCHI2)*JA_WH3 ; - ( log(JA_COIL)-(log(JA_COIL(-1)))) = JA_COIL0+JA_COIL1*( log(JA_GDP)-(log(JA_GDP(-1))))+JA_COIL2*( log(POIL/JA_ER/JA_PGNP)-(log(POIL(-1)/JA_ER(-1)/JA_PGNP(-1))))+JA_COIL3*log(POIL(-1)/JA_ER(-1)/JA_PGNP(-1))+JA_COIL4*log(JA_GDP(-1)/JA_COIL(-1))+RES_JA_COIL ; - JA_INVEST/JA_K(-1)-(JA_DELTA_SS+GREAL_SS-1) = JA_K1*(JA_WK/JA_K(-1)-1)+JA_K2*(JA_WK(-1)/JA_K(-2)-1)+RES_JA_K ; - JA_MPK = JA_BETA*JA_GDP/JA_K ; - JA_Q = JA_CHI*(JA_INVEST/JA_K(-1)-(JA_DELTA_SS+GREAL_SS-1))+1 ; - JA_WK(1) = JA_WK*(1+JA_RSR+JA_K/JA_K(-1)-1+JA_DELTA+RES_JA_WK)-(JA_BETA*JA_GDP*JA_PGNP-JA_TAXK)/JA_P+(JA_CHI/2*((JA_Q-1)/JA_CHI)^2+JA_INVEST/JA_K(-1)*(JA_Q-1))*JA_K(-1)*JA_PGNP/JA_P ; - JA_INVEST = ( JA_K-(JA_K(-1)))+JA_DELTA*JA_K(-1) ; - ( log(JA_XM)-(log(JA_XM(-1)))) = JA_XM0+( log(JA_FACT)-(log(JA_FACT(-1))))+JA_XM1*( JA_RCI-(JA_RCI(-1)))+JA_XM2*(JA_XM3*JA_RCI(-1)+log(JA_FACT(-1))-log(JA_XM(-1)))+RES_JA_XM ; - JA_XMA = JA_XM+T02*(WTRADER-TRDER*GREAL^TME)/JA_E96 ; - JA_XT = JA_XMA+JA_XOIL ; - JA_ACT = JA_C_MPROP*JA_C+JA_INVEST_MPROP*JA_INVEST+JA_G_MPROP*JA_G+JA_XT_MPROP*JA_XT ; - ( log(JA_IM)-(log(JA_IM(-1)))) = JA_IM0+( log(JA_ACT)-(log(JA_ACT(-1))))+JA_IM1*( log(JA_PIMA/JA_PGNPNO)-(log(JA_PIMA(-1)/JA_PGNPNO(-1))))+JA_IM2*(JA_IM3*log(JA_PIMA(-1)/JA_PGNPNO(-1))+log(JA_ACT(-1))-log(JA_IM(-1)))+RES_JA_IM ; - JA_IOIL = JA_COIL+JA_XOIL-JA_PRODOIL+RES_JA_IOIL*GREAL^TME ; - ( log(JA_ICOM)-(log(JA_ICOM(-1)))) = JA_IC0+JA_IC2*( log(PCOM/JA_ER/JA_PGNP)-(log(PCOM(-1)/JA_ER(-1)/JA_PGNP(-1))))+JA_IC1*( log(JA_GDP)-(log(JA_GDP(-1))))+JA_IC3*log(PCOM(-1)/JA_ER(-1)/JA_PGNP(-1))+JA_IC4*log(JA_GDP(-1))+JA_IC5*log(JA_ICOM(-1))+RES_JA_ICOM-(JA_IC4+JA_IC5)*log(GREAL^TME) ; - JA_IT = JA_IM+JA_IOIL+JA_ICOM ; - JA_A = JA_C+JA_INVEST+JA_G ; - JA_GDP = JA_A+JA_XT-JA_IT ; - JA_GNP = JA_GDP+(US_R+(JA_PREM(-3)+JA_PREM(-2)+JA_PREM(-1))/3)*JA_NFA(-1)/JA_ER/JA_PGNP+RES_JA_GNP*GREAL^TME ; - JA_W = JA_WH+JA_WK+(JA_M+JA_B+JA_NFA/JA_ER)/JA_P ; - JA_YD = (JA_GDP*JA_PGNP-JA_TAX)/JA_P-JA_DELTA*JA_K(-1) ; - JA_GE = JA_P*JA_G+JA_R*JA_B(-1)+JA_GEXOG ; - JA_TAX = JA_TRATE*JA_PGNP*JA_GNP ; - JA_TAXK = JA_TAXK_ALPHA*JA_TAXK_SHAR*JA_TAX+(1-JA_TAXK_ALPHA)*JA_TRATEK*JA_BETA*JA_GDP*JA_PGNP ; - JA_TAXH = JA_TAX-JA_TAXK ; - JA_TRATE = JA_TRATE_EXOG*(1-JA_TRATE_ALPHA)+JA_TRATE_ALPHA*((JA_TRATE(-2)/5+JA_TRATE(-1)/5+JA_TRATE(0)/5+JA_TRATE(1)/5+JA_TRATE(2)/5)+TAU1*(JA_B(1)/(JA_GNP(1)*JA_PGNP(1))-JA_BT_GDP_RAT(1))+RES_JA_TRATE) ; - JA_BT = JA_BT_GDP_RAT*JA_GNP*JA_PGNP ; - ( JA_B-(JA_B(-1)))+( JA_M-(JA_M(-1))) = JA_R*JA_B(-1)+JA_P*JA_G-JA_TAX ; - JA_GDEF = ( JA_B+JA_M-(JA_B(-1)+JA_M(-1))) ; - log(JA_M/JA_P) = JA_M0+(1-JA_M4)*log(JA_A)+JA_M2*JA_RS+JA_M4*log(JA_M(-1)/JA_P(-1))+RES_JA_M ; - JA_RS = (1-JA_X_RS1)*JA_RS_EXOG+JA_X_RS1*(JA_RS(-1)+JA_RS1*log(JA_MT/JA_M)/JA_M2+JA_RS2*log(GR_ER/JA_ER/JA_PAR)+JA_RS3*log(US_ER/JA_ER/JA_PARUS)+JA_RS4*log(JA_NEER/JA_NEER_PAR)+JA_RS5*(JA_UNR_FE-JA_UNR-JA_UNR_GAP_EXOG)+JA_RS6*100*(log(JA_GDP)-log(JA_GDP_FE)-JA_GDP_GAP_EXOG)+JA_X_RS2*(-JA_RS(-1)+JA_RSCON+100*( log(JA_P(1))-(log(JA_P))))+100*(JA_RTARC1*(( log(JA_P)-(log(JA_P(-1))))-( log(JA_P_TAR)-(log(JA_P_TAR(-1))))-JA_P_GAP_EXOG)+JA_RTARC2*(( log(JA_PGNP)-(log(JA_PGNP(-1))))-( log(JA_PGNP_TAR)-(log(JA_PGNP_TAR(-1))))-JA_PGNP_GAP_EXOG)+JA_RTARC3*(( log(JA_CPI)-(log(JA_CPI(-1))))-( log(JA_CPI_TAR)-(log(JA_CPI_TAR(-1))))-JA_CPI_GAP_EXOG)+JA_RTARC4*(( log(JA_PGNPNO)-(log(JA_PGNPNO(-1))))-( log(JA_PGNPNO_TAR)-(log(JA_PGNPNO_TAR(-1))))-JA_PGNPNO_GAP_EXOG)+JA_RTARF1*(( log(JA_P(1))-(log(JA_P)))-( log(JA_P_TAR(1))-(log(JA_P_TAR)))-JA_P_GAP_EXOG(1))+JA_RTARF2*(( log(JA_PGNP(1))-(log(JA_PGNP)))-( log(JA_PGNP_TAR(1))-(log(JA_PGNP_TAR)))-JA_PGNP_GAP_EXOG(1))+JA_RTARF3*(( log(JA_CPI(1))-(log(JA_CPI)))-( log(JA_CPI_TAR(1))-(log(JA_CPI_TAR)))-JA_CPI_GAP_EXOG(1))+JA_RTARF4*(( log(JA_PGNPNO(1))-(log(JA_PGNPNO)))-( log(JA_PGNPNO_TAR(1))-(log(JA_PGNPNO_TAR)))-JA_PGNPNO_GAP_EXOG(1)))+JA_RSCON2+RES_JA_RS)+JA_RS1PERM*0 ; - JA_RL/100 = ((1+JA_RS/100)*(1+JA_RS(1)/100)*(1+JA_RS(2)/100)*(1+JA_RS(3)/100)*(1+JA_RS(4)/100)*(1+JA_RS(5)/100)*(1+JA_RS(6)/100)*(1+JA_RS(7)/100)*(1+JA_RS(8)/100)*(1+JA_RS(9)/100))^0.1*(1+JA_TPREM)-1+RES_JA_RL ; - JA_R = 0.5*JA_RS(-1)/100+0.5*(JA_RL(-3)/100+JA_RL(-2)/100+JA_RL(-1)/100)/3 ; - JA_RLR = (1+JA_RL/100)/(JA_P(10)/JA_P)^0.1-1 ; - JA_RSR = (1+JA_RS/100)/(JA_P(1)/JA_P)-1 ; - JA_PGNPNO = (JA_GDP*JA_PGNP-JA_PRODOIL*POIL/JA_ER*JA_E96)/(JA_GDP-JA_PRODOIL) ; - JA_PGNP = (JA_P*JA_A+JA_XT*JA_PXT-JA_IT*JA_PIT)/JA_GDP+RES_JA_P*JA_PGNP ; - ( log(JA_PXM)-(log(JA_PXM(-1)))) = JA_PXM0+JA_PXM1*( log(JA_PGNPNO)-(log(JA_PGNPNO(-1))))+(1-JA_PXM1)*( log(JA_PFM)-(log(JA_PFM(-1))))+JA_PXM2*log(JA_PGNPNO(-1)/JA_PXM(-1))+RES_JA_PXM ; - JA_PXT = (JA_XMA*JA_PXM+POIL/JA_ER*JA_E96*JA_XOIL)/JA_XT ; - JA_PIM = (S0102*US_PXM+S0202*JA_PXM*JA_ER/JA_E96+S0302*GR_PXM*GR_ER/GR_E96+S0402*FR_PXM*FR_ER/FR_E96+S0502*IT_PXM*IT_ER/IT_E96+S0602*UK_PXM*UK_ER/UK_E96+S0702*CA_PXM*CA_ER/CA_E96+S0802*SI_PXM*SI_ER/SI_E96+S0902*RW_PXM*RW_ER/RW_E96)/(JA_ER/JA_E96)*(1+RES_JA_PIM) ; - JA_PIMA = JA_PIM+T02*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/JA_ER/JA_IM ; - JA_PIT = (JA_IM*JA_PIMA+JA_IOIL*POIL/JA_ER*JA_E96+JA_ICOM*PCOM/JA_ER*JA_E96)/JA_IT ; - //log(JA_TFP_FE) = RES_JA_TFP_FE ; - JA_TFP_FE = exp(RES_JA_TFP_FE ); - JA_GDP_FE = JA_TFP_FE*JA_K^JA_BETA*((1-JA_UNR_FE/100)*JA_LF)^(1-JA_BETA) ; - JA_LF = JA_POP*JA_PART/(1+JA_DEM3) ; - JA_CU = 100*JA_GDP/JA_GDP_FE ; - ( JA_NFA-(JA_NFA(-1))) = (JA_XT*JA_PXT-JA_IT*JA_PIT)*JA_ER+(US_R+(JA_PREM(-3)+JA_PREM(-2)+JA_PREM(-1))/3)*JA_NFA(-1)+RES_JA_NFA*US_INFL^TME*GREAL^TME ; - JA_TB = JA_XT*JA_PXT-JA_IT*JA_PIT ; - JA_CURBAL = ( JA_NFA-(JA_NFA(-1))) ; - 1+US_RS/100 = (1+JA_RS/100)*JA_ER(1)/JA_ER-JA_PREM+RES_JA_ER ; - JA_RCI = log(JA_PXM)-log(JA_PFM) ; - JA_FACT = (US_IM*US_E96*S0201+JA_IM*JA_E96*S0202+GR_IM*GR_E96*S0203+FR_IM*FR_E96*S0204+IT_IM*IT_E96*S0205+UK_IM*UK_E96*S0206+CA_IM*CA_E96*S0207+SI_IM*SI_E96*S0208+(HO_IM+DC_IM)*RW_E96*S0209)/JA_E96 ; - log(JA_PFM) = W0201*log(US_PXM*US_ER/US_E96)+W0202*log(JA_ER/JA_E96)+W0203*log(GR_PXM*GR_ER/GR_E96)+W0204*log(FR_PXM*FR_ER/FR_E96)+W0205*log(IT_PXM*IT_ER/IT_E96)+W0206*log(UK_PXM*UK_ER/UK_E96)+W0207*log(CA_PXM*CA_ER/CA_E96)+W0208*log(SI_PXM*SI_ER/SI_E96)+W0209*log(RW_PXM*RW_ER/RW_E96) ; - JA_NEER = exp(-V0201*log(US_ER/US_E96)+log(JA_ER/JA_E96)-V0203*log(GR_ER/GR_E96)-V0204*log(FR_ER/FR_E96)-V0205*log(IT_ER/IT_E96)-V0206*log(UK_ER/UK_E96)-V0207*log(CA_ER/CA_E96)-V0208*log(SI_ER/SI_E96)) ; - ( log(GR_CPI)-(log(GR_CPI(-1)))) = GR_CPI1*( log(GR_PIM)-(log(GR_PIM(-1))))+GR_CPI2*( log(GR_PGNP)-(log(GR_PGNP(-1))))+(1-GR_CPI1-GR_CPI2)*log(GR_CPI(-1)/GR_CPI(-2))+RES_GR_CPI ; - GR_UNR_A = GR_UNR_FE+GR_UNR_1*100*log(GR_GDP/GR_GDP_FE)+GR_UNR_2*(GR_UNR(-1)-GR_UNR_FE(-1))+RES_GR_UNR_A ; - GR_UNR = GR_UNR_A/*MAX(GR_UNR_A;0.1)*/ ; - ( log(GR_PGNPNO)-(log(GR_PGNPNO(-1)))) = GR_LAMBDA*(GR_DELTA_PI*( log(GR_PGNPNO(1))-(log(GR_PGNPNO)))+(1-GR_DELTA_PI)*( log(GR_PGNPNO(-1))-(log(GR_PGNPNO(-2)))))+(1-GR_LAMBDA)*( log(GR_PGNPNO(-1))-(log(GR_PGNPNO(-2))))+GR_GAMMA/100*(GR_NLIN-GR_UNR)/(GR_UNR-GR_PHI)+RES_GR_PGNP ; - GR_INFL = GR_MGROW/GREAL ; - GR_DLLF = log(GR_LF/GR_LF(-1)) ; - GR_DLGDP = log(GR_GDP/GR_GDP(-1)) ; - GR_C = GR_C_DI+GR_C_PI ; - GR_MPC = 1/GR_MPCINV ; - GR_MPCINV(1) = GR_MPCINV-1-((1-GR_SIGMA)*(GR_RSR+GR_PROB)-(RES_GR_MPC+GR_PROB))*GR_MPCINV/GR_SIGMA ; - GR_WH1(1) = GR_WH1*(1+GR_RSR+GR_ALPHA1+RES_GR_WH1+GR_PROB+exp(GR_DLLF_SS)-1)-(((1-GR_BETA)*GR_GDP*GR_PGNP-GR_TAXH)/GR_P+RES_GR_WK*GR_WK) ; - GR_WH2(1) = GR_WH2*(1+GR_RSR+GR_ALPHA2+RES_GR_WH2+GR_PROB+exp(GR_DLLF_SS)-1)-(((1-GR_BETA)*GR_GDP*GR_PGNP-GR_TAXH)/GR_P+RES_GR_WK*GR_WK) ; - GR_WH3(1) = GR_WH3*(1+GR_RSR+GR_ALPHA3+RES_GR_WH3+GR_PROB+exp(GR_DLLF_SS)-1)-(((1-GR_BETA)*GR_GDP*GR_PGNP-GR_TAXH)/GR_P+RES_GR_WK*GR_WK) ; - GR_C_DI = (GR_LAMBDA1*GR_BCHI1+GR_LAMBDA2*GR_BCHI2+GR_LAMBDA3*(1-GR_BCHI1-GR_BCHI2))*((1-GR_BETA)*GR_GDP*GR_PGNP-GR_TAXH)/GR_P+RES_GR_C_DI*GREAL^TME ; - GR_C_PI = GR_MPC*(GR_WK+(GR_M+GR_B+GR_NFA/GR_ER)/GR_P+GR_BCHI1*(1-GR_LAMBDA1)*GR_WH1+GR_BCHI2*(1-GR_LAMBDA2)*GR_WH2+(1-GR_BCHI1-GR_BCHI2)*(1-GR_LAMBDA3)*GR_WH3) ; - GR_WH = GR_BCHI1*GR_WH1+GR_BCHI2*GR_WH2+(1-GR_BCHI1-GR_BCHI2)*GR_WH3 ; - ( log(GR_COIL)-(log(GR_COIL(-1)))) = GR_COIL0+GR_COIL1*( log(GR_GDP)-(log(GR_GDP(-1))))+GR_COIL2*( log(POIL/GR_ER/GR_PGNP)-(log(POIL(-1)/GR_ER(-1)/GR_PGNP(-1))))+GR_COIL3*log(POIL(-1)/GR_ER(-1)/GR_PGNP(-1))+GR_COIL4*log(GR_GDP(-1)/GR_COIL(-1))+RES_GR_COIL ; - GR_INVEST/GR_K(-1)-(GR_DELTA_SS+GREAL_SS-1) = GR_K1*(GR_WK/GR_K(-1)-1)+GR_K2*(GR_WK(-1)/GR_K(-2)-1)+RES_GR_K ; - GR_MPK = GR_BETA*GR_GDP/GR_K ; - GR_Q = GR_CHI*(GR_INVEST/GR_K(-1)-(GR_DELTA_SS+GREAL_SS-1))+1 ; - GR_WK(1) = GR_WK*(1+GR_RSR+GR_K/GR_K(-1)-1+GR_DELTA+RES_GR_WK)-(GR_BETA*GR_GDP*GR_PGNP-GR_TAXK)/GR_P+(GR_CHI/2*((GR_Q-1)/GR_CHI)^2+GR_INVEST/GR_K(-1)*(GR_Q-1))*GR_K(-1)*GR_PGNP/GR_P ; - GR_INVEST = ( GR_K-(GR_K(-1)))+GR_DELTA*GR_K(-1) ; - ( log(GR_XM)-(log(GR_XM(-1)))) = GR_XM0+( log(GR_FACT)-(log(GR_FACT(-1))))+GR_XM1*( GR_RCI-(GR_RCI(-1)))+GR_XM2*(GR_XM3*GR_RCI(-1)+log(GR_FACT(-1))-log(GR_XM(-1)))+RES_GR_XM ; - GR_XMA = GR_XM+T03*(WTRADER-TRDER*GREAL^TME)/GR_E96 ; - GR_XT = GR_XMA+GR_XOIL ; - GR_ACT = GR_C_MPROP*GR_C+GR_INVEST_MPROP*GR_INVEST+GR_G_MPROP*GR_G+GR_XT_MPROP*GR_XT ; - ( log(GR_IM)-(log(GR_IM(-1)))) = GR_IM0+( log(GR_ACT)-(log(GR_ACT(-1))))+GR_IM1*( log(GR_PIMA/GR_PGNPNO)-(log(GR_PIMA(-1)/GR_PGNPNO(-1))))+GR_IM2*(GR_IM3*log(GR_PIMA(-1)/GR_PGNPNO(-1))+log(GR_ACT(-1))-log(GR_IM(-1)))+RES_GR_IM ; - GR_IOIL = GR_COIL+GR_XOIL-GR_PRODOIL+RES_GR_IOIL*GREAL^TME ; - ( log(GR_ICOM)-(log(GR_ICOM(-1)))) = GR_IC0+GR_IC2*( log(PCOM/GR_ER/GR_PGNP)-(log(PCOM(-1)/GR_ER(-1)/GR_PGNP(-1))))+GR_IC1*( log(GR_GDP)-(log(GR_GDP(-1))))+GR_IC3*log(PCOM(-1)/GR_ER(-1)/GR_PGNP(-1))+GR_IC4*log(GR_GDP(-1))+GR_IC5*log(GR_ICOM(-1))+RES_GR_ICOM-(GR_IC4+GR_IC5)*log(GREAL^TME) ; - GR_IT = GR_IM+GR_IOIL+GR_ICOM ; - GR_A = GR_C+GR_INVEST+GR_G ; - GR_GDP = GR_A+GR_XT-GR_IT ; - GR_GNP = GR_GDP+(US_R+(GR_PREM(-3)+GR_PREM(-2)+GR_PREM(-1))/3)*GR_NFA(-1)/GR_ER/GR_PGNP+RES_GR_GNP*GREAL^TME ; - GR_W = GR_WH+GR_WK+(GR_M+GR_B+GR_NFA/GR_ER)/GR_P ; - GR_YD = (GR_GDP*GR_PGNP-GR_TAX)/GR_P-GR_DELTA*GR_K(-1) ; - GR_GE = GR_P*GR_G+GR_R*GR_B(-1)+GR_GEXOG ; - GR_TAX = GR_TRATE*GR_PGNP*GR_GNP ; - GR_TAXK = GR_TAXK_ALPHA*GR_TAXK_SHAR*GR_TAX+(1-GR_TAXK_ALPHA)*GR_TRATEK*GR_BETA*GR_GDP*GR_PGNP ; - GR_TAXH = GR_TAX-GR_TAXK ; - GR_TRATE = GR_TRATE_EXOG*(1-GR_TRATE_ALPHA)+GR_TRATE_ALPHA*((GR_TRATE(-2)/5+GR_TRATE(-1)/5+GR_TRATE(0)/5+GR_TRATE(1)/5+GR_TRATE(2)/5)+TAU1*(GR_B(1)/(GR_GNP(1)*GR_PGNP(1))-GR_BT_GDP_RAT(1))+RES_GR_TRATE) ; - GR_BT = GR_BT_GDP_RAT*GR_GNP*GR_PGNP ; - ( GR_B-(GR_B(-1)))+( GR_M-(GR_M(-1))) = GR_R*GR_B(-1)+GR_P*GR_G-GR_TAX ; - GR_GDEF = ( GR_B+GR_M-(GR_B(-1)+GR_M(-1))) ; - log(GR_M/GR_P) = GR_M0+(1-GR_M4)*log(GR_A)+GR_M2*GR_RS+GR_M4*log(GR_M(-1)/GR_P(-1))+RES_GR_M ; - GR_RS = (1-GR_X_RS1)*GR_RS_EXOG+GR_X_RS1*(GR_RS(-1)+GR_RS1*log(GR_MT/GR_M)/GR_M2+GR_RS2*log(GR_ER/GR_ER/GR_PAR)+GR_RS3*log(US_ER/GR_ER/GR_PARUS)+GR_RS4*log(GR_NEER/GR_NEER_PAR)+GR_RS5*(GR_UNR_FE-GR_UNR-GR_UNR_GAP_EXOG)+GR_RS6*100*(log(GR_GDP)-log(GR_GDP_FE)-GR_GDP_GAP_EXOG)+GR_X_RS2*(-GR_RS(-1)+GR_RSCON+100*( log(GR_P(1))-(log(GR_P))))+100*(GR_RTARC1*(( log(GR_P)-(log(GR_P(-1))))-( log(GR_P_TAR)-(log(GR_P_TAR(-1))))-GR_P_GAP_EXOG)+GR_RTARC2*(( log(GR_PGNP)-(log(GR_PGNP(-1))))-( log(GR_PGNP_TAR)-(log(GR_PGNP_TAR(-1))))-GR_PGNP_GAP_EXOG)+GR_RTARC3*(( log(GR_CPI)-(log(GR_CPI(-1))))-( log(GR_CPI_TAR)-(log(GR_CPI_TAR(-1))))-GR_CPI_GAP_EXOG)+GR_RTARC4*(( log(GR_PGNPNO)-(log(GR_PGNPNO(-1))))-( log(GR_PGNPNO_TAR)-(log(GR_PGNPNO_TAR(-1))))-GR_PGNPNO_GAP_EXOG)+GR_RTARF1*(( log(GR_P(1))-(log(GR_P)))-( log(GR_P_TAR(1))-(log(GR_P_TAR)))-GR_P_GAP_EXOG(1))+GR_RTARF2*(( log(GR_PGNP(1))-(log(GR_PGNP)))-( log(GR_PGNP_TAR(1))-(log(GR_PGNP_TAR)))-GR_PGNP_GAP_EXOG(1))+GR_RTARF3*(( log(GR_CPI(1))-(log(GR_CPI)))-( log(GR_CPI_TAR(1))-(log(GR_CPI_TAR)))-GR_CPI_GAP_EXOG(1))+GR_RTARF4*(( log(GR_PGNPNO(1))-(log(GR_PGNPNO)))-( log(GR_PGNPNO_TAR(1))-(log(GR_PGNPNO_TAR)))-GR_PGNPNO_GAP_EXOG(1)))+GR_RSCON2+RES_GR_RS)+GR_RS1PERM*0 ; - GR_RL/100 = ((1+GR_RS/100)*(1+GR_RS(1)/100)*(1+GR_RS(2)/100)*(1+GR_RS(3)/100)*(1+GR_RS(4)/100)*(1+GR_RS(5)/100)*(1+GR_RS(6)/100)*(1+GR_RS(7)/100)*(1+GR_RS(8)/100)*(1+GR_RS(9)/100))^0.1*(1+GR_TPREM)-1+RES_GR_RL ; - GR_R = 0.5*GR_RS(-1)/100+0.5*(GR_RL(-3)/100+GR_RL(-2)/100+GR_RL(-1)/100)/3 ; - GR_RLR = (1+GR_RL/100)/(GR_P(10)/GR_P)^0.1-1 ; - GR_RSR = (1+GR_RS/100)/(GR_P(1)/GR_P)-1 ; - GR_PGNPNO = (GR_GDP*GR_PGNP-GR_PRODOIL*POIL/GR_ER*GR_E96)/(GR_GDP-GR_PRODOIL) ; - GR_PGNP = (GR_P*GR_A+GR_XT*GR_PXT-GR_IT*GR_PIT)/GR_GDP+RES_GR_P*GR_PGNP ; - ( log(GR_PXM)-(log(GR_PXM(-1)))) = GR_PXM0+GR_PXM1*( log(GR_PGNPNO)-(log(GR_PGNPNO(-1))))+(1-GR_PXM1)*( log(GR_PFM)-(log(GR_PFM(-1))))+GR_PXM2*log(GR_PGNPNO(-1)/GR_PXM(-1))+RES_GR_PXM ; - GR_PXT = (GR_XMA*GR_PXM+POIL/GR_ER*GR_E96*GR_XOIL)/GR_XT ; - GR_PIM = (S0103*US_PXM+S0203*JA_PXM*JA_ER/JA_E96+S0303*GR_PXM*GR_ER/GR_E96+S0403*FR_PXM*FR_ER/FR_E96+S0503*IT_PXM*IT_ER/IT_E96+S0603*UK_PXM*UK_ER/UK_E96+S0703*CA_PXM*CA_ER/CA_E96+S0803*SI_PXM*SI_ER/SI_E96+S0903*RW_PXM*RW_ER/RW_E96)/(GR_ER/GR_E96)*(1+RES_GR_PIM) ; - GR_PIMA = GR_PIM+T03*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/GR_ER/GR_IM ; - GR_PIT = (GR_IM*GR_PIMA+GR_IOIL*POIL/GR_ER*GR_E96+GR_ICOM*PCOM/GR_ER*GR_E96)/GR_IT ; - //log(GR_TFP_FE) = RES_GR_TFP_FE ; - GR_TFP_FE = exp(RES_GR_TFP_FE) ; - GR_GDP_FE = GR_TFP_FE*GR_K^GR_BETA*((1-GR_UNR_FE/100)*GR_LF)^(1-GR_BETA) ; - GR_LF = GR_POP*GR_PART/(1+GR_DEM3) ; - GR_CU = 100*GR_GDP/GR_GDP_FE ; - ( GR_NFA-(GR_NFA(-1))) = (GR_XT*GR_PXT-GR_IT*GR_PIT)*GR_ER+(US_R+(GR_PREM(-3)+GR_PREM(-2)+GR_PREM(-1))/3)*GR_NFA(-1)+RES_GR_NFA*US_INFL^TME*GREAL^TME ; - GR_TB = GR_XT*GR_PXT-GR_IT*GR_PIT ; - GR_CURBAL = ( GR_NFA-(GR_NFA(-1))) ; - 1+US_RS/100 = (1+GR_RS/100)*GR_ER(1)/GR_ER-GR_PREM+RES_GR_ER ; - GR_RCI = log(GR_PXM)-log(GR_PFM) ; - GR_FACT = (US_IM*US_E96*S0301+JA_IM*JA_E96*S0302+GR_IM*GR_E96*S0303+FR_IM*FR_E96*S0304+IT_IM*IT_E96*S0305+UK_IM*UK_E96*S0306+CA_IM*CA_E96*S0307+SI_IM*SI_E96*S0308+(HO_IM+DC_IM)*RW_E96*S0309)/GR_E96 ; - log(GR_PFM) = W0301*log(US_PXM*US_ER/US_E96)+W0302*log(JA_PXM*JA_ER/JA_E96)+W0303*log(GR_ER/GR_E96)+W0304*log(FR_PXM*FR_ER/FR_E96)+W0305*log(IT_PXM*IT_ER/IT_E96)+W0306*log(UK_PXM*UK_ER/UK_E96)+W0307*log(CA_PXM*CA_ER/CA_E96)+W0308*log(SI_PXM*SI_ER/SI_E96)+W0309*log(RW_PXM*RW_ER/RW_E96) ; - GR_NEER = exp(-V0301*log(US_ER/US_E96)-V0302*log(JA_ER/JA_E96)+log(GR_ER/GR_E96)-V0304*log(FR_ER/FR_E96)-V0305*log(IT_ER/IT_E96)-V0306*log(UK_ER/UK_E96)-V0307*log(CA_ER/CA_E96)-V0308*log(SI_ER/SI_E96)) ; - ( log(FR_CPI)-(log(FR_CPI(-1)))) = FR_CPI1*( log(FR_PIM)-(log(FR_PIM(-1))))+FR_CPI2*( log(FR_PGNP)-(log(FR_PGNP(-1))))+(1-FR_CPI1-FR_CPI2)*log(FR_CPI(-1)/FR_CPI(-2))+RES_FR_CPI ; - FR_UNR_A = FR_UNR_FE+FR_UNR_1*100*log(FR_GDP/FR_GDP_FE)+FR_UNR_2*(FR_UNR(-1)-FR_UNR_FE(-1))+RES_FR_UNR_A ; - FR_UNR = FR_UNR_A/*MAX(FR_UNR_A;0.1)*/ ; - ( log(FR_PGNPNO)-(log(FR_PGNPNO(-1)))) = FR_LAMBDA*(FR_DELTA_PI*( log(FR_PGNPNO(1))-(log(FR_PGNPNO)))+(1-FR_DELTA_PI)*( log(FR_PGNPNO(-1))-(log(FR_PGNPNO(-2)))))+(1-FR_LAMBDA)*( log(FR_PGNPNO(-1))-(log(FR_PGNPNO(-2))))+FR_GAMMA/100*(FR_NLIN-FR_UNR)/(FR_UNR-FR_PHI)+RES_FR_PGNP ; - FR_INFL = FR_MGROW/GREAL ; - FR_DLLF = log(FR_LF/FR_LF(-1)) ; - FR_DLGDP = log(FR_GDP/FR_GDP(-1)) ; - FR_C = FR_C_DI+FR_C_PI ; - FR_MPC = 1/FR_MPCINV ; - FR_MPCINV(1) = FR_MPCINV-1-((1-FR_SIGMA)*(FR_RSR+FR_PROB)-(RES_FR_MPC+FR_PROB))*FR_MPCINV/FR_SIGMA ; - FR_WH1(1) = FR_WH1*(1+FR_RSR+FR_ALPHA1+RES_FR_WH1+FR_PROB+exp(FR_DLLF_SS)-1)-(((1-FR_BETA)*FR_GDP*FR_PGNP-FR_TAXH)/FR_P+RES_FR_WK*FR_WK) ; - FR_WH2(1) = FR_WH2*(1+FR_RSR+FR_ALPHA2+RES_FR_WH2+FR_PROB+exp(FR_DLLF_SS)-1)-(((1-FR_BETA)*FR_GDP*FR_PGNP-FR_TAXH)/FR_P+RES_FR_WK*FR_WK) ; - FR_WH3(1) = FR_WH3*(1+FR_RSR+FR_ALPHA3+RES_FR_WH3+FR_PROB+exp(FR_DLLF_SS)-1)-(((1-FR_BETA)*FR_GDP*FR_PGNP-FR_TAXH)/FR_P+RES_FR_WK*FR_WK) ; - FR_C_DI = (FR_LAMBDA1*FR_BCHI1+FR_LAMBDA2*FR_BCHI2+FR_LAMBDA3*(1-FR_BCHI1-FR_BCHI2))*((1-FR_BETA)*FR_GDP*FR_PGNP-FR_TAXH)/FR_P+RES_FR_C_DI*GREAL^TME ; - FR_C_PI = FR_MPC*(FR_WK+(FR_M+FR_B+FR_NFA/FR_ER)/FR_P+FR_BCHI1*(1-FR_LAMBDA1)*FR_WH1+FR_BCHI2*(1-FR_LAMBDA2)*FR_WH2+(1-FR_BCHI1-FR_BCHI2)*(1-FR_LAMBDA3)*FR_WH3) ; - FR_WH = FR_BCHI1*FR_WH1+FR_BCHI2*FR_WH2+(1-FR_BCHI1-FR_BCHI2)*FR_WH3 ; - ( log(FR_COIL)-(log(FR_COIL(-1)))) = FR_COIL0+FR_COIL1*( log(FR_GDP)-(log(FR_GDP(-1))))+FR_COIL2*( log(POIL/FR_ER/FR_PGNP)-(log(POIL(-1)/FR_ER(-1)/FR_PGNP(-1))))+FR_COIL3*log(POIL(-1)/FR_ER(-1)/FR_PGNP(-1))+FR_COIL4*log(FR_GDP(-1)/FR_COIL(-1))+RES_FR_COIL ; - FR_INVEST/FR_K(-1)-(FR_DELTA_SS+GREAL_SS-1) = FR_K1*(FR_WK/FR_K(-1)-1)+FR_K2*(FR_WK(-1)/FR_K(-2)-1)+RES_FR_K ; - FR_MPK = FR_BETA*FR_GDP/FR_K ; - FR_Q = FR_CHI*(FR_INVEST/FR_K(-1)-(FR_DELTA_SS+GREAL_SS-1))+1 ; - FR_WK(1) = FR_WK*(1+FR_RSR+FR_K/FR_K(-1)-1+FR_DELTA+RES_FR_WK)-(FR_BETA*FR_GDP*FR_PGNP-FR_TAXK)/FR_P+(FR_CHI/2*((FR_Q-1)/FR_CHI)^2+FR_INVEST/FR_K(-1)*(FR_Q-1))*FR_K(-1)*FR_PGNP/FR_P ; - FR_INVEST = ( FR_K-(FR_K(-1)))+FR_DELTA*FR_K(-1) ; - ( log(FR_XM)-(log(FR_XM(-1)))) = FR_XM0+( log(FR_FACT)-(log(FR_FACT(-1))))+FR_XM1*( FR_RCI-(FR_RCI(-1)))+FR_XM2*(FR_XM3*FR_RCI(-1)+log(FR_FACT(-1))-log(FR_XM(-1)))+RES_FR_XM ; - FR_XMA = FR_XM+T04*(WTRADER-TRDER*GREAL^TME)/FR_E96 ; - FR_XT = FR_XMA+FR_XOIL ; - FR_ACT = FR_C_MPROP*FR_C+FR_INVEST_MPROP*FR_INVEST+FR_G_MPROP*FR_G+FR_XT_MPROP*FR_XT ; - ( log(FR_IM)-(log(FR_IM(-1)))) = FR_IM0+( log(FR_ACT)-(log(FR_ACT(-1))))+FR_IM1*( log(FR_PIMA/FR_PGNPNO)-(log(FR_PIMA(-1)/FR_PGNPNO(-1))))+FR_IM2*(FR_IM3*log(FR_PIMA(-1)/FR_PGNPNO(-1))+log(FR_ACT(-1))-log(FR_IM(-1)))+RES_FR_IM ; - FR_IOIL = FR_COIL+FR_XOIL-FR_PRODOIL+RES_FR_IOIL*GREAL^TME ; - ( log(FR_ICOM)-(log(FR_ICOM(-1)))) = FR_IC0+FR_IC2*( log(PCOM/FR_ER/FR_PGNP)-(log(PCOM(-1)/FR_ER(-1)/FR_PGNP(-1))))+FR_IC1*( log(FR_GDP)-(log(FR_GDP(-1))))+FR_IC3*log(PCOM(-1)/FR_ER(-1)/FR_PGNP(-1))+FR_IC4*log(FR_GDP(-1))+FR_IC5*log(FR_ICOM(-1))+RES_FR_ICOM-(FR_IC4+FR_IC5)*log(GREAL^TME) ; - FR_IT = FR_IM+FR_IOIL+FR_ICOM ; - FR_A = FR_C+FR_INVEST+FR_G ; - FR_GDP = FR_A+FR_XT-FR_IT ; - FR_GNP = FR_GDP+(US_R+(FR_PREM(-3)+FR_PREM(-2)+FR_PREM(-1))/3)*FR_NFA(-1)/FR_ER/FR_PGNP+RES_FR_GNP*GREAL^TME ; - FR_W = FR_WH+FR_WK+(FR_M+FR_B+FR_NFA/FR_ER)/FR_P ; - FR_YD = (FR_GDP*FR_PGNP-FR_TAX)/FR_P-FR_DELTA*FR_K(-1) ; - FR_GE = FR_P*FR_G+FR_R*FR_B(-1)+FR_GEXOG ; - FR_TAX = FR_TRATE*FR_PGNP*FR_GNP ; - FR_TAXK = FR_TAXK_ALPHA*FR_TAXK_SHAR*FR_TAX+(1-FR_TAXK_ALPHA)*FR_TRATEK*FR_BETA*FR_GDP*FR_PGNP ; - FR_TAXH = FR_TAX-FR_TAXK ; - FR_TRATE = FR_TRATE_EXOG*(1-FR_TRATE_ALPHA)+FR_TRATE_ALPHA*((FR_TRATE(-2)/5+FR_TRATE(-1)/5+FR_TRATE(0)/5+FR_TRATE(1)/5+FR_TRATE(2)/5)+TAU1*(FR_B(1)/(FR_GNP(1)*FR_PGNP(1))-FR_BT_GDP_RAT(1))+RES_FR_TRATE) ; - FR_BT = FR_BT_GDP_RAT*FR_GNP*FR_PGNP ; - ( FR_B-(FR_B(-1)))+( FR_M-(FR_M(-1))) = FR_R*FR_B(-1)+FR_P*FR_G-FR_TAX ; - FR_GDEF = ( FR_B+FR_M-(FR_B(-1)+FR_M(-1))) ; - log(FR_M/FR_P) = FR_M0+(1-FR_M4)*log(FR_A)+FR_M2*FR_RS+FR_M4*log(FR_M(-1)/FR_P(-1))+RES_FR_M ; - FR_RS = (1-FR_X_RS1)*FR_RS_EXOG+FR_X_RS1*(FR_RS(-1)+FR_RS1*log(FR_MT/FR_M)/FR_M2+FR_RS2*log(GR_ER/FR_ER/FR_PAR)+FR_RS3*log(US_ER/FR_ER/FR_PARUS)+FR_RS4*log(FR_NEER/FR_NEER_PAR)+FR_RS5*(FR_UNR_FE-FR_UNR-FR_UNR_GAP_EXOG)+FR_RS6*100*(log(FR_GDP)-log(FR_GDP_FE)-FR_GDP_GAP_EXOG)+FR_X_RS2*(-FR_RS(-1)+FR_RSCON+100*( log(FR_P(1))-(log(FR_P))))+100*(FR_RTARC1*(( log(FR_P)-(log(FR_P(-1))))-( log(FR_P_TAR)-(log(FR_P_TAR(-1))))-FR_P_GAP_EXOG)+FR_RTARC2*(( log(FR_PGNP)-(log(FR_PGNP(-1))))-( log(FR_PGNP_TAR)-(log(FR_PGNP_TAR(-1))))-FR_PGNP_GAP_EXOG)+FR_RTARC3*(( log(FR_CPI)-(log(FR_CPI(-1))))-( log(FR_CPI_TAR)-(log(FR_CPI_TAR(-1))))-FR_CPI_GAP_EXOG)+FR_RTARC4*(( log(FR_PGNPNO)-(log(FR_PGNPNO(-1))))-( log(FR_PGNPNO_TAR)-(log(FR_PGNPNO_TAR(-1))))-FR_PGNPNO_GAP_EXOG)+FR_RTARF1*(( log(FR_P(1))-(log(FR_P)))-( log(FR_P_TAR(1))-(log(FR_P_TAR)))-FR_P_GAP_EXOG(1))+FR_RTARF2*(( log(FR_PGNP(1))-(log(FR_PGNP)))-( log(FR_PGNP_TAR(1))-(log(FR_PGNP_TAR)))-FR_PGNP_GAP_EXOG(1))+FR_RTARF3*(( log(FR_CPI(1))-(log(FR_CPI)))-( log(FR_CPI_TAR(1))-(log(FR_CPI_TAR)))-FR_CPI_GAP_EXOG(1))+FR_RTARF4*(( log(FR_PGNPNO(1))-(log(FR_PGNPNO)))-( log(FR_PGNPNO_TAR(1))-(log(FR_PGNPNO_TAR)))-FR_PGNPNO_GAP_EXOG(1)))+FR_RSCON2+RES_FR_RS)+FR_RS1PERM*0 ; - FR_RL/100 = ((1+FR_RS/100)*(1+FR_RS(1)/100)*(1+FR_RS(2)/100)*(1+FR_RS(3)/100)*(1+FR_RS(4)/100)*(1+FR_RS(5)/100)*(1+FR_RS(6)/100)*(1+FR_RS(7)/100)*(1+FR_RS(8)/100)*(1+FR_RS(9)/100))^0.1*(1+FR_TPREM)-1+RES_FR_RL ; - FR_R = 0.5*FR_RS(-1)/100+0.5*(FR_RL(-3)/100+FR_RL(-2)/100+FR_RL(-1)/100)/3 ; - FR_RLR = (1+FR_RL/100)/(FR_P(10)/FR_P)^0.1-1 ; - FR_RSR = (1+FR_RS/100)/(FR_P(1)/FR_P)-1 ; - FR_PGNPNO = (FR_GDP*FR_PGNP-FR_PRODOIL*POIL/FR_ER*FR_E96)/(FR_GDP-FR_PRODOIL) ; - FR_PGNP = (FR_P*FR_A+FR_XT*FR_PXT-FR_IT*FR_PIT)/FR_GDP+RES_FR_P*FR_PGNP ; - ( log(FR_PXM)-(log(FR_PXM(-1)))) = FR_PXM0+FR_PXM1*( log(FR_PGNPNO)-(log(FR_PGNPNO(-1))))+(1-FR_PXM1)*( log(FR_PFM)-(log(FR_PFM(-1))))+FR_PXM2*log(FR_PGNPNO(-1)/FR_PXM(-1))+RES_FR_PXM ; - FR_PXT = (FR_XMA*FR_PXM+POIL/FR_ER*FR_E96*FR_XOIL)/FR_XT ; - FR_PIM = (S0104*US_PXM+S0204*JA_PXM*JA_ER/JA_E96+S0304*GR_PXM*GR_ER/GR_E96+S0404*FR_PXM*FR_ER/FR_E96+S0504*IT_PXM*IT_ER/IT_E96+S0604*UK_PXM*UK_ER/UK_E96+S0704*CA_PXM*CA_ER/CA_E96+S0804*SI_PXM*SI_ER/SI_E96+S0904*RW_PXM*RW_ER/RW_E96)/(FR_ER/FR_E96)*(1+RES_FR_PIM) ; - FR_PIMA = FR_PIM+T04*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/FR_ER/FR_IM ; - FR_PIT = (FR_IM*FR_PIMA+FR_IOIL*POIL/FR_ER*FR_E96+FR_ICOM*PCOM/FR_ER*FR_E96)/FR_IT ; - //log(FR_TFP_FE) = RES_FR_TFP_FE ; - FR_TFP_FE = exp(RES_FR_TFP_FE) ; - FR_GDP_FE = FR_TFP_FE*FR_K^FR_BETA*((1-FR_UNR_FE/100)*FR_LF)^(1-FR_BETA) ; - FR_LF = FR_POP*FR_PART/(1+FR_DEM3) ; - FR_CU = 100*FR_GDP/FR_GDP_FE ; - ( FR_NFA-(FR_NFA(-1))) = (FR_XT*FR_PXT-FR_IT*FR_PIT)*FR_ER+(US_R+(FR_PREM(-3)+FR_PREM(-2)+FR_PREM(-1))/3)*FR_NFA(-1)+RES_FR_NFA*US_INFL^TME*GREAL^TME ; - FR_TB = FR_XT*FR_PXT-FR_IT*FR_PIT ; - FR_CURBAL = ( FR_NFA-(FR_NFA(-1))) ; - 1+US_RS/100 = (1+FR_RS/100)*FR_ER(1)/FR_ER-FR_PREM+RES_FR_ER ; - FR_RCI = log(FR_PXM)-log(FR_PFM) ; - FR_FACT = (US_IM*US_E96*S0401+JA_IM*JA_E96*S0402+GR_IM*GR_E96*S0403+FR_IM*FR_E96*S0404+IT_IM*IT_E96*S0405+UK_IM*UK_E96*S0406+CA_IM*CA_E96*S0407+SI_IM*SI_E96*S0408+(HO_IM+DC_IM)*RW_E96*S0409)/FR_E96 ; - log(FR_PFM) = W0401*log(US_PXM*US_ER/US_E96)+W0402*log(JA_PXM*JA_ER/JA_E96)+W0403*log(GR_PXM*GR_ER/GR_E96)+W0404*log(FR_ER/FR_E96)+W0405*log(IT_PXM*IT_ER/IT_E96)+W0406*log(UK_PXM*UK_ER/UK_E96)+W0407*log(CA_PXM*CA_ER/CA_E96)+W0408*log(SI_PXM*SI_ER/SI_E96)+W0409*log(RW_PXM*RW_ER/RW_E96) ; - FR_NEER = exp(-V0401*log(US_ER/US_E96)-V0402*log(JA_ER/JA_E96)-V0403*log(GR_ER/GR_E96)+log(FR_ER/FR_E96)-V0405*log(IT_ER/IT_E96)-V0406*log(UK_ER/UK_E96)-V0407*log(CA_ER/CA_E96)-V0408*log(SI_ER/SI_E96)) ; - ( log(IT_CPI)-(log(IT_CPI(-1)))) = IT_CPI1*( log(IT_PIM)-(log(IT_PIM(-1))))+IT_CPI2*( log(IT_PGNP)-(log(IT_PGNP(-1))))+(1-IT_CPI1-IT_CPI2)*log(IT_CPI(-1)/IT_CPI(-2))+RES_IT_CPI ; - IT_UNR_A = IT_UNR_FE+IT_UNR_1*100*log(IT_GDP/IT_GDP_FE)+IT_UNR_2*(IT_UNR(-1)-IT_UNR_FE(-1))+RES_IT_UNR_A ; - IT_UNR = IT_UNR_A/*MAX(IT_UNR_A;0.1)*/ ; - ( log(IT_PGNPNO)-(log(IT_PGNPNO(-1)))) = IT_LAMBDA*(IT_DELTA_PI*( log(IT_PGNPNO(1))-(log(IT_PGNPNO)))+(1-IT_DELTA_PI)*( log(IT_PGNPNO(-1))-(log(IT_PGNPNO(-2)))))+(1-IT_LAMBDA)*( log(IT_PGNPNO(-1))-(log(IT_PGNPNO(-2))))+IT_GAMMA/100*(IT_NLIN-IT_UNR)/(IT_UNR-IT_PHI)+RES_IT_PGNP ; - IT_INFL = IT_MGROW/GREAL ; - IT_DLLF = log(IT_LF/IT_LF(-1)) ; - IT_DLGDP = log(IT_GDP/IT_GDP(-1)) ; - IT_C = IT_C_DI+IT_C_PI ; - IT_MPC = 1/IT_MPCINV ; - IT_MPCINV(1) = IT_MPCINV-1-((1-IT_SIGMA)*(IT_RSR+IT_PROB)-(RES_IT_MPC+IT_PROB))*IT_MPCINV/IT_SIGMA ; - IT_WH1(1) = IT_WH1*(1+IT_RSR+IT_ALPHA1+RES_IT_WH1+IT_PROB+exp(IT_DLLF_SS)-1)-(((1-IT_BETA)*IT_GDP*IT_PGNP-IT_TAXH)/IT_P+RES_IT_WK*IT_WK) ; - IT_WH2(1) = IT_WH2*(1+IT_RSR+IT_ALPHA2+RES_IT_WH2+IT_PROB+exp(IT_DLLF_SS)-1)-(((1-IT_BETA)*IT_GDP*IT_PGNP-IT_TAXH)/IT_P+RES_IT_WK*IT_WK) ; - IT_WH3(1) = IT_WH3*(1+IT_RSR+IT_ALPHA3+RES_IT_WH3+IT_PROB+exp(IT_DLLF_SS)-1)-(((1-IT_BETA)*IT_GDP*IT_PGNP-IT_TAXH)/IT_P+RES_IT_WK*IT_WK) ; - IT_C_DI = (IT_LAMBDA1*IT_BCHI1+IT_LAMBDA2*IT_BCHI2+IT_LAMBDA3*(1-IT_BCHI1-IT_BCHI2))*((1-IT_BETA)*IT_GDP*IT_PGNP-IT_TAXH)/IT_P+RES_IT_C_DI*GREAL^TME ; - IT_C_PI = IT_MPC*(IT_WK+(IT_M+IT_B+IT_NFA/IT_ER)/IT_P+IT_BCHI1*(1-IT_LAMBDA1)*IT_WH1+IT_BCHI2*(1-IT_LAMBDA2)*IT_WH2+(1-IT_BCHI1-IT_BCHI2)*(1-IT_LAMBDA3)*IT_WH3) ; - IT_WH = IT_BCHI1*IT_WH1+IT_BCHI2*IT_WH2+(1-IT_BCHI1-IT_BCHI2)*IT_WH3 ; - ( log(IT_COIL)-(log(IT_COIL(-1)))) = IT_COIL0+IT_COIL1*( log(IT_GDP)-(log(IT_GDP(-1))))+IT_COIL2*( log(POIL/IT_ER/IT_PGNP)-(log(POIL(-1)/IT_ER(-1)/IT_PGNP(-1))))+IT_COIL3*log(POIL(-1)/IT_ER(-1)/IT_PGNP(-1))+IT_COIL4*log(IT_GDP(-1)/IT_COIL(-1))+RES_IT_COIL ; - IT_INVEST/IT_K(-1)-(IT_DELTA_SS+GREAL_SS-1) = IT_K1*(IT_WK/IT_K(-1)-1)+IT_K2*(IT_WK(-1)/IT_K(-2)-1)+RES_IT_K ; - IT_MPK = IT_BETA*IT_GDP/IT_K ; - IT_Q = IT_CHI*(IT_INVEST/IT_K(-1)-(IT_DELTA_SS+GREAL_SS-1))+1 ; - IT_WK(1) = IT_WK*(1+IT_RSR+IT_K/IT_K(-1)-1+IT_DELTA+RES_IT_WK)-(IT_BETA*IT_GDP*IT_PGNP-IT_TAXK)/IT_P+(IT_CHI/2*((IT_Q-1)/IT_CHI)^2+IT_INVEST/IT_K(-1)*(IT_Q-1))*IT_K(-1)*IT_PGNP/IT_P ; - IT_INVEST = ( IT_K-(IT_K(-1)))+IT_DELTA*IT_K(-1) ; - ( log(IT_XM)-(log(IT_XM(-1)))) = IT_XM0+( log(IT_FACT)-(log(IT_FACT(-1))))+IT_XM1*( IT_RCI-(IT_RCI(-1)))+IT_XM2*(IT_XM3*IT_RCI(-1)+log(IT_FACT(-1))-log(IT_XM(-1)))+RES_IT_XM ; - IT_XMA = IT_XM+T05*(WTRADER-TRDER*GREAL^TME)/IT_E96 ; - IT_XT = IT_XMA+IT_XOIL ; - IT_ACT = IT_C_MPROP*IT_C+IT_INVEST_MPROP*IT_INVEST+IT_G_MPROP*IT_G+IT_XT_MPROP*IT_XT ; - ( log(IT_IM)-(log(IT_IM(-1)))) = IT_IM0+( log(IT_ACT)-(log(IT_ACT(-1))))+IT_IM1*( log(IT_PIMA/IT_PGNPNO)-(log(IT_PIMA(-1)/IT_PGNPNO(-1))))+IT_IM2*(IT_IM3*log(IT_PIMA(-1)/IT_PGNPNO(-1))+log(IT_ACT(-1))-log(IT_IM(-1)))+RES_IT_IM ; - IT_IOIL = IT_COIL+IT_XOIL-IT_PRODOIL+RES_IT_IOIL*GREAL^TME ; - ( log(IT_ICOM)-(log(IT_ICOM(-1)))) = IT_IC0+IT_IC2*( log(PCOM/IT_ER/IT_PGNP)-(log(PCOM(-1)/IT_ER(-1)/IT_PGNP(-1))))+IT_IC1*( log(IT_GDP)-(log(IT_GDP(-1))))+IT_IC3*log(PCOM(-1)/IT_ER(-1)/IT_PGNP(-1))+IT_IC4*log(IT_GDP(-1))+IT_IC5*log(IT_ICOM(-1))+RES_IT_ICOM-(IT_IC4+IT_IC5)*log(GREAL^TME) ; - IT_IT = IT_IM+IT_IOIL+IT_ICOM ; - IT_A = IT_C+IT_INVEST+IT_G ; - IT_GDP = IT_A+IT_XT-IT_IT ; - IT_GNP = IT_GDP+(US_R+(IT_PREM(-3)+IT_PREM(-2)+IT_PREM(-1))/3)*IT_NFA(-1)/IT_ER/IT_PGNP+RES_IT_GNP*GREAL^TME ; - IT_W = IT_WH+IT_WK+(IT_M+IT_B+IT_NFA/IT_ER)/IT_P ; - IT_YD = (IT_GDP*IT_PGNP-IT_TAX)/IT_P-IT_DELTA*IT_K(-1) ; - IT_GE = IT_P*IT_G+IT_R*IT_B(-1)+IT_GEXOG ; - IT_TAX = IT_TRATE*IT_PGNP*IT_GNP ; - IT_TAXK = IT_TAXK_ALPHA*IT_TAXK_SHAR*IT_TAX+(1-IT_TAXK_ALPHA)*IT_TRATEK*IT_BETA*IT_GDP*IT_PGNP ; - IT_TAXH = IT_TAX-IT_TAXK ; - IT_TRATE = IT_TRATE_EXOG*(1-IT_TRATE_ALPHA)+IT_TRATE_ALPHA*((IT_TRATE(-2)/5+IT_TRATE(-1)/5+IT_TRATE(0)/5+IT_TRATE(1)/5+IT_TRATE(2)/5)+TAU1*(IT_B(1)/(IT_GNP(1)*IT_PGNP(1))-IT_BT_GDP_RAT(1))+RES_IT_TRATE) ; - IT_BT = IT_BT_GDP_RAT*IT_GNP*IT_PGNP ; - ( IT_B-(IT_B(-1)))+( IT_M-(IT_M(-1))) = IT_R*IT_B(-1)+IT_P*IT_G-IT_TAX ; - IT_GDEF = ( IT_B+IT_M-(IT_B(-1)+IT_M(-1))) ; - log(IT_M/IT_P) = IT_M0+(1-IT_M4)*log(IT_A)+IT_M2*IT_RS+IT_M4*log(IT_M(-1)/IT_P(-1))+RES_IT_M ; - IT_RS = (1-IT_X_RS1)*IT_RS_EXOG+IT_X_RS1*(IT_RS(-1)+IT_RS1*log(IT_MT/IT_M)/IT_M2+IT_RS2*log(GR_ER/IT_ER/IT_PAR)+IT_RS3*log(US_ER/IT_ER/IT_PARUS)+IT_RS4*log(IT_NEER/IT_NEER_PAR)+IT_RS5*(IT_UNR_FE-IT_UNR-IT_UNR_GAP_EXOG)+IT_RS6*100*(log(IT_GDP)-log(IT_GDP_FE)-IT_GDP_GAP_EXOG)+IT_X_RS2*(-IT_RS(-1)+IT_RSCON+100*( log(IT_P(1))-(log(IT_P))))+100*(IT_RTARC1*(( log(IT_P)-(log(IT_P(-1))))-( log(IT_P_TAR)-(log(IT_P_TAR(-1))))-IT_P_GAP_EXOG)+IT_RTARC2*(( log(IT_PGNP)-(log(IT_PGNP(-1))))-( log(IT_PGNP_TAR)-(log(IT_PGNP_TAR(-1))))-IT_PGNP_GAP_EXOG)+IT_RTARC3*(( log(IT_CPI)-(log(IT_CPI(-1))))-( log(IT_CPI_TAR)-(log(IT_CPI_TAR(-1))))-IT_CPI_GAP_EXOG)+IT_RTARC4*(( log(IT_PGNPNO)-(log(IT_PGNPNO(-1))))-( log(IT_PGNPNO_TAR)-(log(IT_PGNPNO_TAR(-1))))-IT_PGNPNO_GAP_EXOG)+IT_RTARF1*(( log(IT_P(1))-(log(IT_P)))-( log(IT_P_TAR(1))-(log(IT_P_TAR)))-IT_P_GAP_EXOG(1))+IT_RTARF2*(( log(IT_PGNP(1))-(log(IT_PGNP)))-( log(IT_PGNP_TAR(1))-(log(IT_PGNP_TAR)))-IT_PGNP_GAP_EXOG(1))+IT_RTARF3*(( log(IT_CPI(1))-(log(IT_CPI)))-( log(IT_CPI_TAR(1))-(log(IT_CPI_TAR)))-IT_CPI_GAP_EXOG(1))+IT_RTARF4*(( log(IT_PGNPNO(1))-(log(IT_PGNPNO)))-( log(IT_PGNPNO_TAR(1))-(log(IT_PGNPNO_TAR)))-IT_PGNPNO_GAP_EXOG(1)))+IT_RSCON2+RES_IT_RS)+IT_RS1PERM*0 ; - IT_RL/100 = ((1+IT_RS/100)*(1+IT_RS(1)/100)*(1+IT_RS(2)/100)*(1+IT_RS(3)/100)*(1+IT_RS(4)/100)*(1+IT_RS(5)/100)*(1+IT_RS(6)/100)*(1+IT_RS(7)/100)*(1+IT_RS(8)/100)*(1+IT_RS(9)/100))^0.1*(1+IT_TPREM)-1+RES_IT_RL ; - IT_R = 0.5*IT_RS(-1)/100+0.5*(IT_RL(-3)/100+IT_RL(-2)/100+IT_RL(-1)/100)/3 ; - IT_RLR = (1+IT_RL/100)/(IT_P(10)/IT_P)^0.1-1 ; - IT_RSR = (1+IT_RS/100)/(IT_P(1)/IT_P)-1 ; - IT_PGNPNO = (IT_GDP*IT_PGNP-IT_PRODOIL*POIL/IT_ER*IT_E96)/(IT_GDP-IT_PRODOIL) ; - IT_PGNP = (IT_P*IT_A+IT_XT*IT_PXT-IT_IT*IT_PIT)/IT_GDP+RES_IT_P*IT_PGNP ; - ( log(IT_PXM)-(log(IT_PXM(-1)))) = IT_PXM0+IT_PXM1*( log(IT_PGNPNO)-(log(IT_PGNPNO(-1))))+(1-IT_PXM1)*( log(IT_PFM)-(log(IT_PFM(-1))))+IT_PXM2*log(IT_PGNPNO(-1)/IT_PXM(-1))+RES_IT_PXM ; - IT_PXT = (IT_XMA*IT_PXM+POIL/IT_ER*IT_E96*IT_XOIL)/IT_XT ; - IT_PIM = (S0105*US_PXM+S0205*JA_PXM*JA_ER/JA_E96+S0305*GR_PXM*GR_ER/GR_E96+S0405*FR_PXM*FR_ER/FR_E96+S0505*IT_PXM*IT_ER/IT_E96+S0605*UK_PXM*UK_ER/UK_E96+S0705*CA_PXM*CA_ER/CA_E96+S0805*SI_PXM*SI_ER/SI_E96+S0905*RW_PXM*RW_ER/RW_E96)/(IT_ER/IT_E96)*(1+RES_IT_PIM) ; - IT_PIMA = IT_PIM+T05*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/IT_ER/IT_IM ; - IT_PIT = (IT_IM*IT_PIMA+IT_IOIL*POIL/IT_ER*IT_E96+IT_ICOM*PCOM/IT_ER*IT_E96)/IT_IT ; - //log(IT_TFP_FE) = RES_IT_TFP_FE ; - IT_TFP_FE = exp(RES_IT_TFP_FE); - IT_GDP_FE = IT_TFP_FE*IT_K^IT_BETA*((1-IT_UNR_FE/100)*IT_LF)^(1-IT_BETA) ; - IT_LF = IT_POP*IT_PART/(1+IT_DEM3) ; - IT_CU = 100*IT_GDP/IT_GDP_FE ; - ( IT_NFA-(IT_NFA(-1))) = (IT_XT*IT_PXT-IT_IT*IT_PIT)*IT_ER+(US_R+(IT_PREM(-3)+IT_PREM(-2)+IT_PREM(-1))/3)*IT_NFA(-1)+RES_IT_NFA*US_INFL^TME*GREAL^TME ; - IT_TB = IT_XT*IT_PXT-IT_IT*IT_PIT ; - IT_CURBAL = ( IT_NFA-(IT_NFA(-1))) ; - 1+US_RS/100 = (1+IT_RS/100)*IT_ER(1)/IT_ER-IT_PREM+RES_IT_ER ; - IT_RCI = log(IT_PXM)-log(IT_PFM) ; - IT_FACT = (US_IM*US_E96*S0501+JA_IM*JA_E96*S0502+GR_IM*GR_E96*S0503+FR_IM*FR_E96*S0504+IT_IM*IT_E96*S0505+UK_IM*UK_E96*S0506+CA_IM*CA_E96*S0507+SI_IM*SI_E96*S0508+(HO_IM+DC_IM)*RW_E96*S0509)/IT_E96 ; - log(IT_PFM) = W0501*log(US_PXM*US_ER/US_E96)+W0502*log(JA_PXM*JA_ER/JA_E96)+W0503*log(GR_PXM*GR_ER/GR_E96)+W0504*log(FR_PXM*FR_ER/FR_E96)+W0505*log(IT_ER/IT_E96)+W0506*log(UK_PXM*UK_ER/UK_E96)+W0507*log(CA_PXM*CA_ER/CA_E96)+W0508*log(SI_PXM*SI_ER/SI_E96)+W0509*log(RW_PXM*RW_ER/RW_E96) ; - IT_NEER = exp(-V0501*log(US_ER/US_E96)-V0502*log(JA_ER/JA_E96)-V0503*log(GR_ER/GR_E96)-V0504*log(FR_ER/FR_E96)+log(IT_ER/IT_E96)-V0506*log(UK_ER/UK_E96)-V0507*log(CA_ER/CA_E96)-V0508*log(SI_ER/SI_E96)) ; - ( log(UK_CPI)-(log(UK_CPI(-1)))) = UK_CPI1*( log(UK_PIM)-(log(UK_PIM(-1))))+UK_CPI2*( log(UK_PGNP)-(log(UK_PGNP(-1))))+(1-UK_CPI1-UK_CPI2)*log(UK_CPI(-1)/UK_CPI(-2))+RES_UK_CPI ; - UK_UNR_A = UK_UNR_FE+UK_UNR_1*100*log(UK_GDP/UK_GDP_FE)+UK_UNR_2*(UK_UNR(-1)-UK_UNR_FE(-1))+RES_UK_UNR_A ; - UK_UNR = UK_UNR_A/*MAX(UK_UNR_A;0.1)*/ ; - ( log(UK_PGNPNO)-(log(UK_PGNPNO(-1)))) = UK_LAMBDA*(UK_DELTA_PI*( log(UK_PGNPNO(1))-(log(UK_PGNPNO)))+(1-UK_DELTA_PI)*( log(UK_PGNPNO(-1))-(log(UK_PGNPNO(-2)))))+(1-UK_LAMBDA)*( log(UK_PGNPNO(-1))-(log(UK_PGNPNO(-2))))+UK_GAMMA/100*(UK_NLIN-UK_UNR)/(UK_UNR-UK_PHI)+RES_UK_PGNP ; - UK_INFL = UK_MGROW/GREAL ; - UK_DLLF = log(UK_LF/UK_LF(-1)) ; - UK_DLGDP = log(UK_GDP/UK_GDP(-1)) ; - UK_C = UK_C_DI+UK_C_PI ; - UK_MPC = 1/UK_MPCINV ; - UK_MPCINV(1) = UK_MPCINV-1-((1-UK_SIGMA)*(UK_RSR+UK_PROB)-(RES_UK_MPC+UK_PROB))*UK_MPCINV/UK_SIGMA ; - UK_WH1(1) = UK_WH1*(1+UK_RSR+UK_ALPHA1+RES_UK_WH1+UK_PROB+exp(UK_DLLF_SS)-1)-(((1-UK_BETA)*UK_GDP*UK_PGNP-UK_TAXH)/UK_P+RES_UK_WK*UK_WK) ; - UK_WH2(1) = UK_WH2*(1+UK_RSR+UK_ALPHA2+RES_UK_WH2+UK_PROB+exp(UK_DLLF_SS)-1)-(((1-UK_BETA)*UK_GDP*UK_PGNP-UK_TAXH)/UK_P+RES_UK_WK*UK_WK) ; - UK_WH3(1) = UK_WH3*(1+UK_RSR+UK_ALPHA3+RES_UK_WH3+UK_PROB+exp(UK_DLLF_SS)-1)-(((1-UK_BETA)*UK_GDP*UK_PGNP-UK_TAXH)/UK_P+RES_UK_WK*UK_WK) ; - UK_C_DI = (UK_LAMBDA1*UK_BCHI1+UK_LAMBDA2*UK_BCHI2+UK_LAMBDA3*(1-UK_BCHI1-UK_BCHI2))*((1-UK_BETA)*UK_GDP*UK_PGNP-UK_TAXH)/UK_P+RES_UK_C_DI*GREAL^TME ; - UK_C_PI = UK_MPC*(UK_WK+(UK_M+UK_B+UK_NFA/UK_ER)/UK_P+UK_BCHI1*(1-UK_LAMBDA1)*UK_WH1+UK_BCHI2*(1-UK_LAMBDA2)*UK_WH2+(1-UK_BCHI1-UK_BCHI2)*(1-UK_LAMBDA3)*UK_WH3) ; - UK_WH = UK_BCHI1*UK_WH1+UK_BCHI2*UK_WH2+(1-UK_BCHI1-UK_BCHI2)*UK_WH3 ; - ( log(UK_COIL)-(log(UK_COIL(-1)))) = UK_COIL0+UK_COIL1*( log(UK_GDP)-(log(UK_GDP(-1))))+UK_COIL2*( log(POIL/UK_ER/UK_PGNP)-(log(POIL(-1)/UK_ER(-1)/UK_PGNP(-1))))+UK_COIL3*log(POIL(-1)/UK_ER(-1)/UK_PGNP(-1))+UK_COIL4*log(UK_GDP(-1)/UK_COIL(-1))+RES_UK_COIL ; - UK_INVEST/UK_K(-1)-(UK_DELTA_SS+GREAL_SS-1) = UK_K1*(UK_WK/UK_K(-1)-1)+UK_K2*(UK_WK(-1)/UK_K(-2)-1)+RES_UK_K ; - UK_MPK = UK_BETA*UK_GDP/UK_K ; - UK_Q = UK_CHI*(UK_INVEST/UK_K(-1)-(UK_DELTA_SS+GREAL_SS-1))+1 ; - UK_WK(1) = UK_WK*(1+UK_RSR+UK_K/UK_K(-1)-1+UK_DELTA+RES_UK_WK)-(UK_BETA*UK_GDP*UK_PGNP-UK_TAXK)/UK_P+(UK_CHI/2*((UK_Q-1)/UK_CHI)^2+UK_INVEST/UK_K(-1)*(UK_Q-1))*UK_K(-1)*UK_PGNP/UK_P ; - UK_INVEST = ( UK_K-(UK_K(-1)))+UK_DELTA*UK_K(-1) ; - ( log(UK_XM)-(log(UK_XM(-1)))) = UK_XM0+( log(UK_FACT)-(log(UK_FACT(-1))))+UK_XM1*( UK_RCI-(UK_RCI(-1)))+UK_XM2*(UK_XM3*UK_RCI(-1)+log(UK_FACT(-1))-log(UK_XM(-1)))+RES_UK_XM ; - UK_XMA = UK_XM+T06*(WTRADER-TRDER*GREAL^TME)/UK_E96 ; - UK_XT = UK_XMA+UK_XOIL ; - UK_ACT = UK_C_MPROP*UK_C+UK_INVEST_MPROP*UK_INVEST+UK_G_MPROP*UK_G+UK_XT_MPROP*UK_XT ; - ( log(UK_IM)-(log(UK_IM(-1)))) = UK_IM0+( log(UK_ACT)-(log(UK_ACT(-1))))+UK_IM1*( log(UK_PIMA/UK_PGNPNO)-(log(UK_PIMA(-1)/UK_PGNPNO(-1))))+UK_IM2*(UK_IM3*log(UK_PIMA(-1)/UK_PGNPNO(-1))+log(UK_ACT(-1))-log(UK_IM(-1)))+RES_UK_IM ; - UK_IOIL = UK_COIL+UK_XOIL-UK_PRODOIL+RES_UK_IOIL*GREAL^TME ; - ( log(UK_ICOM)-(log(UK_ICOM(-1)))) = UK_IC0+UK_IC2*( log(PCOM/UK_ER/UK_PGNP)-(log(PCOM(-1)/UK_ER(-1)/UK_PGNP(-1))))+UK_IC1*( log(UK_GDP)-(log(UK_GDP(-1))))+UK_IC3*log(PCOM(-1)/UK_ER(-1)/UK_PGNP(-1))+UK_IC4*log(UK_GDP(-1))+UK_IC5*log(UK_ICOM(-1))+RES_UK_ICOM-(UK_IC4+UK_IC5)*log(GREAL^TME) ; - UK_IT = UK_IM+UK_IOIL+UK_ICOM ; - UK_A = UK_C+UK_INVEST+UK_G ; - UK_GDP = UK_A+UK_XT-UK_IT ; - UK_GNP = UK_GDP+(US_R+(UK_PREM(-3)+UK_PREM(-2)+UK_PREM(-1))/3)*UK_NFA(-1)/UK_ER/UK_PGNP+RES_UK_GNP*GREAL^TME ; - UK_W = UK_WH+UK_WK+(UK_M+UK_B+UK_NFA/UK_ER)/UK_P ; - UK_YD = (UK_GDP*UK_PGNP-UK_TAX)/UK_P-UK_DELTA*UK_K(-1) ; - UK_GE = UK_P*UK_G+UK_R*UK_B(-1)+UK_GEXOG ; - UK_TAX = UK_TRATE*UK_PGNP*UK_GNP ; - UK_TAXK = UK_TAXK_ALPHA*UK_TAXK_SHAR*UK_TAX+(1-UK_TAXK_ALPHA)*UK_TRATEK*UK_BETA*UK_GDP*UK_PGNP ; - UK_TAXH = UK_TAX-UK_TAXK ; - UK_TRATE = UK_TRATE_EXOG*(1-UK_TRATE_ALPHA)+UK_TRATE_ALPHA*((UK_TRATE(-2)/5+UK_TRATE(-1)/5+UK_TRATE(0)/5+UK_TRATE(1)/5+UK_TRATE(2)/5)+TAU1*(UK_B(1)/(UK_GNP(1)*UK_PGNP(1))-UK_BT_GDP_RAT(1))+RES_UK_TRATE) ; - UK_BT = UK_BT_GDP_RAT*UK_GNP*UK_PGNP ; - ( UK_B-(UK_B(-1)))+( UK_M-(UK_M(-1))) = UK_R*UK_B(-1)+UK_P*UK_G-UK_TAX ; - UK_GDEF = ( UK_B+UK_M-(UK_B(-1)+UK_M(-1))) ; - log(UK_M/UK_P) = UK_M0+(1-UK_M4)*log(UK_A)+UK_M2*UK_RS+UK_M4*log(UK_M(-1)/UK_P(-1))+RES_UK_M ; - UK_RS = (1-UK_X_RS1)*UK_RS_EXOG+UK_X_RS1*(UK_RS(-1)+UK_RS1*log(UK_MT/UK_M)/UK_M2+UK_RS2*log(GR_ER/UK_ER/UK_PAR)+UK_RS3*log(US_ER/UK_ER/UK_PARUS)+UK_RS4*log(UK_NEER/UK_NEER_PAR)+UK_RS5*(UK_UNR_FE-UK_UNR-UK_UNR_GAP_EXOG)+UK_RS6*100*(log(UK_GDP)-log(UK_GDP_FE)-UK_GDP_GAP_EXOG)+UK_X_RS2*(-UK_RS(-1)+UK_RSCON+100*( log(UK_P(1))-(log(UK_P))))+100*(UK_RTARC1*(( log(UK_P)-(log(UK_P(-1))))-( log(UK_P_TAR)-(log(UK_P_TAR(-1))))-UK_P_GAP_EXOG)+UK_RTARC2*(( log(UK_PGNP)-(log(UK_PGNP(-1))))-( log(UK_PGNP_TAR)-(log(UK_PGNP_TAR(-1))))-UK_PGNP_GAP_EXOG)+UK_RTARC3*(( log(UK_CPI)-(log(UK_CPI(-1))))-( log(UK_CPI_TAR)-(log(UK_CPI_TAR(-1))))-UK_CPI_GAP_EXOG)+UK_RTARC4*(( log(UK_PGNPNO)-(log(UK_PGNPNO(-1))))-( log(UK_PGNPNO_TAR)-(log(UK_PGNPNO_TAR(-1))))-UK_PGNPNO_GAP_EXOG)+UK_RTARF1*(( log(UK_P(1))-(log(UK_P)))-( log(UK_P_TAR(1))-(log(UK_P_TAR)))-UK_P_GAP_EXOG(1))+UK_RTARF2*(( log(UK_PGNP(1))-(log(UK_PGNP)))-( log(UK_PGNP_TAR(1))-(log(UK_PGNP_TAR)))-UK_PGNP_GAP_EXOG(1))+UK_RTARF3*(( log(UK_CPI(1))-(log(UK_CPI)))-( log(UK_CPI_TAR(1))-(log(UK_CPI_TAR)))-UK_CPI_GAP_EXOG(1))+UK_RTARF4*(( log(UK_PGNPNO(1))-(log(UK_PGNPNO)))-( log(UK_PGNPNO_TAR(1))-(log(UK_PGNPNO_TAR)))-UK_PGNPNO_GAP_EXOG(1)))+UK_RSCON2+RES_UK_RS)+UK_RS1PERM*0 ; - UK_RL/100 = ((1+UK_RS/100)*(1+UK_RS(1)/100)*(1+UK_RS(2)/100)*(1+UK_RS(3)/100)*(1+UK_RS(4)/100)*(1+UK_RS(5)/100)*(1+UK_RS(6)/100)*(1+UK_RS(7)/100)*(1+UK_RS(8)/100)*(1+UK_RS(9)/100))^0.1*(1+UK_TPREM)-1+RES_UK_RL ; - UK_R = 0.5*UK_RS(-1)/100+0.5*(UK_RL(-3)/100+UK_RL(-2)/100+UK_RL(-1)/100)/3 ; - UK_RLR = (1+UK_RL/100)/(UK_P(10)/UK_P)^0.1-1 ; - UK_RSR = (1+UK_RS/100)/(UK_P(1)/UK_P)-1 ; - UK_PGNPNO = (UK_GDP*UK_PGNP-UK_PRODOIL*POIL/UK_ER*UK_E96)/(UK_GDP-UK_PRODOIL) ; - UK_PGNP = (UK_P*UK_A+UK_XT*UK_PXT-UK_IT*UK_PIT)/UK_GDP+RES_UK_P*UK_PGNP ; - ( log(UK_PXM)-(log(UK_PXM(-1)))) = UK_PXM0+UK_PXM1*( log(UK_PGNPNO)-(log(UK_PGNPNO(-1))))+(1-UK_PXM1)*( log(UK_PFM)-(log(UK_PFM(-1))))+UK_PXM2*log(UK_PGNPNO(-1)/UK_PXM(-1))+RES_UK_PXM ; - UK_PXT = (UK_XMA*UK_PXM+POIL/UK_ER*UK_E96*UK_XOIL)/UK_XT ; - UK_PIM = (S0106*US_PXM+S0206*JA_PXM*JA_ER/JA_E96+S0306*GR_PXM*GR_ER/GR_E96+S0406*FR_PXM*FR_ER/FR_E96+S0506*IT_PXM*IT_ER/IT_E96+S0606*UK_PXM*UK_ER/UK_E96+S0706*CA_PXM*CA_ER/CA_E96+S0806*SI_PXM*SI_ER/SI_E96+S0906*RW_PXM*RW_ER/RW_E96)/(UK_ER/UK_E96)*(1+RES_UK_PIM) ; - UK_PIMA = UK_PIM+T06*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/UK_ER/UK_IM ; - UK_PIT = (UK_IM*UK_PIMA+UK_IOIL*POIL/UK_ER*UK_E96+UK_ICOM*PCOM/UK_ER*UK_E96)/UK_IT ; - //log(UK_TFP_FE) = RES_UK_TFP_FE ; - UK_TFP_FE = exp(RES_UK_TFP_FE); - UK_GDP_FE = UK_TFP_FE*UK_K^UK_BETA*((1-UK_UNR_FE/100)*UK_LF)^(1-UK_BETA) ; - UK_LF = UK_POP*UK_PART/(1+UK_DEM3) ; - UK_CU = 100*UK_GDP/UK_GDP_FE ; - ( UK_NFA-(UK_NFA(-1))) = (UK_XT*UK_PXT-UK_IT*UK_PIT)*UK_ER+(US_R+(UK_PREM(-3)+UK_PREM(-2)+UK_PREM(-1))/3)*UK_NFA(-1)+RES_UK_NFA*US_INFL^TME*GREAL^TME ; - UK_TB = UK_XT*UK_PXT-UK_IT*UK_PIT ; - UK_CURBAL = ( UK_NFA-(UK_NFA(-1))) ; - 1+US_RS/100 = (1+UK_RS/100)*UK_ER(1)/UK_ER-UK_PREM+RES_UK_ER ; - UK_RCI = log(UK_PXM)-log(UK_PFM) ; - UK_FACT = (US_IM*US_E96*S0601+JA_IM*JA_E96*S0602+GR_IM*GR_E96*S0603+FR_IM*FR_E96*S0604+IT_IM*IT_E96*S0605+UK_IM*UK_E96*S0606+CA_IM*CA_E96*S0607+SI_IM*SI_E96*S0608+(HO_IM+DC_IM)*RW_E96*S0609)/UK_E96 ; - log(UK_PFM) = W0601*log(US_PXM*US_ER/US_E96)+W0602*log(JA_PXM*JA_ER/JA_E96)+W0603*log(GR_PXM*GR_ER/GR_E96)+W0604*log(FR_PXM*FR_ER/FR_E96)+W0605*log(IT_PXM*IT_ER/IT_E96)+W0606*log(UK_ER/UK_E96)+W0607*log(CA_PXM*CA_ER/CA_E96)+W0608*log(SI_PXM*SI_ER/SI_E96)+W0609*log(RW_PXM*RW_ER/RW_E96) ; - UK_NEER = exp(-V0601*log(US_ER/US_E96)-V0602*log(JA_ER/JA_E96)-V0603*log(GR_ER/GR_E96)-V0604*log(FR_ER/FR_E96)-V0605*log(IT_ER/IT_E96)+log(UK_ER/UK_E96)-V0607*log(CA_ER/CA_E96)-V0608*log(SI_ER/SI_E96)) ; - ( log(CA_CPI)-(log(CA_CPI(-1)))) = CA_CPI1*( log(CA_PIM)-(log(CA_PIM(-1))))+CA_CPI2*( log(CA_PGNP)-(log(CA_PGNP(-1))))+(1-CA_CPI1-CA_CPI2)*log(CA_CPI(-1)/CA_CPI(-2))+RES_CA_CPI ; - CA_UNR_A = CA_UNR_FE+CA_UNR_1*100*log(CA_GDP/CA_GDP_FE)+CA_UNR_2*(CA_UNR(-1)-CA_UNR_FE(-1))+RES_CA_UNR_A ; - CA_UNR = CA_UNR_A/*MAX(CA_UNR_A;0.1)*/ ; - ( log(CA_PGNPNO)-(log(CA_PGNPNO(-1)))) = CA_LAMBDA*(CA_DELTA_PI*( log(CA_PGNPNO(1))-(log(CA_PGNPNO)))+(1-CA_DELTA_PI)*( log(CA_PGNPNO(-1))-(log(CA_PGNPNO(-2)))))+(1-CA_LAMBDA)*( log(CA_PGNPNO(-1))-(log(CA_PGNPNO(-2))))+CA_GAMMA/100*(CA_NLIN-CA_UNR)/(CA_UNR-CA_PHI)+RES_CA_PGNP ; - CA_INFL = CA_MGROW/GREAL ; - CA_DLLF = log(CA_LF/CA_LF(-1)) ; - CA_DLGDP = log(CA_GDP/CA_GDP(-1)) ; - CA_C = CA_C_DI+CA_C_PI ; - CA_MPC = 1/CA_MPCINV ; - CA_MPCINV(1) = CA_MPCINV-1-((1-CA_SIGMA)*(CA_RSR+CA_PROB)-(RES_CA_MPC+CA_PROB))*CA_MPCINV/CA_SIGMA ; - CA_WH1(1) = CA_WH1*(1+CA_RSR+CA_ALPHA1+RES_CA_WH1+CA_PROB+exp(CA_DLLF_SS)-1)-(((1-CA_BETA)*CA_GDP*CA_PGNP-CA_TAXH)/CA_P+RES_CA_WK*CA_WK) ; - CA_WH2(1) = CA_WH2*(1+CA_RSR+CA_ALPHA2+RES_CA_WH2+CA_PROB+exp(CA_DLLF_SS)-1)-(((1-CA_BETA)*CA_GDP*CA_PGNP-CA_TAXH)/CA_P+RES_CA_WK*CA_WK) ; - CA_WH3(1) = CA_WH3*(1+CA_RSR+CA_ALPHA3+RES_CA_WH3+CA_PROB+exp(CA_DLLF_SS)-1)-(((1-CA_BETA)*CA_GDP*CA_PGNP-CA_TAXH)/CA_P+RES_CA_WK*CA_WK) ; - CA_C_DI = (CA_LAMBDA1*CA_BCHI1+CA_LAMBDA2*CA_BCHI2+CA_LAMBDA3*(1-CA_BCHI1-CA_BCHI2))*((1-CA_BETA)*CA_GDP*CA_PGNP-CA_TAXH)/CA_P+RES_CA_C_DI*GREAL^TME ; - CA_C_PI = CA_MPC*(CA_WK+(CA_M+CA_B+CA_NFA/CA_ER)/CA_P+CA_BCHI1*(1-CA_LAMBDA1)*CA_WH1+CA_BCHI2*(1-CA_LAMBDA2)*CA_WH2+(1-CA_BCHI1-CA_BCHI2)*(1-CA_LAMBDA3)*CA_WH3) ; - CA_WH = CA_BCHI1*CA_WH1+CA_BCHI2*CA_WH2+(1-CA_BCHI1-CA_BCHI2)*CA_WH3 ; - ( log(CA_COIL)-(log(CA_COIL(-1)))) = CA_COIL0+CA_COIL1*( log(CA_GDP)-(log(CA_GDP(-1))))+CA_COIL2*( log(POIL/CA_ER/CA_PGNP)-(log(POIL(-1)/CA_ER(-1)/CA_PGNP(-1))))+CA_COIL3*log(POIL(-1)/CA_ER(-1)/CA_PGNP(-1))+CA_COIL4*log(CA_GDP(-1)/CA_COIL(-1))+RES_CA_COIL ; - CA_INVEST/CA_K(-1)-(CA_DELTA_SS+GREAL_SS-1) = CA_K1*(CA_WK/CA_K(-1)-1)+CA_K2*(CA_WK(-1)/CA_K(-2)-1)+RES_CA_K ; - CA_MPK = CA_BETA*CA_GDP/CA_K ; - CA_Q = CA_CHI*(CA_INVEST/CA_K(-1)-(CA_DELTA_SS+GREAL_SS-1))+1 ; - CA_WK(1) = CA_WK*(1+CA_RSR+CA_K/CA_K(-1)-1+CA_DELTA+RES_CA_WK)-(CA_BETA*CA_GDP*CA_PGNP-CA_TAXK)/CA_P+(CA_CHI/2*((CA_Q-1)/CA_CHI)^2+CA_INVEST/CA_K(-1)*(CA_Q-1))*CA_K(-1)*CA_PGNP/CA_P ; - CA_INVEST = ( CA_K-(CA_K(-1)))+CA_DELTA*CA_K(-1) ; - ( log(CA_XM)-(log(CA_XM(-1)))) = CA_XM0+( log(CA_FACT)-(log(CA_FACT(-1))))+CA_XM1*( CA_RCI-(CA_RCI(-1)))+CA_XM2*(CA_XM3*CA_RCI(-1)+log(CA_FACT(-1))-log(CA_XM(-1)))+RES_CA_XM ; - CA_XMA = CA_XM+T07*(WTRADER-TRDER*GREAL^TME)/CA_E96 ; - CA_XT = CA_XMA+CA_XOIL ; - CA_ACT = CA_C_MPROP*CA_C+CA_INVEST_MPROP*CA_INVEST+CA_G_MPROP*CA_G+CA_XT_MPROP*CA_XT ; - ( log(CA_IM)-(log(CA_IM(-1)))) = CA_IM0+( log(CA_ACT)-(log(CA_ACT(-1))))+CA_IM1*( log(CA_PIMA/CA_PGNPNO)-(log(CA_PIMA(-1)/CA_PGNPNO(-1))))+CA_IM2*(CA_IM3*log(CA_PIMA(-1)/CA_PGNPNO(-1))+log(CA_ACT(-1))-log(CA_IM(-1)))+RES_CA_IM ; - CA_IOIL = CA_COIL+CA_XOIL-CA_PRODOIL+RES_CA_IOIL*GREAL^TME ; - ( log(CA_ICOM)-(log(CA_ICOM(-1)))) = CA_IC0+CA_IC2*( log(PCOM/CA_ER/CA_PGNP)-(log(PCOM(-1)/CA_ER(-1)/CA_PGNP(-1))))+CA_IC1*( log(CA_GDP)-(log(CA_GDP(-1))))+CA_IC3*log(PCOM(-1)/CA_ER(-1)/CA_PGNP(-1))+CA_IC4*log(CA_GDP(-1))+CA_IC5*log(CA_ICOM(-1))+RES_CA_ICOM-(CA_IC4+CA_IC5)*log(GREAL^TME) ; - CA_IT = CA_IM+CA_IOIL+CA_ICOM ; - CA_A = CA_C+CA_INVEST+CA_G ; - CA_GDP = CA_A+CA_XT-CA_IT ; - CA_GNP = CA_GDP+(US_R+(CA_PREM(-3)+CA_PREM(-2)+CA_PREM(-1))/3)*CA_NFA(-1)/CA_ER/CA_PGNP+RES_CA_GNP*GREAL^TME ; - CA_W = CA_WH+CA_WK+(CA_M+CA_B+CA_NFA/CA_ER)/CA_P ; - CA_YD = (CA_GDP*CA_PGNP-CA_TAX)/CA_P-CA_DELTA*CA_K(-1) ; - CA_GE = CA_P*CA_G+CA_R*CA_B(-1)+CA_GEXOG ; - CA_TAX = CA_TRATE*CA_PGNP*CA_GNP ; - CA_TAXK = CA_TAXK_ALPHA*CA_TAXK_SHAR*CA_TAX+(1-CA_TAXK_ALPHA)*CA_TRATEK*CA_BETA*CA_GDP*CA_PGNP ; - CA_TAXH = CA_TAX-CA_TAXK ; - CA_TRATE = CA_TRATE_EXOG*(1-CA_TRATE_ALPHA)+CA_TRATE_ALPHA*((CA_TRATE(-2)/5+CA_TRATE(-1)/5+CA_TRATE(0)/5+CA_TRATE(1)/5+CA_TRATE(2)/5)+TAU1*(CA_B(1)/(CA_GNP(1)*CA_PGNP(1))-CA_BT_GDP_RAT(1))+RES_CA_TRATE) ; - CA_BT = CA_BT_GDP_RAT*CA_GNP*CA_PGNP ; - ( CA_B-(CA_B(-1)))+( CA_M-(CA_M(-1))) = CA_R*CA_B(-1)+CA_P*CA_G-CA_TAX ; - CA_GDEF = ( CA_B+CA_M-(CA_B(-1)+CA_M(-1))) ; - log(CA_M/CA_P) = CA_M0+(1-CA_M4)*log(CA_A)+CA_M2*CA_RS+CA_M4*log(CA_M(-1)/CA_P(-1))+RES_CA_M ; - CA_RS = (1-CA_X_RS1)*CA_RS_EXOG+CA_X_RS1*(CA_RS(-1)+CA_RS1*log(CA_MT/CA_M)/CA_M2+CA_RS2*log(GR_ER/CA_ER/CA_PAR)+CA_RS3*log(US_ER/CA_ER/CA_PARUS)+CA_RS4*log(CA_NEER/CA_NEER_PAR)+CA_RS5*(CA_UNR_FE-CA_UNR-CA_UNR_GAP_EXOG)+CA_RS6*100*(log(CA_GDP)-log(CA_GDP_FE)-CA_GDP_GAP_EXOG)+CA_X_RS2*(-CA_RS(-1)+CA_RSCON+100*( log(CA_P(1))-(log(CA_P))))+100*(CA_RTARC1*(( log(CA_P)-(log(CA_P(-1))))-( log(CA_P_TAR)-(log(CA_P_TAR(-1))))-CA_P_GAP_EXOG)+CA_RTARC2*(( log(CA_PGNP)-(log(CA_PGNP(-1))))-( log(CA_PGNP_TAR)-(log(CA_PGNP_TAR(-1))))-CA_PGNP_GAP_EXOG)+CA_RTARC3*(( log(CA_CPI)-(log(CA_CPI(-1))))-( log(CA_CPI_TAR)-(log(CA_CPI_TAR(-1))))-CA_CPI_GAP_EXOG)+CA_RTARC4*(( log(CA_PGNPNO)-(log(CA_PGNPNO(-1))))-( log(CA_PGNPNO_TAR)-(log(CA_PGNPNO_TAR(-1))))-CA_PGNPNO_GAP_EXOG)+CA_RTARF1*(( log(CA_P(1))-(log(CA_P)))-( log(CA_P_TAR(1))-(log(CA_P_TAR)))-CA_P_GAP_EXOG(1))+CA_RTARF2*(( log(CA_PGNP(1))-(log(CA_PGNP)))-( log(CA_PGNP_TAR(1))-(log(CA_PGNP_TAR)))-CA_PGNP_GAP_EXOG(1))+CA_RTARF3*(( log(CA_CPI(1))-(log(CA_CPI)))-( log(CA_CPI_TAR(1))-(log(CA_CPI_TAR)))-CA_CPI_GAP_EXOG(1))+CA_RTARF4*(( log(CA_PGNPNO(1))-(log(CA_PGNPNO)))-( log(CA_PGNPNO_TAR(1))-(log(CA_PGNPNO_TAR)))-CA_PGNPNO_GAP_EXOG(1)))+CA_RSCON2+RES_CA_RS)+CA_RS1PERM*0 ; - CA_RL/100 = ((1+CA_RS/100)*(1+CA_RS(1)/100)*(1+CA_RS(2)/100)*(1+CA_RS(3)/100)*(1+CA_RS(4)/100)*(1+CA_RS(5)/100)*(1+CA_RS(6)/100)*(1+CA_RS(7)/100)*(1+CA_RS(8)/100)*(1+CA_RS(9)/100))^0.1*(1+CA_TPREM)-1+RES_CA_RL ; - CA_R = 0.5*CA_RS(-1)/100+0.5*(CA_RL(-3)/100+CA_RL(-2)/100+CA_RL(-1)/100)/3 ; - CA_RLR = (1+CA_RL/100)/(CA_P(10)/CA_P)^0.1-1 ; - CA_RSR = (1+CA_RS/100)/(CA_P(1)/CA_P)-1 ; - CA_PGNPNO = (CA_GDP*CA_PGNP-CA_PRODOIL*POIL/CA_ER*CA_E96)/(CA_GDP-CA_PRODOIL) ; - CA_PGNP = (CA_P*CA_A+CA_XT*CA_PXT-CA_IT*CA_PIT)/CA_GDP+RES_CA_P*CA_PGNP ; - ( log(CA_PXM)-(log(CA_PXM(-1)))) = CA_PXM0+CA_PXM1*( log(CA_PGNPNO)-(log(CA_PGNPNO(-1))))+(1-CA_PXM1)*( log(CA_PFM)-(log(CA_PFM(-1))))+CA_PXM2*log(CA_PGNPNO(-1)/CA_PXM(-1))+RES_CA_PXM ; - CA_PXT = (CA_XMA*CA_PXM+POIL/CA_ER*CA_E96*CA_XOIL)/CA_XT ; - CA_PIM = (S0107*US_PXM+S0207*JA_PXM*JA_ER/JA_E96+S0307*GR_PXM*GR_ER/GR_E96+S0407*FR_PXM*FR_ER/FR_E96+S0507*IT_PXM*IT_ER/IT_E96+S0607*UK_PXM*UK_ER/UK_E96+S0707*CA_PXM*CA_ER/CA_E96+S0807*SI_PXM*SI_ER/SI_E96+S0907*RW_PXM*RW_ER/RW_E96)/(CA_ER/CA_E96)*(1+RES_CA_PIM) ; - CA_PIMA = CA_PIM+T07*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/CA_ER/CA_IM ; - CA_PIT = (CA_IM*CA_PIMA+CA_IOIL*POIL/CA_ER*CA_E96+CA_ICOM*PCOM/CA_ER*CA_E96)/CA_IT ; - //log(CA_TFP_FE) = RES_CA_TFP_FE ; - CA_TFP_FE = exp(RES_CA_TFP_FE) ; - CA_GDP_FE = CA_TFP_FE*CA_K^CA_BETA*((1-CA_UNR_FE/100)*CA_LF)^(1-CA_BETA) ; - CA_LF = CA_POP*CA_PART/(1+CA_DEM3) ; - CA_CU = 100*CA_GDP/CA_GDP_FE ; - ( CA_NFA-(CA_NFA(-1))) = (CA_XT*CA_PXT-CA_IT*CA_PIT)*CA_ER+(US_R+(CA_PREM(-3)+CA_PREM(-2)+CA_PREM(-1))/3)*CA_NFA(-1)+RES_CA_NFA*US_INFL^TME*GREAL^TME ; - CA_TB = CA_XT*CA_PXT-CA_IT*CA_PIT ; - CA_CURBAL = ( CA_NFA-(CA_NFA(-1))) ; - 1+US_RS/100 = (1+CA_RS/100)*CA_ER(1)/CA_ER-CA_PREM+RES_CA_ER ; - CA_RCI = log(CA_PXM)-log(CA_PFM) ; - CA_FACT = (US_IM*US_E96*S0701+JA_IM*JA_E96*S0702+GR_IM*GR_E96*S0703+FR_IM*FR_E96*S0704+IT_IM*IT_E96*S0705+UK_IM*UK_E96*S0706+CA_IM*CA_E96*S0707+SI_IM*SI_E96*S0708+(HO_IM+DC_IM)*RW_E96*S0709)/CA_E96 ; - log(CA_PFM) = W0701*log(US_PXM*US_ER/US_E96)+W0702*log(JA_PXM*JA_ER/JA_E96)+W0703*log(GR_PXM*GR_ER/GR_E96)+W0704*log(FR_PXM*FR_ER/FR_E96)+W0705*log(IT_PXM*IT_ER/IT_E96)+W0706*log(UK_PXM*UK_ER/UK_E96)+W0707*log(CA_ER/CA_E96)+W0708*log(SI_PXM*SI_ER/SI_E96)+W0709*log(RW_PXM*RW_ER/RW_E96) ; - CA_NEER = exp(-V0701*log(US_ER/US_E96)-V0702*log(JA_ER/JA_E96)-V0703*log(GR_ER/GR_E96)-V0704*log(FR_ER/FR_E96)-V0705*log(IT_ER/IT_E96)-V0706*log(UK_ER/UK_E96)+log(CA_ER/CA_E96)-V0708*log(SI_ER/SI_E96)) ; - ( log(SI_CPI)-(log(SI_CPI(-1)))) = SI_CPI1*( log(SI_PIM)-(log(SI_PIM(-1))))+SI_CPI2*( log(SI_PGNP)-(log(SI_PGNP(-1))))+(1-SI_CPI1-SI_CPI2)*log(SI_CPI(-1)/SI_CPI(-2))+RES_SI_CPI ; - SI_UNR_A = SI_UNR_FE+SI_UNR_1*100*log(SI_GDP/SI_GDP_FE)+SI_UNR_2*(SI_UNR(-1)-SI_UNR_FE(-1))+RES_SI_UNR_A ; - SI_UNR = SI_UNR_A/*MAX(SI_UNR_A;0.1)*/ ; - ( log(SI_PGNPNO)-(log(SI_PGNPNO(-1)))) = SI_LAMBDA*(SI_DELTA_PI*( log(SI_PGNPNO(1))-(log(SI_PGNPNO)))+(1-SI_DELTA_PI)*( log(SI_PGNPNO(-1))-(log(SI_PGNPNO(-2)))))+(1-SI_LAMBDA)*( log(SI_PGNPNO(-1))-(log(SI_PGNPNO(-2))))+SI_GAMMA/100*(SI_NLIN-SI_UNR)/(SI_UNR-SI_PHI)+RES_SI_PGNP ; - SI_INFL = SI_MGROW/GREAL ; - SI_DLLF = log(SI_LF/SI_LF(-1)) ; - SI_DLGDP = log(SI_GDP/SI_GDP(-1)) ; - SI_C = SI_C_DI+SI_C_PI ; - SI_MPC = 1/SI_MPCINV ; - SI_MPCINV(1) = SI_MPCINV-1-((1-SI_SIGMA)*(SI_RSR+SI_PROB)-(RES_SI_MPC+SI_PROB))*SI_MPCINV/SI_SIGMA ; - SI_WH1(1) = SI_WH1*(1+SI_RSR+SI_ALPHA1+RES_SI_WH1+SI_PROB+exp(SI_DLLF_SS)-1)-(((1-SI_BETA)*SI_GDP*SI_PGNP-SI_TAXH)/SI_P+RES_SI_WK*SI_WK) ; - SI_WH2(1) = SI_WH2*(1+SI_RSR+SI_ALPHA2+RES_SI_WH2+SI_PROB+exp(SI_DLLF_SS)-1)-(((1-SI_BETA)*SI_GDP*SI_PGNP-SI_TAXH)/SI_P+RES_SI_WK*SI_WK) ; - SI_WH3(1) = SI_WH3*(1+SI_RSR+SI_ALPHA3+RES_SI_WH3+SI_PROB+exp(SI_DLLF_SS)-1)-(((1-SI_BETA)*SI_GDP*SI_PGNP-SI_TAXH)/SI_P+RES_SI_WK*SI_WK) ; - SI_C_DI = (SI_LAMBDA1*SI_BCHI1+SI_LAMBDA2*SI_BCHI2+SI_LAMBDA3*(1-SI_BCHI1-SI_BCHI2))*((1-SI_BETA)*SI_GDP*SI_PGNP-SI_TAXH)/SI_P+RES_SI_C_DI*GREAL^TME ; - SI_C_PI = SI_MPC*(SI_WK+(SI_M+SI_B+SI_NFA/SI_ER)/SI_P+SI_BCHI1*(1-SI_LAMBDA1)*SI_WH1+SI_BCHI2*(1-SI_LAMBDA2)*SI_WH2+(1-SI_BCHI1-SI_BCHI2)*(1-SI_LAMBDA3)*SI_WH3) ; - SI_WH = SI_BCHI1*SI_WH1+SI_BCHI2*SI_WH2+(1-SI_BCHI1-SI_BCHI2)*SI_WH3 ; - ( log(SI_COIL)-(log(SI_COIL(-1)))) = SI_COIL0+SI_COIL1*( log(SI_GDP)-(log(SI_GDP(-1))))+SI_COIL2*( log(POIL/SI_ER/SI_PGNP)-(log(POIL(-1)/SI_ER(-1)/SI_PGNP(-1))))+SI_COIL3*log(POIL(-1)/SI_ER(-1)/SI_PGNP(-1))+SI_COIL4*log(SI_GDP(-1)/SI_COIL(-1))+RES_SI_COIL ; - SI_INVEST/SI_K(-1)-(SI_DELTA_SS+GREAL_SS-1) = SI_K1*(SI_WK/SI_K(-1)-1)+SI_K2*(SI_WK(-1)/SI_K(-2)-1)+RES_SI_K ; - SI_MPK = SI_BETA*SI_GDP/SI_K ; - SI_Q = SI_CHI*(SI_INVEST/SI_K(-1)-(SI_DELTA_SS+GREAL_SS-1))+1 ; - SI_WK(1) = SI_WK*(1+SI_RSR+SI_K/SI_K(-1)-1+SI_DELTA+RES_SI_WK)-(SI_BETA*SI_GDP*SI_PGNP-SI_TAXK)/SI_P+(SI_CHI/2*((SI_Q-1)/SI_CHI)^2+SI_INVEST/SI_K(-1)*(SI_Q-1))*SI_K(-1)*SI_PGNP/SI_P ; - SI_INVEST = ( SI_K-(SI_K(-1)))+SI_DELTA*SI_K(-1) ; - ( log(SI_XM)-(log(SI_XM(-1)))) = SI_XM0+( log(SI_FACT)-(log(SI_FACT(-1))))+SI_XM1*( SI_RCI-(SI_RCI(-1)))+SI_XM2*(SI_XM3*SI_RCI(-1)+log(SI_FACT(-1))-log(SI_XM(-1)))+RES_SI_XM ; - SI_XMA = SI_XM+T08*(WTRADER-TRDER*GREAL^TME)/SI_E96 ; - SI_XT = SI_XMA+SI_XOIL ; - SI_ACT = SI_C_MPROP*SI_C+SI_INVEST_MPROP*SI_INVEST+SI_G_MPROP*SI_G+SI_XT_MPROP*SI_XT ; - ( log(SI_IM)-(log(SI_IM(-1)))) = SI_IM0+( log(SI_ACT)-(log(SI_ACT(-1))))+SI_IM1*( log(SI_PIMA/SI_PGNPNO)-(log(SI_PIMA(-1)/SI_PGNPNO(-1))))+SI_IM2*(SI_IM3*log(SI_PIMA(-1)/SI_PGNPNO(-1))+log(SI_ACT(-1))-log(SI_IM(-1)))+RES_SI_IM ; - SI_IOIL = SI_COIL+SI_XOIL-SI_PRODOIL+RES_SI_IOIL*GREAL^TME ; - ( log(SI_ICOM)-(log(SI_ICOM(-1)))) = SI_IC0+SI_IC2*( log(PCOM/SI_ER/SI_PGNP)-(log(PCOM(-1)/SI_ER(-1)/SI_PGNP(-1))))+SI_IC1*( log(SI_GDP)-(log(SI_GDP(-1))))+SI_IC3*log(PCOM(-1)/SI_ER(-1)/SI_PGNP(-1))+SI_IC4*log(SI_GDP(-1))+SI_IC5*log(SI_ICOM(-1))+RES_SI_ICOM-(SI_IC4+SI_IC5)*log(GREAL^TME) ; - SI_IT = SI_IM+SI_IOIL+SI_ICOM ; - SI_A = SI_C+SI_INVEST+SI_G ; - SI_GDP = SI_A+SI_XT-SI_IT ; - SI_GNP = SI_GDP+(US_R+(SI_PREM(-3)+SI_PREM(-2)+SI_PREM(-1))/3)*SI_NFA(-1)/SI_ER/SI_PGNP+RES_SI_GNP*GREAL^TME ; - SI_W = SI_WH+SI_WK+(SI_M+SI_B+SI_NFA/SI_ER)/SI_P ; - SI_YD = (SI_GDP*SI_PGNP-SI_TAX)/SI_P-SI_DELTA*SI_K(-1) ; - SI_GE = SI_P*SI_G+SI_R*SI_B(-1)+SI_GEXOG ; - SI_TAX = SI_TRATE*SI_PGNP*SI_GNP ; - SI_TAXK = SI_TAXK_ALPHA*SI_TAXK_SHAR*SI_TAX+(1-SI_TAXK_ALPHA)*SI_TRATEK*SI_BETA*SI_GDP*SI_PGNP ; - SI_TAXH = SI_TAX-SI_TAXK ; - SI_TRATE = SI_TRATE_EXOG*(1-SI_TRATE_ALPHA)+SI_TRATE_ALPHA*((SI_TRATE(-2)/5+SI_TRATE(-1)/5+SI_TRATE(0)/5+SI_TRATE(1)/5+SI_TRATE(2)/5)+TAU1*(SI_B(1)/(SI_GNP(1)*SI_PGNP(1))-SI_BT_GDP_RAT(1))+RES_SI_TRATE) ; - SI_BT = SI_BT_GDP_RAT*SI_GNP*SI_PGNP ; - ( SI_B-(SI_B(-1)))+( SI_M-(SI_M(-1))) = SI_R*SI_B(-1)+SI_P*SI_G-SI_TAX ; - SI_GDEF = ( SI_B+SI_M-(SI_B(-1)+SI_M(-1))) ; - log(SI_M/SI_P) = SI_M0+(1-SI_M4)*log(SI_A)+SI_M2*SI_RS+SI_M4*log(SI_M(-1)/SI_P(-1))+RES_SI_M ; - SI_RS = (1-SI_X_RS1)*SI_RS_EXOG+SI_X_RS1*(SI_RS(-1)+SI_RS1*log(SI_MT/SI_M)/SI_M2+SI_RS2*log(GR_ER/SI_ER/SI_PAR)+SI_RS3*log(US_ER/SI_ER/SI_PARUS)+SI_RS4*log(SI_NEER/SI_NEER_PAR)+SI_RS5*(SI_UNR_FE-SI_UNR-SI_UNR_GAP_EXOG)+SI_RS6*100*(log(SI_GDP)-log(SI_GDP_FE)-SI_GDP_GAP_EXOG)+SI_X_RS2*(-SI_RS(-1)+SI_RSCON+100*( log(SI_P(1))-(log(SI_P))))+100*(SI_RTARC1*(( log(SI_P)-(log(SI_P(-1))))-( log(SI_P_TAR)-(log(SI_P_TAR(-1))))-SI_P_GAP_EXOG)+SI_RTARC2*(( log(SI_PGNP)-(log(SI_PGNP(-1))))-( log(SI_PGNP_TAR)-(log(SI_PGNP_TAR(-1))))-SI_PGNP_GAP_EXOG)+SI_RTARC3*(( log(SI_CPI)-(log(SI_CPI(-1))))-( log(SI_CPI_TAR)-(log(SI_CPI_TAR(-1))))-SI_CPI_GAP_EXOG)+SI_RTARC4*(( log(SI_PGNPNO)-(log(SI_PGNPNO(-1))))-( log(SI_PGNPNO_TAR)-(log(SI_PGNPNO_TAR(-1))))-SI_PGNPNO_GAP_EXOG)+SI_RTARF1*(( log(SI_P(1))-(log(SI_P)))-( log(SI_P_TAR(1))-(log(SI_P_TAR)))-SI_P_GAP_EXOG(1))+SI_RTARF2*(( log(SI_PGNP(1))-(log(SI_PGNP)))-( log(SI_PGNP_TAR(1))-(log(SI_PGNP_TAR)))-SI_PGNP_GAP_EXOG(1))+SI_RTARF3*(( log(SI_CPI(1))-(log(SI_CPI)))-( log(SI_CPI_TAR(1))-(log(SI_CPI_TAR)))-SI_CPI_GAP_EXOG(1))+SI_RTARF4*(( log(SI_PGNPNO(1))-(log(SI_PGNPNO)))-( log(SI_PGNPNO_TAR(1))-(log(SI_PGNPNO_TAR)))-SI_PGNPNO_GAP_EXOG(1)))+SI_RSCON2+RES_SI_RS)+SI_RS1PERM*0 ; - SI_RL/100 = ((1+SI_RS/100)*(1+SI_RS(1)/100)*(1+SI_RS(2)/100)*(1+SI_RS(3)/100)*(1+SI_RS(4)/100)*(1+SI_RS(5)/100)*(1+SI_RS(6)/100)*(1+SI_RS(7)/100)*(1+SI_RS(8)/100)*(1+SI_RS(9)/100))^0.1*(1+SI_TPREM)-1+RES_SI_RL ; - SI_R = 0.5*SI_RS(-1)/100+0.5*(SI_RL(-3)/100+SI_RL(-2)/100+SI_RL(-1)/100)/3 ; - SI_RLR = (1+SI_RL/100)/(SI_P(10)/SI_P)^0.1-1 ; - SI_RSR = (1+SI_RS/100)/(SI_P(1)/SI_P)-1 ; - SI_PGNPNO = (SI_GDP*SI_PGNP-SI_PRODOIL*POIL/SI_ER*SI_E96)/(SI_GDP-SI_PRODOIL) ; - SI_PGNP = (SI_P*SI_A+SI_XT*SI_PXT-SI_IT*SI_PIT)/SI_GDP+RES_SI_P*SI_PGNP ; - ( log(SI_PXM)-(log(SI_PXM(-1)))) = SI_PXM0+SI_PXM1*( log(SI_PGNPNO)-(log(SI_PGNPNO(-1))))+(1-SI_PXM1)*( log(SI_PFM)-(log(SI_PFM(-1))))+SI_PXM2*log(SI_PGNPNO(-1)/SI_PXM(-1))+RES_SI_PXM ; - SI_PXT = (SI_XMA*SI_PXM+POIL/SI_ER*SI_E96*SI_XOIL)/SI_XT ; - SI_PIM = (S0108*US_PXM+S0208*JA_PXM*JA_ER/JA_E96+S0308*GR_PXM*GR_ER/GR_E96+S0408*FR_PXM*FR_ER/FR_E96+S0508*IT_PXM*IT_ER/IT_E96+S0608*UK_PXM*UK_ER/UK_E96+S0708*CA_PXM*CA_ER/CA_E96+S0808*SI_PXM*SI_ER/SI_E96+S0908*RW_PXM*RW_ER/RW_E96)/(SI_ER/SI_E96)*(1+RES_SI_PIM) ; - SI_PIMA = SI_PIM+T08*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/SI_ER/SI_IM ; - SI_PIT = (SI_IM*SI_PIMA+SI_IOIL*POIL/SI_ER*SI_E96+SI_ICOM*PCOM/SI_ER*SI_E96)/SI_IT ; - //log(SI_TFP_FE) = RES_SI_TFP_FE ; - SI_TFP_FE = exp(RES_SI_TFP_FE); - SI_GDP_FE = SI_TFP_FE*SI_K^SI_BETA*((1-SI_UNR_FE/100)*SI_LF)^(1-SI_BETA) ; - SI_LF = SI_POP*SI_PART/(1+SI_DEM3) ; - SI_CU = 100*SI_GDP/SI_GDP_FE ; - ( SI_NFA-(SI_NFA(-1))) = (SI_XT*SI_PXT-SI_IT*SI_PIT)*SI_ER+(US_R+(SI_PREM(-3)+SI_PREM(-2)+SI_PREM(-1))/3)*SI_NFA(-1)+RES_SI_NFA*US_INFL^TME*GREAL^TME ; - SI_TB = SI_XT*SI_PXT-SI_IT*SI_PIT ; - SI_CURBAL = ( SI_NFA-(SI_NFA(-1))) ; - 1+US_RS/100 = (1+SI_RS/100)*SI_ER(1)/SI_ER-SI_PREM+RES_SI_ER ; - SI_RCI = log(SI_PXM)-log(SI_PFM) ; - SI_FACT = (US_IM*US_E96*S0801+JA_IM*JA_E96*S0802+GR_IM*GR_E96*S0803+FR_IM*FR_E96*S0804+IT_IM*IT_E96*S0805+UK_IM*UK_E96*S0806+CA_IM*CA_E96*S0807+SI_IM*SI_E96*S0808+(HO_IM+DC_IM)*RW_E96*S0809)/SI_E96 ; - log(SI_PFM) = W0801*log(US_PXM*US_ER/US_E96)+W0802*log(JA_PXM*JA_ER/JA_E96)+W0803*log(GR_PXM*GR_ER/GR_E96)+W0804*log(FR_PXM*FR_ER/FR_E96)+W0805*log(IT_PXM*IT_ER/IT_E96)+W0806*log(UK_PXM*UK_ER/UK_E96)+W0807*log(CA_PXM*CA_ER/CA_E96)+W0808*log(SI_ER/SI_E96)+W0809*log(RW_PXM*RW_ER/RW_E96) ; - SI_NEER = exp(-V0801*log(US_ER/US_E96)-V0802*log(JA_ER/JA_E96)-V0803*log(GR_ER/GR_E96)-V0804*log(FR_ER/FR_E96)-V0805*log(IT_ER/IT_E96)-V0806*log(UK_ER/UK_E96)-V0807*log(CA_ER/CA_E96)+log(SI_ER/SI_E96)) ; - ( log(DC_CTOT)-(log(DC_CTOT(-1)))) = DC_C0+DC_C1*( log(DC_GDP+DC_NFA(-1)*US_R/RW_ER/DC_P-DC_DELTA*DC_K(-1)+(DC_DEBT-DC_DEBT(-1))/DC_P/RW_ER)-(log(DC_GDP(-1)+DC_NFA(-2)*US_R(-1)/RW_ER(-1)/DC_P(-1)-DC_DELTA(-1)*DC_K(-2)+(DC_DEBT(-1)-DC_DEBT(-2))/DC_P(-1)/RW_ER(-1))))+DC_C2*log((DC_GDP(-1)+DC_NFA(-2)*US_R(-1)/RW_ER(-1)/DC_P(-1)-DC_DELTA(-1)*DC_K(-2)+( DC_DEBT(-1)-(DC_DEBT(-2)))/DC_P(-1)/RW_ER(-1))/DC_CTOT(-1))+RES_DC_CTOT ; - DC_INVEST = DC_GDP-(DC_XM+DC_XCOM+DC_XOIL)-DC_CTOT+DC_IT ; - DC_INVESTC = PCOM/RW_ER/DC_PXM*DC_KCOMSHR*DC_INVEST ; - DC_KC = DC_KC(-1)*(1-DC_DELTA)+DC_INVESTC ; - DC_K = DC_KC+DC_KM ; - DC_INVESTM = DC_INVEST-DC_INVESTC ; - DC_KM = DC_KM(-1)*(1-DC_DELTA)+DC_INVESTM ; - DC_XM = RW_XM-HO_XM ; - DC_XMA = RW_XMA-HO_XM ; - DC_XCOM = RW_XCOM+HO_ICOM ; - DC_XOIL = DC_XOILSHR*(RW_XOIL-DC_IOIL)+RES_DC_XOIL*GREAL^TME ; - DC_XT = DC_XCOM+DC_XOIL+DC_XMA ; - DC_IOIL = DC_OILSHR*DC_IT ; - DC_IT = DC_IM+DC_IOIL ; - DC_A = DC_CTOT+DC_INVEST ; - DC_GDP = DC_XM+DC_XCOM+DC_XOIL+DC_QNT ; - log(DC_QNT) = log(DC_GDP_FE)+RES_DC_QNT ; - DC_NNPCAP = DC_GDP_FE-DC_DELTA*DC_K(-1) ; - DC_P = (DC_PXM*DC_QNT+DC_PIT*DC_IT)/(DC_CTOT+DC_INVEST) ; - DC_PGNP = (DC_PXM*(DC_QNT+DC_XMA)+PCOM/RW_ER*DC_XCOM+POIL/RW_ER*DC_XOIL)/DC_GDP+RES_DC_PGNP*DC_PGNP ; - ( RW_RCI-(RW_RCI(-1))) = RW_PXM1*RW_RCI(-1)+RW_PXM2*log(DC_XSM/DC_XM)+RES_DC_PXM ; - log(RW_PFM) = W0901*log(US_PXM*US_ER/US_E96)+W0902*log(JA_PXM*JA_ER/JA_E96)+W0903*log(GR_PXM*GR_ER/GR_E96)+W0904*log(FR_PXM*FR_ER/FR_E96)+W0905*log(IT_PXM*IT_ER/IT_E96)+W0906*log(UK_PXM*UK_ER/UK_E96)+W0907*log(CA_PXM*CA_ER/CA_E96)+W0908*log(SI_PXM*SI_ER/SI_E96)+W0909*log(RW_ER/RW_E96) ; - log(DC_XCOM) = RW_XCOM1*log(DC_KC(-1))+(1-RW_XCOM1)*log(1+DC_PROD)*TME+RES_PCOM ; - DC_PXT = (DC_PXM*DC_XMA+PCOM/RW_ER*DC_XCOM+POIL/RW_ER*DC_XOIL)/DC_XT ; - DC_PIM = RW_PIM+RES_DC_PIM*DC_INFL^TME ; - DC_PIMA = RW_PIMA+RES_DC_PIMA*DC_INFL^TME ; - DC_PIT = (DC_PIMA*DC_IM+POIL/RW_ER*DC_IOIL)/DC_IT ; - log(DC_XSM) = RW_XSM1*log(DC_KM(-1))+(1-RW_XSM1)*log(1+DC_PROD)*TME+RES_DC_XSM ; - DC_GDP_FE = exp(RES_DC_GDP_FE+DC_GDP_FE0+log(1+DC_PROD)*TME*(1-DC_BETA)+log(DC_K(-1))*DC_BETA) ; - ( DC_DEBT-(DC_DEBT(-1))) = ((DC_XT(4)*DC_PXT(4)*RW_ER(4)/(DC_XT(-1)*DC_PXT(-1)*RW_ER(-1)))^(1/5)-1)*DC_XT(-1)*DC_PXT(-1)*RW_ER(-1)*DC_DEBT1+DC_DEBT2*(ISR*DC_PXT(-1)*DC_XT(-1)*RW_ER(-1)/US_RRBAR(-1)-DC_DEBT(-1))+DC_DEBT2/10*(ISR*DC_XTNDHIST(-1)/US_RR(-1)-DC_DEBT(-1))+RES_DC_DEBT*US_INFL^TME*GREAL^TME ; - DC_NFA = DC_NFA(-1)-( DC_DEBT-(DC_DEBT(-1)))+RES_DC_NFA*DC_PIT*RW_ER*GREAL^TME ; - ( DC_NFA-(DC_NFA(-1)))/RW_ER = DC_PXM*DC_XMA+PCOM/RW_ER*DC_XCOM+POIL/RW_ER*DC_XOIL-DC_PIT*DC_IT+US_R*DC_NFA(-1)/RW_ER+RES_DC_IT*DC_PIT*GREAL^TME ; - HO_XOIL = RW_XOIL-DC_XOIL ; - HO_XT = HO_XOIL+HO_XM ; - log(HO_ICOM) = HO_IC2*log(PCOM/RW_ER/RW_PXM)+log(HO_GDP)+RES_HO_ICOM ; - HO_IM = HO_IT-HO_IOIL-HO_ICOM ; - HO_IT = HO_A+HO_XT-HO_GDP ; - HO_GDP = HO_XT+HO_QNT ; - ( log(HO_A)-(log(HO_A(-1)))) = HO_A0+HO_A1*log((HO_QNT+HO_XT*HO_PXT/DC_PGNP+0.035*HO_NFA/RW_ER/DC_PGNP)/HO_A(-1))+RES_HO_IM ; - HO_PXT = (RW_PXM*HO_XM+POIL/RW_ER*HO_XOIL)/HO_XT*(1+RES_HO_PXT) ; - HO_PIT = (RW_PIMA*HO_IM+POIL/RW_ER*HO_IOIL+PCOM/RW_ER*HO_ICOM)/HO_IT*(1+RES_HO_PIT) ; - 0 = HO_NFA+JA_NFA+CA_NFA+US_NFA+UK_NFA+IT_NFA+FR_NFA+GR_NFA+SI_NFA+DC_NFA ; - ( log(RW_XM)-(log(RW_XM(-1)))) = RW_XM0+( log(RW_FACT)-(log(RW_FACT(-1))))+RW_XM1*( RW_RCI-(RW_RCI(-1)))+RW_XM2*(RW_XM3*RW_RCI(-1)+log(RW_FACT(-1))-log(RW_XM(-1)))+RES_RW_XM ; - RW_XMA = RW_XM+T09*(WTRADER-TRDER*GREAL^TME)/RW_E96 ; - RW_XCOM = US_ICOM+JA_ICOM*JA_E96+GR_ICOM*GR_E96+CA_ICOM*CA_E96+FR_ICOM*FR_E96+IT_ICOM*IT_E96+UK_ICOM*UK_E96+SI_ICOM*SI_E96 ; - RW_XOIL = -(US_XOIL-US_IOIL+(JA_XOIL-JA_IOIL)*JA_E96+(GR_XOIL-GR_IOIL)*GR_E96+(FR_XOIL-FR_IOIL)*FR_E96+(IT_XOIL-IT_IOIL)*IT_E96+(UK_XOIL-UK_IOIL)*UK_E96+(CA_XOIL-CA_IOIL)*CA_E96+(SI_XOIL-SI_IOIL)*SI_E96)/RW_E96+DC_IOIL+HO_IOIL ; - RW_IM = DC_IM+HO_IM ; - RW_PXM = DC_PXM+RES_RW_PXM*RW_INFL^TME ; - RW_PIM = (S0109*US_PXM+S0209*JA_PXM*JA_ER/JA_E96+S0309*GR_PXM*GR_ER/GR_E96+S0409*FR_PXM*FR_ER/FR_E96+S0509*IT_PXM*IT_ER/IT_E96+S0609*UK_PXM*UK_ER/UK_E96+S0709*CA_PXM*CA_ER/CA_E96+S0809*SI_PXM*SI_ER/SI_E96+S0909*RW_PXM*RW_ER/RW_E96)/(RW_ER/RW_E96)*(1+RES_RW_PIM) ; - RW_RCI = log(RW_PXM)-log(RW_PFM) ; - RW_NEER = exp(-(W0902*log(JA_ER/JA_E96)+W0903*log(GR_ER/GR_E96)+W0904*log(FR_ER/FR_E96)+W0905*log(IT_ER/IT_E96)+W0906*log(UK_ER/UK_E96)+W0907*log(CA_ER/CA_E96)+W0908*log(SI_ER/SI_E96)+W0909*log(RW_ER/RW_E96))) ; - RW_FACT = (US_IM*US_E96*S0901+JA_IM*JA_E96*S0902+GR_IM*GR_E96*S0903+FR_IM*FR_E96*S0904+IT_IM*IT_E96*S0905+UK_IM*UK_E96*S0906+CA_IM*CA_E96*S0907+SI_IM*SI_E96*S0908+(HO_IM+DC_IM)*RW_E96*S0909)/RW_E96 ; - RW_PIMA = RW_PIM+T09*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/RW_ER/RW_IM ; - WTRADE-TRDE*GREAL^TME*US_INFL^TME = US_XMA*US_PXM-US_IM*US_PIM+(JA_XMA*JA_PXM-JA_IM*JA_PIM)*JA_ER+(GR_XMA*GR_PXM-GR_IM*GR_PIM)*GR_ER+(FR_XMA*FR_PXM-FR_IM*FR_PIM)*FR_ER+(IT_XMA*IT_PXM-IT_IM*IT_PIM)*IT_ER+(UK_XMA*UK_PXM-UK_IM*UK_PIM)*UK_ER+(CA_XMA*CA_PXM-CA_IM*CA_PIM)*CA_ER+(SI_XMA*SI_PXM-SI_IM*SI_PIM)*SI_ER+(RW_XMA*RW_PXM-RW_IM*RW_PIM)*RW_ER+RES_WTRADE*GREAL^TME*US_INFL^TME ; - WTRADER-TRDER*GREAL^TME = US_IM-US_XM+(JA_IM-JA_XM)*JA_E96+(GR_IM-GR_XM)*GR_E96+(FR_IM-FR_XM)*FR_E96+(IT_IM-IT_XM)*IT_E96+(UK_IM-UK_XM)*UK_E96+(CA_IM-CA_XM)*CA_E96+(SI_IM-SI_XM)*SI_E96+(RW_IM-RW_XM)*RW_E96+RES_WTRADER*GREAL^TME ; - POIL = RPOIL*US_PGNP^US_WT*(JA_PGNP*JA_ER/JA_E96)^JA_WT*(GR_PGNP*GR_ER/GR_E96)^GR_WT*(FR_PGNP*FR_ER/FR_E96)^FR_WT*(IT_PGNP*IT_ER/IT_E96)^IT_WT*(UK_PGNP*UK_ER/UK_E96)^UK_WT*(SI_PGNP*SI_ER/SI_E96)^SI_WT*(CA_PGNP*CA_ER/CA_E96)^CA_WT ; -end; - -initval; -CA_A=1258.37060606; -CA_ACT=349.585896649; -CA_ALPHA1=0.078; -CA_ALPHA2=0.121; -CA_ALPHA3=0.0911709766895; -CA_B=809.80955381; -CA_BCHI1=21.2121212121; -CA_BCHI2=5.91549295775; -CA_BETA=0.33; -CA_BT=809.80955381; -CA_BT_GDP_RAT=0.419976226386; -CA_C=905.688246476; -CA_COIL=24.7443625907; -CA_CPI=1.57958629296; -CA_CPI_GAP_EXOG=0; -CA_CPI_TAR=1.57958629296; -CA_CU=100; -CA_CURBAL=-18.4203759425; -CA_C_DI=693.928200938; -CA_C_PI=211.760045538; -CA_DELTA=0.025734401231; -CA_DELTA_SS=0.025734401231; -CA_DEM3=0.50966182372; -CA_DLGDP=0.0217614806134; -CA_DLLF=0.00144378024362; -CA_DLLF_SS=0; -CA_ER=0.74786657095; -CA_FACT=575.428338476; -CA_G=236.225701292; -CA_GDEF=42.179502634; -CA_GDP=1267.73017149; -CA_GDP_FE=1267.73017149; -CA_GDP_GAP_EXOG=8.881784197e-016; -CA_GE=423.620066068; -CA_GEXOG=0; -CA_GNP=1247.17158457; -CA_ICOM=7.85769143591; -CA_IM=511.06232766; -CA_INFL=1.0270000062; -CA_INVEST=116.456658295; -CA_IOIL=10.1521707873; -CA_IT=529.072189883; -CA_K=2493.27232399; -CA_LAMBDA=1; -CA_LAMBDA1=0.998452603746; -CA_LAMBDA2=0.999906905629; -CA_LAMBDA3=0.999345807356; -CA_LF=17618.8512388; -CA_M=82.8661220161; -CA_MGROW=1.04959399462; -CA_MPC=0.0754183988398; -CA_MPCINV=13.2593639667; -CA_MPK=0.167791922513; -CA_MT=82.8661220161; -CA_NEER=1.03344502186; -CA_NEER_PAR=1.03344502186; -CA_NFA=-389.843893754; -CA_NLIN=8.61938667297; -CA_P=1.54744635591; -CA_PAR=0.741890628438; -CA_PART=0.802174651456; -CA_PARUS=1.33713691565; -CA_PFM=1.35746485675; -CA_PGNP=1.54608006964; -CA_PGNPNO=1.55124422251; -CA_PGNPNO_GAP_EXOG=0; -CA_PGNPNO_TAR=1.55124422251; -CA_PGNP_GAP_EXOG=0; -CA_PGNP_TAR=1.54608006964; -CA_PHI=4.61938697849; -CA_PIM=1.36171164077; -CA_PIMA=1.36171164077; -CA_PIT=1.36238623326; -CA_POP=33158; -CA_PREM=0; -CA_PROB=0.021; -CA_PRODOIL=31.8549893389; -CA_PXM=1.36287943551; -CA_PXT=1.36238623326; -CA_P_GAP_EXOG=0; -CA_P_TAR=1.54744635591; -CA_Q=1.00001954084; -CA_R=0.0752690064927; -CA_RCI=0.00398080928473; -CA_RL=8.04040065237; -CA_RLR=0.052; -CA_RS=7.01340064617; -CA_RSCON=4.34920694771; -CA_RSCON2=0; -CA_RSR=0.042; -CA_RS_EXOG=7.01340064617; -CA_SIGMA=2.46201848984; -CA_TAX=381.440563434; -CA_TAXH=255.565177501; -CA_TAXK=125.875385933; -CA_TAXK_ALPHA=0; -CA_TAXK_SHAR=0.33; -CA_TB=12.7513430893; -CA_TFP_FE=0.145718808234; -CA_TPREM=0.00959692898273; -CA_TRATE=0.19781931155; -CA_TRATEK=0.194611305933; -CA_TRATE_ALPHA=1; -CA_TRATE_EXOG=0.19781931155; -CA_UNR=8.61938697848; -CA_UNR_A=8.61938697848; -CA_UNR_FE=8.61938697849; -CA_UNR_GAP_EXOG=0; -CA_W=17287.6390819; -CA_WH=14607.985195; -CA_WH1=7183.72844482; -CA_WH2=5276.9364611; -CA_WH3=6467.8624197; -CA_WK=2439.64491168; -CA_XM=522.949752064; -CA_XMA=522.949752064; -CA_XOIL=15.4820032481; -CA_XT=538.431755312; -CA_X_RS1=1; -CA_X_RS2=0; -CA_YD=957.332488133; -DC_A=11536.0772211; -DC_BETA=0.393728; -DC_CTOT=8912.56873925; -DC_DEBT=4375.0594787; -DC_DELTA=0.09; -DC_GDP=11588.0236257; -DC_GDP_FE=11589.3955919; -DC_IM=2196.74507138; -DC_INFL=1.0270000062; -DC_INVEST=2623.5084819; -DC_INVESTC=66.9128177073; -DC_INVESTM=2556.59566419; -DC_IOIL=723.068926272; -DC_IT=2919.81399765; -DC_K=23256.8531664; -DC_KC=615.953408725; -DC_KCOMSHR=0.0267156084709; -DC_KM=22640.8997576; -DC_NFA=-3138.05919175; -DC_NNPCAP=9548.73512857; -DC_OILSHR=0.247642119277; -DC_P=1.5121496198; -DC_PGNP=1.60264450124; -DC_PIM=1.50779607912; -DC_PIMA=1.50779607912; -DC_PIT=1.47422355167; -DC_PROD=0.0219999885862; -DC_PXM=1.52500171841; -DC_PXT=1.47428483631; -DC_QNT=8616.26322349; -DC_XCOM=309.581102136; -DC_XM=1815.66020781; -DC_XMA=1815.66020781; -DC_XOIL=846.519092264; -DC_XOILSHR=0.909129264415; -DC_XSM=1815.66020781; -DC_XT=2971.76040221; -DC_XTNDHIST=4381.22129813; -FR_A=12428.3120854; -FR_ACT=2554.65167678; -FR_ALPHA1=0.078; -FR_ALPHA2=0.121; -FR_ALPHA3=0.0911709766895; -FR_B=8164.71454206; -FR_BCHI1=21.2121212121; -FR_BCHI2=5.91549295775; -FR_BETA=0.31; -FR_BT=8164.71454206; -FR_BT_GDP_RAT=0.42246434571; -FR_C=8559.94267961; -FR_COIL=115.462535562; -FR_CPI=1.55308652521; -FR_CPI_GAP_EXOG=0; -FR_CPI_TAR=1.55308652521; -FR_CU=100; -FR_CURBAL=25.8977049485; -FR_C_DI=5759.91516804; -FR_C_PI=2800.02751158; -FR_DELTA=0.0277164109602; -FR_DELTA_SS=0.0277164109602; -FR_DEM3=0.550387627392; -FR_DLGDP=0.0217614806135; -FR_DLLF=-0.00310730457315; -FR_DLLF_SS=0; -FR_ER=0.164628446102; -FR_FACT=3378.539512; -FR_G=2594.67863751; -FR_GDEF=421.959988213; -FR_GDP=12373.9712324; -FR_GDP_FE=12373.9712324; -FR_GDP_GAP_EXOG=0; -FR_GE=4594.93602206; -FR_GEXOG=0; -FR_GNP=12505.3276835; -FR_ICOM=87.5752466318; -FR_IM=3083.11857811; -FR_INFL=1.0270000062; -FR_INVEST=1273.69076828; -FR_IOIL=124.906863476; -FR_IT=3295.60068822; -FR_K=26180.57806; -FR_LAMBDA=0.752518355846; -FR_LAMBDA1=0.95979954587; -FR_LAMBDA2=0.990046224521; -FR_LAMBDA3=0.97378573951; -FR_LF=26401.37859; -FR_M=765.533425034; -FR_MGROW=1.04959399462; -FR_MPC=0.0537747019055; -FR_MPCINV=18.5961049446; -FR_MPK=0.146518196552; -FR_MT=765.533425034; -FR_NEER=0.944128414683; -FR_NEER_PAR=0.944128414683; -FR_NFA=548.092078464; -FR_NLIN=9.10357761383; -FR_P=1.54524876208; -FR_PAR=3.37022679523; -FR_PART=0.664648383729; -FR_PARUS=6.07428438813; -FR_PFM=1.58646640137; -FR_PGNP=1.5454532315; -FR_PGNPNO=1.54542290009; -FR_PGNPNO_GAP_EXOG=0; -FR_PGNPNO_TAR=1.54542290009; -FR_PGNP_GAP_EXOG=0; -FR_PGNP_TAR=1.5454532315; -FR_PHI=5.10357726511; -FR_PIM=1.48685752168; -FR_PIMA=1.48685752168; -FR_PIT=1.49868897023; -FR_POP=61585; -FR_PREM=0; -FR_PROB=0.021; -FR_PRODOIL=4.46861579712; -FR_PXM=1.49797486646; -FR_PXT=1.49868897023; -FR_P_GAP_EXOG=0; -FR_P_TAR=1.54524876208; -FR_Q=1.00005197187; -FR_R=0.0752690064927; -FR_RCI=-0.0573950470952; -FR_RL=8.04040065237; -FR_RLR=0.052; -FR_RS=7.01340064617; -FR_RSCON=4.34920694771; -FR_RSCON2=0; -FR_RSR=0.042; -FR_RS_EXOG=7.01340064617; -FR_SIGMA=2.46201848984; -FR_TAX=4172.97603385; -FR_TAXH=2879.35346336; -FR_TAXK=1293.62257049; -FR_TAXK_ALPHA=0; -FR_TAXK_SHAR=0.31; -FR_TB=-81.4400370019; -FR_TFP_FE=0.501898498749; -FR_TPREM=0.00959692898273; -FR_TRATE=0.215921031988; -FR_TRATEK=0.218213151465; -FR_TRATE_ALPHA=1; -FR_TRATE_EXOG=0.215921031988; -FR_UNR=9.1035772651; -FR_UNR_A=9.1035772651; -FR_UNR_FE=9.10357726511; -FR_UNR_GAP_EXOG=0; -FR_W=168360.064296; -FR_WH=134808.153404; -FR_WH1=66294.232454; -FR_WH2=48697.6164374; -FR_WH3=59687.9431099; -FR_WK=25618.2270584; -FR_XM=3223.65007818; -FR_XMA=3223.65007818; -FR_XOIL=17.6097570464; -FR_XT=3241.25983523; -FR_X_RS1=1; -FR_X_RS2=0; -FR_YD=8965.07961638; -GREAL=1.02199998859; -GREAL_SS=1.02199998859; -GR_A=5547.54704742; -GR_ACT=1244.30607441; -GR_ALPHA1=0.078; -GR_ALPHA2=0.121; -GR_ALPHA3=0.0911709766895; -GR_B=2836.64063958; -GR_BCHI1=21.2121212121; -GR_BCHI2=5.91549295775; -GR_BETA=0.31; -GR_BT=2836.64063958; -GR_BT_GDP_RAT=0.327321201968; -GR_C=3764.15898979; -GR_COIL=47.8884655943; -GR_CPI=1.57327094041; -GR_CPI_GAP_EXOG=0; -GR_CPI_TAR=1.57327094041; -GR_CU=100; -GR_CURBAL=32.7810545775; -GR_C_DI=2362.84340677; -GR_C_PI=1401.31558301; -GR_DELTA=0.027325658516; -GR_DELTA_SS=0.027325658516; -GR_DEM3=0.517911346568; -GR_DLGDP=0.0217614806135; -GR_DLLF=-0.00533289129889; -GR_DLLF_SS=0; -GR_ER=0.55483520031; -GR_FACT=1752.82324912; -GR_G=1147.43001864; -GR_GDEF=171.997485885; -GR_GDP=5527.29510412; -GR_GDP_FE=5527.29510412; -GR_GDP_GAP_EXOG=0; -GR_GE=1986.46344565; -GR_GEXOG=0; -GR_GNP=5576.35538713; -GR_ICOM=51.2036719786; -GR_IM=1545.57558691; -GR_INFL=1.0270000062; -GR_INVEST=635.958039002; -GR_IOIL=41.791347602; -GR_IT=1638.57060649; -GR_K=13176.1632314; -GR_LAMBDA=0.743550360203; -GR_LAMBDA1=0.946223644928; -GR_LAMBDA2=0.984891127527; -GR_LAMBDA3=0.963549035564; -GR_LF=35257.118086; -GR_M=803.468000031; -GR_MGROW=1.04959399462; -GR_MPC=0.0534792245595; -GR_MPCINV=18.6988500345; -GR_MPK=0.130042520891; -GR_MT=803.468000031; -GR_NEER=0.925708703761; -GR_NEER_PAR=0.925708703761; -GR_NFA=693.76944302; -GR_NLIN=8.52112674713; -GR_P=1.55394301397; -GR_PAR=1; -GR_PART=0.688368121295; -GR_PARUS=1.80233698122; -GR_PFM=1.61278488747; -GR_PGNP=1.554102787; -GR_PGNPNO=1.55407854318; -GR_PGNPNO_GAP_EXOG=0; -GR_PGNPNO_TAR=1.55407854318; -GR_PGNP_GAP_EXOG=0; -GR_PGNP_TAR=1.554102787; -GR_PHI=4.52112647046; -GR_PIM=1.49899942983; -GR_PIMA=1.49899942983; -GR_PIT=1.51033669586; -GR_POP=77745; -GR_PREM=0; -GR_PROB=0.021; -GR_PRODOIL=1.49721926483; -GR_PXM=1.5099118411; -GR_PXT=1.51033669586; -GR_P_GAP_EXOG=0; -GR_P_TAR=1.55394301397; -GR_Q=1.00002519661; -GR_R=0.0752690064927; -GR_RCI=-0.0659111627379; -GR_RL=8.04040065237; -GR_RLR=0.052; -GR_RS=7.01340064617; -GR_RSCON=4.34920694771; -GR_RSCON2=0; -GR_RSR=0.042; -GR_RS_EXOG=7.01340064617; -GR_SIGMA=2.46201848984; -GR_TAX=1814.46595976; -GR_TAXH=1251.98151224; -GR_TAXK=562.484447526; -GR_TAXK_ALPHA=0; -GR_TAXK_SHAR=0.31; -GR_TB=-30.5872531417; -GR_TFP_FE=0.22618636237; -GR_TPREM=0.00959692898273; -GR_TRATE=0.20937201935; -GR_TRATEK=0.211230405835; -GR_TRATE_ALPHA=1; -GR_TRATE_EXOG=0.20937201935; -GR_UNR=8.52112647046; -GR_UNR_A=8.52112647046; -GR_UNR_FE=8.52112647046; -GR_UNR_GAP_EXOG=0; -GR_W=75273.9837207; -GR_WH=59233.9926595; -GR_WH1=29129.3366121; -GR_WH2=21397.4762042; -GR_WH3=26226.5678653; -GR_WK=12892.8261271; -GR_XM=1613.17493703; -GR_XMA=1613.17493703; -GR_XOIL=5.14372615061; -GR_XT=1618.31866318; -GR_X_RS1=1; -GR_X_RS2=0; -GR_YD=4007.91448996; -HO_A=429.071306821; -HO_GDP=417.235790092; -HO_ICOM=9.8632080102; -HO_IM=183.858899853; -HO_IOIL=0.122354153306; -HO_IT=193.844462017; -HO_NFA=719.347820924; -HO_PIT=1.48676053562; -HO_PXT=1.48676053562; -HO_QNT=235.226844805; -HO_XM=97.3963213053; -HO_XOIL=84.6126239818; -HO_XT=182.008945287; -IT_A=2882.89903126; -IT_ACT=585.122270907; -IT_ALPHA1=0.078; -IT_ALPHA2=0.121; -IT_ALPHA3=0.0911709766895; -IT_B=4162.90203487; -IT_BCHI1=21.2121212121; -IT_BCHI2=5.91549295775; -IT_BETA=0.33; -IT_BT=4162.90203487; -IT_BT_GDP_RAT=0.893355068859; -IT_C=2085.39820473; -IT_COIL=32.313444431; -IT_CPI=1.57442961175; -IT_CPI_GAP_EXOG=0; -IT_CPI_TAR=1.57442961175; -IT_CU=100; -IT_CURBAL=22.5845089076; -IT_C_DI=1291.08423915; -IT_C_PI=794.313965584; -IT_DELTA=0.0228725129802; -IT_DELTA_SS=0.0228725129802; -IT_DEM3=0.549666865555; -IT_DLGDP=0.0217614806135; -IT_DLLF=-0.00734415718949; -IT_DLLF_SS=0; -IT_ER=0.56895200396; -IT_FACT=866.589830511; -IT_G=505.458099941; -IT_GDEF=217.885990105; -IT_GDP=2869.00970783; -IT_GDP_FE=2869.00970783; -IT_GDP_GAP_EXOG=0; -IT_GE=1110.16464714; -IT_GEXOG=0; -IT_GNP=2900.89911415; -IT_ICOM=27.9359136154; -IT_IM=746.307923056; -IT_INFL=1.0270000062; -IT_INVEST=292.042726587; -IT_IOIL=40.5418920294; -IT_IT=814.785728701; -IT_K=6651.22322272; -IT_LAMBDA=0.911613047123; -IT_LAMBDA1=0.96192072127; -IT_LAMBDA2=0.990790836676; -IT_LAMBDA3=0.975347367544; -IT_LF=21512.1047038; -IT_M=448.378594908; -IT_MGROW=1.04959399462; -IT_MPC=0.0560882113769; -IT_MPCINV=17.8290584679; -IT_MPK=0.142345726775; -IT_MT=448.378594908; -IT_NEER=0.993697877386; -IT_NEER_PAR=0.993697877386; -IT_NFA=477.972486476; -IT_NLIN=9.6763048172; -IT_P=1.60573655135; -IT_PAR=0.975188058832; -IT_PART=0.594839602944; -IT_PARUS=1.75761750208; -IT_PFM=1.5102439297; -IT_PGNP=1.60634734372; -IT_PGNPNO=1.60637099427; -IT_PGNPNO_GAP_EXOG=0; -IT_PGNPNO_TAR=1.60637099427; -IT_PGNP_GAP_EXOG=0; -IT_PGNP_TAR=1.60634734372; -IT_PHI=5.67630449384; -IT_PIM=1.46833347211; -IT_PIMA=1.46833347211; -IT_PIT=1.4795699128; -IT_POP=56043; -IT_PREM=0; -IT_PROB=0.021; -IT_PRODOIL=1.56977411787; -IT_PXM=1.4786793971; -IT_PXT=1.4795699128; -IT_P_GAP_EXOG=0; -IT_P_TAR=1.60573655135; -IT_Q=1.00002007572; -IT_R=0.0752690064927; -IT_RCI=-0.0211217904449; -IT_RL=8.04040065237; -IT_RLR=0.052; -IT_RS=7.01340064617; -IT_RSCON=4.34920694771; -IT_RSCON2=0; -IT_RSR=0.042; -IT_RS_EXOG=7.01340064617; -IT_SIGMA=2.46201848984; -IT_TAX=892.278657033; -IT_TAXH=597.826700212; -IT_TAXK=294.451956821; -IT_TAXK_ALPHA=0; -IT_TAXK_SHAR=0.33; -IT_TB=-20.5502250652; -IT_TFP_FE=0.210324484098; -IT_TPREM=0.00959692898273; -IT_TRATE=0.191482205062; -IT_TRATEK=0.193610554027; -IT_TRATE_ALPHA=1; -IT_TRATE_EXOG=0.191482205062; -IT_UNR=9.67630449384; -IT_UNR_A=9.67630449384; -IT_UNR_FE=9.67630449384; -IT_UNR_GAP_EXOG=0; -IT_W=42237.362887; -IT_WH=32334.2602264; -IT_WH1=15900.9296512; -IT_WH2=11680.3128189; -IT_WH3=14316.3854423; -IT_WK=6508.16627893; -IT_XM=792.45269194; -IT_XMA=792.45269194; -IT_XOIL=8.44371332531; -IT_XT=800.896405265; -IT_X_RS1=1; -IT_X_RS2=0; -IT_YD=2165.56404681; -JA_A=783.056146905; -JA_ACT=63.5182611397; -JA_ALPHA1=0.078; -JA_ALPHA2=0.121; -JA_ALPHA3=0.0911709766895; -JA_B=259.101105567; -JA_BCHI1=21.2121212121; -JA_BCHI2=5.91549295775; -JA_BETA=0.43; -JA_BT=259.101105567; -JA_BT_GDP_RAT=0.22710463859; -JA_C=543.440832231; -JA_COIL=6.60124352681; -JA_CPI=1.46659153746; -JA_CPI_GAP_EXOG=0; -JA_CPI_TAR=1.46659153746; -JA_CU=100; -JA_CURBAL=151.027332837; -JA_C_DI=163.365868119; -JA_C_PI=380.074964113; -JA_DELTA=0.0353191039248; -JA_DELTA_SS=0.0353191039248; -JA_DEM3=0.638269939189; -JA_DLGDP=0.0217614806135; -JA_DLLF=-0.0101586915738; -JA_DLLF_SS=0; -JA_ER=9.25925280899; -JA_FACT=99.1282294501; -JA_G=133.195640388; -JA_GDEF=18.4718577163; -JA_GDP=775.773443241; -JA_GDP_FE=775.773443241; -JA_GDP_GAP_EXOG=0; -JA_GE=210.49870329; -JA_GEXOG=0; -JA_GNP=790.355189354; -JA_ICOM=8.10471508424; -JA_IM=73.6209617483; -JA_INFL=1.0270000062; -JA_INVEST=106.419674286; -JA_IOIL=6.25649765204; -JA_IT=87.9821744845; -JA_K=1897.42378099; -JA_LAMBDA=1; -JA_LAMBDA1=0.781339016115; -JA_LAMBDA2=0.887019030794; -JA_LAMBDA3=0.82137824171; -JA_LF=62800.2277851; -JA_M=131.832334634; -JA_MGROW=1.04959399462; -JA_MPC=0.0606503031206; -JA_MPCINV=16.4879637619; -JA_MPK=0.175808158375; -JA_MT=131.832334634; -JA_NEER=1.06586189299; -JA_NEER_PAR=1.06586189299; -JA_NFA=3196.30194739; -JA_NLIN=2.62369418144; -JA_P=1.44087235439; -JA_PAR=0.059922243377; -JA_PART=0.808249735683; -JA_PARUS=0.108000075236; -JA_PFM=1.33811031428; -JA_PGNP=1.44351384028; -JA_PGNPNO=1.44351605851; -JA_PGNPNO_GAP_EXOG=0; -JA_PGNPNO_TAR=1.44351605851; -JA_PGNP_GAP_EXOG=0; -JA_PGNP_TAR=1.44351384028; -JA_PHI=0; -JA_PIM=1.11076764325; -JA_PIMA=1.11076764325; -JA_PIT=1.15949407771; -JA_POP=127292; -JA_PREM=0; -JA_PROB=0.021; -JA_PRODOIL=0.0212147508622; -JA_PXM=1.15875219126; -JA_PXT=1.15949407771; -JA_P_GAP_EXOG=0; -JA_P_TAR=1.44087235439; -JA_Q=1.00001538804; -JA_R=0.0752690064927; -JA_RCI=-0.143914676498; -JA_RL=8.04040065237; -JA_RLR=0.052; -JA_RS=7.01340064617; -JA_RSCON=4.34920694771; -JA_RSCON2=0; -JA_RSR=0.042; -JA_RS_EXOG=7.01340064617; -JA_SIGMA=2.46201848984; -JA_TAX=192.026845573; -JA_TAXH=109.455301977; -JA_TAXK=82.5715435966; -JA_TAXK_ALPHA=0; -JA_TAXK_SHAR=0.43; -JA_TB=-8.44425176742; -JA_TFP_FE=0.0564765253676; -JA_TPREM=0.00959692898273; -JA_TRATE=0.16831339746; -JA_TRATEK=0.171477083005; -JA_TRATE_ALPHA=1; -JA_TRATE_EXOG=0.16831339746; -JA_UNR=2.62369409684; -JA_UNR_A=2.62369409684; -JA_UNR_FE=2.62369409684; -JA_UNR_GAP_EXOG=0; -JA_W=10917.9054016; -JA_WH=8550.40523148; -JA_WH1=4204.80911339; -JA_WH2=3088.71788415; -JA_WH3=3785.79550374; -JA_WK=1856.60530237; -JA_XM=80.4054846447; -JA_XMA=80.4054846447; -JA_XOIL=0.29398617645; -JA_XT=80.6994708212; -JA_X_RS1=1; -JA_X_RS2=0; -JA_YD=578.351766744; -PCOM=1.45590188668; -POIL=1.37222734974; -RES_CA_COIL=-0.0109079988152; -RES_CA_CPI=1.45716771982e-016; -RES_CA_C_DI=6.37971312724; -RES_CA_ER=2.22044604925e-016; -RES_CA_GNP=1.07016091968; -RES_CA_ICOM=0.33019785665; -RES_CA_IM=0.00235525414693; -RES_CA_IOIL=0.526458158973; -RES_CA_K=1.71000399694e-008; -RES_CA_M=-0.550565119176; -RES_CA_MPC=0.0725757835938; -RES_CA_NFA=-1.35976046915e-015; -RES_CA_P=-3.22528117171e-016; -RES_CA_PGNP=1.35421873758e-009; -RES_CA_PIM=0.0236040516254; -RES_CA_PXM=0.00836005025292; -RES_CA_RL=4.02455846427e-016; -RES_CA_RS=-1.41372510865e-025; -RES_CA_TFP_FE=-1.92607648534; -RES_CA_TRATE=-2.51618067138e-017; -RES_CA_UNR_A=5.67903297341e-014; -RES_CA_WH1=-2.98068141344e-007; -RES_CA_WH2=-4.05773425957e-007; -RES_CA_WH3=-3.31058461917e-007; -RES_CA_WK=0.0702500610208; -RES_CA_XM=0.00527196299678; -RES_DC_CTOT=0.422387255093; -RES_DC_DEBT=32.1888401163; -RES_DC_GDP_FE=0.931068718221; -RES_DC_IT=-3.51105481552e-014; -RES_DC_NFA=11.720990544; -RES_DC_PGNP=0.0565622498116; -RES_DC_PIM=0.000335349354246; -RES_DC_PIMA=0.000335349354246; -RES_DC_PXM=0.0667624996576; -RES_DC_QNT=-0.296439016955; -RES_DC_XOIL=194.336977011; -RES_DC_XSM=2.77221679942; -RES_FR_COIL=-0.0167592386654; -RES_FR_CPI=-1.38777878078e-016; -RES_FR_C_DI=176.647308119; -RES_FR_ER=2.22044604925e-016; -RES_FR_GNP=-6.83765577133; -RES_FR_ICOM=-0.146270714655; -RES_FR_IM=0.0188358301561; -RES_FR_IOIL=-1.09289296157; -RES_FR_K=4.02123033244e-008; -RES_FR_M=-0.750716274859; -RES_FR_MPC=0.0192892161783; -RES_FR_NFA=-2.9084127087e-015; -RES_FR_P=1.42177072593e-016; -RES_FR_PGNP=-9.91177872979e-010; -RES_FR_PIM=-0.0589379247028; -RES_FR_PXM=0.00111629219566; -RES_FR_RL=1.80411241502e-016; -RES_FR_RS=-1.0504879353e-025; -RES_FR_TFP_FE=-0.689357373461; -RES_FR_TRATE=-1.02390673979e-017; -RES_FR_UNR_A=-1.22338250303e-014; -RES_FR_WH1=-1.05051439415e-006; -RES_FR_WH2=-1.43011199597e-006; -RES_FR_WH3=-1.16678581671e-006; -RES_FR_WK=0.0473543323484; -RES_FR_XM=0.00458843620038; -RES_GR_COIL=-0.0599808385464; -RES_GR_CPI=-2.01227923213e-016; -RES_GR_C_DI=56.1113704318; -RES_GR_ER=2.22044604925e-016; -RES_GR_GNP=-2.55379408086; -RES_GR_ICOM=0.0122241574252; -RES_GR_IM=0.0111511469269; -RES_GR_IOIL=-2.88051845816; -RES_GR_K=2.00019476797e-008; -RES_GR_M=-0.582712538577; -RES_GR_MPC=0.0185606904822; -RES_GR_NFA=-2.24957186463e-015; -RES_GR_P=1.41759807568e-016; -RES_GR_PGNP=-5.67002899152e-010; -RES_GR_PIM=-0.0621848991172; -RES_GR_PXM=0.0020074176271; -RES_GR_RL=1.80411241502e-016; -RES_GR_RS=2.83313491133e-025; -RES_GR_TFP_FE=-1.48639600726; -RES_GR_TRATE=-2.93586865643e-017; -RES_GR_UNR_A=-1.00673945799e-014; -RES_GR_WH1=-5.67239752245e-007; -RES_GR_WH2=-7.7220871869e-007; -RES_GR_WH3=-6.30022112363e-007; -RES_GR_WK=0.0355104120004; -RES_GR_XM=-0.0095654330276; -RES_HO_ICOM=-3.79494263097; -RES_HO_IM=0.021778181942; -RES_HO_PIT=-0.0112362204049; -RES_HO_PXT=0.0213732250159; -RES_IT_COIL=-0.027413074423; -RES_IT_CPI=-4.85722573274e-017; -RES_IT_C_DI=23.2453468402; -RES_IT_ER=4.4408920985e-016; -RES_IT_GNP=-1.6599777279; -RES_IT_ICOM=0.172465314805; -RES_IT_IM=0.0787416293833; -RES_IT_IOIL=0.400434794101; -RES_IT_K=2.04877417533e-008; -RES_IT_M=-0.599367064131; -RES_IT_MPC=0.024983903402; -RES_IT_NFA=5.20512673071e-017; -RES_IT_P=-4.03009782146e-017; -RES_IT_PGNP=-1.86335704269e-009; -RES_IT_PIM=-0.0394139247307; -RES_IT_PXM=-0.00346055065303; -RES_IT_RL=1.80411241502e-016; -RES_IT_RS=-9.56044004053e-026; -RES_IT_TFP_FE=-1.55910377843; -RES_IT_TRATE=5.12930108144e-017; -RES_IT_UNR_A=-2.49703172526e-015; -RES_IT_WH1=-2.80708934474e-007; -RES_IT_WH2=-3.82141564777e-007; -RES_IT_WH3=-3.11777929959e-007; -RES_IT_WK=0.0524795286111; -RES_IT_XM=0.00382575709651; -RES_JA_COIL=-0.098310587964; -RES_JA_CPI=-1.97758476261e-016; -RES_JA_C_DI=9.19437254995; -RES_JA_ER=2.22044604925e-016; -RES_JA_GNP=-0.759041216713; -RES_JA_ICOM=-0.386447875848; -RES_JA_IM=0.0322950153553; -RES_JA_IOIL=-0.182557313543; -RES_JA_K=5.87450491463e-009; -RES_JA_M=-0.427124000253; -RES_JA_MPC=0.0362152885381; -RES_JA_NFA=-8.09336819432e-016; -RES_JA_P=1.45181614284e-016; -RES_JA_PGNP=-2.93727895115e-009; -RES_JA_PIM=-0.221200305623; -RES_JA_PXM=-0.000788854755803; -RES_JA_RL=-2.63677968348e-016; -RES_JA_RS=-8.13538550497e-026; -RES_JA_TFP_FE=-2.87393020739; -RES_JA_TRATE=-5.14825168766e-017; -RES_JA_UNR_A=3.81337021603e-015; -RES_JA_WH1=-5.41207974696e-007; -RES_JA_WH2=-7.36770500828e-007; -RES_JA_WH3=-6.01109125171e-007; -RES_JA_WK=0.071815561682; -RES_JA_XM=-0.191635175395; -RES_PCOM=2.96142508204; -RES_RW_PIM=0.179918124325; -RES_RW_PXM=0.000701519557326; -RES_RW_XM=0.00757522099654; -RES_SI_COIL=-0.0561108572625; -RES_SI_CPI=4.57966997658e-016; -RES_SI_C_DI=55.784039885; -RES_SI_ER=2.22044604925e-016; -RES_SI_GNP=-1.95141273136; -RES_SI_ICOM=-0.0689147298982; -RES_SI_IM=-0.00718032410169; -RES_SI_IOIL=-4.22515210093; -RES_SI_K=9.31431864482e-009; -RES_SI_M=-0.478584774363; -RES_SI_MPC=0.0226014551092; -RES_SI_NFA=2.63739383605e-015; -RES_SI_P=-1.38492650462e-016; -RES_SI_PGNP=9.74854052457e-010; -RES_SI_PIM=-0.0771624065748; -RES_SI_PXM=0.00971162329178; -RES_SI_RL=1.80411241502e-016; -RES_SI_RS=2.15290279144e-025; -RES_SI_TFP_FE=-2.00372760211; -RES_SI_TRATE=3.43291264805e-017; -RES_SI_UNR_A=-6.51192381672e-017; -RES_SI_WH1=-2.63320724475e-007; -RES_SI_WH2=-3.58470220651e-007; -RES_SI_WH3=-2.92465184612e-007; -RES_SI_WK=0.0389567669552; -RES_SI_XM=0.00581089017958; -RES_UK_COIL=-0.0806931765756; -RES_UK_CPI=9.02056207508e-017; -RES_UK_C_DI=-8.62271098965; -RES_UK_ER=2.22044604925e-016; -RES_UK_GNP=-0.9114566915; -RES_UK_ICOM=0.0371063111646; -RES_UK_IM=-0.000837070829134; -RES_UK_IOIL=-2.41279576534; -RES_UK_K=3.50187874409e-008; -RES_UK_M=-0.529762438429; -RES_UK_MPC=0.0444559224021; -RES_UK_NFA=-5.57685810744e-015; -RES_UK_P=-1.79670262479e-016; -RES_UK_PGNP=6.81994717598e-010; -RES_UK_PIM=0.0587561474127; -RES_UK_PXM=-0.00424513169106; -RES_UK_RL=1.80411241502e-016; -RES_UK_RS=-6.88768018652e-026; -RES_UK_TFP_FE=-2.47600195449; -RES_UK_TRATE=-9.43272633968e-018; -RES_UK_UNR_A=2.95170244024e-014; -RES_UK_WH1=-5.27106184031e-007; -RES_UK_WH2=-7.17573106004e-007; -RES_UK_WH3=-5.85446541819e-007; -RES_UK_WK=0.0308395179277; -RES_UK_XM=0.0108137902997; -RES_US_COIL=-0.0349556083001; -RES_US_CPI=-7.97972798949e-017; -RES_US_C_DI=-93.8135046341; -RES_US_ER=0; -RES_US_GNP=7.18062984233; -RES_US_ICOM=-0.094132087951; -RES_US_IM=-0.0175610612422; -RES_US_IOIL=2.19014971638; -RES_US_K=-5.62109347086e-008; -RES_US_M=-0.613986121855; -RES_US_MPC=0.0876209985143; -RES_US_NFA=-1.53995030743e-014; -RES_US_P=-4.20291712167e-017; -RES_US_PGNP=7.35968716581e-010; -RES_US_PIM=-0.0442566864737; -RES_US_PXM=-0.00187707613244; -RES_US_RL=1.80411241502e-016; -RES_US_RS=-2.40604412419e-025; -RES_US_TFP_FE=-1.8369647179; -RES_US_TRATE=-8.38593190783e-017; -RES_US_UNR_A=-4.47527360645e-015; -RES_US_WH1=-1.46913990487e-006; -RES_US_WH2=-2.000005534e-006; -RES_US_WH3=-1.63174499393e-006; -RES_US_WK=0.100484836793; -RES_US_XM=-0.00368724829424; -RES_WTRADE=-4.55499885022e-014; -RES_WTRADER=-4.486587131; -RPOIL=1.37209440777; -RW_ER=1; -RW_FACT=2225.86319145; -RW_IM=2380.60397123; -RW_INFL=1.0270000062; -RW_NEER=1.07755126355; -RW_PFM=1.29321620968; -RW_PIM=1.5063051999; -RW_PIMA=1.5063051999; -RW_PXM=1.52812049863; -RW_RCI=0.166906246657; -RW_XCOM=299.717894126; -RW_XM=1913.05652912; -RW_XMA=1913.05652912; -RW_XOIL=931.131716246; -SI_A=5117.76377531; -SI_ACT=1401.01452561; -SI_ALPHA1=0.078; -SI_ALPHA2=0.121; -SI_ALPHA3=0.0911709766895; -SI_B=2898.55852703; -SI_BCHI1=21.2121212121; -SI_BCHI2=5.91549295775; -SI_BETA=0.31; -SI_BT=2898.55852703; -SI_BT_GDP_RAT=0.351078837384; -SI_C=3549.9723216; -SI_COIL=62.0827158115; -SI_CPI=1.60754202926; -SI_CPI_GAP_EXOG=0; -SI_CPI_TAR=1.60754202926; -SI_CU=100; -SI_CURBAL=39.9640389591; -SI_C_DI=2222.98337367; -SI_C_PI=1326.98894793; -SI_DELTA=0.0276156380992; -SI_DELTA_SS=0.0276156380992; -SI_DEM3=0.522070543645; -SI_DLGDP=0.0217614806135; -SI_DLLF=-0.00284483828482; -SI_DLLF_SS=0; -SI_ER=0.85627815444; -SI_FACT=1607.96515637; -SI_G=988.882067352; -SI_GDEF=163.945930821; -SI_GDP=5101.35487684; -SI_GDP_FE=5101.35487684; -SI_GDP_GAP_EXOG=0; -SI_GE=1796.19136277; -SI_GEXOG=0; -SI_GNP=5138.84296627; -SI_ICOM=60.7931978894; -SI_IM=1701.62918621; -SI_INFL=1.0270000062; -SI_INVEST=578.909386351; -SI_IOIL=84.7602832535; -SI_IT=1847.18266735; -SI_K=11924.3496871; -SI_LAMBDA=0.87110388279; -SI_LAMBDA1=0.945988405976; -SI_LAMBDA2=0.98479623869; -SI_LAMBDA3=0.963368318818; -SI_LF=69787.1739395; -SI_M=571.14916167; -SI_MGROW=1.04959399462; -SI_MPC=0.0551206864881; -SI_MPCINV=18.142009175; -SI_MPK=0.132621069771; -SI_MT=571.14916167; -SI_NEER=0.882725108922; -SI_NEER_PAR=0.882725108922; -SI_NFA=845.78819708; -SI_NLIN=8.92256450653; -SI_P=1.60618595958; -SI_PAR=0.647961410008; -SI_PART=0.684748986472; -SI_PARUS=1.16784481166; -SI_PFM=1.57681314987; -SI_PGNP=1.60661595608; -SI_PGNPNO=1.60664357831; -SI_PGNPNO_GAP_EXOG=0; -SI_PGNPNO_TAR=1.60664357831; -SI_PGNP_GAP_EXOG=0; -SI_PGNP_TAR=1.60661595608; -SI_PHI=4.92256465201; -SI_PIM=1.45788972496; -SI_PIMA=1.45788972496; -SI_PIT=1.47250454613; -SI_POP=155124; -SI_PREM=0; -SI_PROB=0.021; -SI_PRODOIL=34.410559154; -SI_PXM=1.46722854834; -SI_PXT=1.47250454613; -SI_P_GAP_EXOG=0; -SI_P_TAR=1.60618595958; -SI_Q=1.00001195585; -SI_R=0.0752690064927; -SI_RCI=-0.0720305363805; -SI_RL=8.04040065237; -SI_RLR=0.052; -SI_RS=7.01340064617; -SI_RSCON=4.34920694771; -SI_RSCON2=0; -SI_RSR=0.042; -SI_RS_EXOG=7.01340064617; -SI_SIGMA=2.46201848984; -SI_TAX=1632.24543195; -SI_TAXH=1126.24934805; -SI_TAXK=505.996083905; -SI_TAXK_ALPHA=0; -SI_TAXK_SHAR=0.31; -SI_TB=-24.1621775859; -SI_TFP_FE=0.134831746225; -SI_TPREM=0.00959692898273; -SI_TRATE=0.197700623683; -SI_TRATEK=0.199153457065; -SI_TRATE_ALPHA=1; -SI_TRATE_EXOG=0.197700623683; -SI_UNR=8.92256465201; -SI_UNR_A=8.92256465201; -SI_UNR_FE=8.92256465201; -SI_UNR_GAP_EXOG=0; -SI_W=70393.2746601; -SI_WH=55950.3040857; -SI_WH1=27514.5261713; -SI_WH2=20211.2882576; -SI_WH3=24772.6749676; -SI_WK=11667.7893945; -SI_XM=1759.39366752; -SI_XMA=1759.39366752; -SI_XOIL=71.3801013646; -SI_XT=1830.77376889; -SI_X_RS1=1; -SI_X_RS2=0; -SI_YD=3764.28653477; -TME=56; -UK_A=1155.31070583; -UK_ACT=319.829953313; -UK_ALPHA1=0.078; -UK_ALPHA2=0.121; -UK_ALPHA3=0.0911709766895; -UK_B=582.359396161; -UK_BCHI1=21.2121212121; -UK_BCHI2=5.91549295775; -UK_BETA=0.31; -UK_BT=582.359396161; -UK_BT_GDP_RAT=0.303201156422; -UK_C=787.282698991; -UK_COIL=13.2084645927; -UK_CPI=1.65344105214; -UK_CPI_GAP_EXOG=0; -UK_CPI_TAR=1.65344105214; -UK_CU=100; -UK_CURBAL=36.6047768844; -UK_C_DI=415.845695136; -UK_C_PI=371.437003854; -UK_DELTA=0.0223378842507; -UK_DELTA_SS=0.0223378842507; -UK_DEM3=0.554484700166; -UK_DLGDP=0.0217614806135; -UK_DLLF=-0.002770417422; -UK_DLLF_SS=0; -UK_ER=1.63522100449; -UK_FACT=374.750092695; -UK_G=237.429954234; -UK_GDEF=31.0530122626; -UK_GDP=1146.69203206; -UK_GDP_FE=1146.69203206; -UK_GDP_GAP_EXOG=0; -UK_GE=432.934454507; -UK_GEXOG=0; -UK_GNP=1164.20179276; -UK_ICOM=11.251733102; -UK_IM=387.212098441; -UK_INFL=1.0270000062; -UK_INVEST=130.598052604; -UK_IOIL=6.64851932886; -UK_IT=405.112350872; -UK_K=3010.13959234; -UK_LAMBDA=1; -UK_LAMBDA1=0.943609109433; -UK_LAMBDA2=0.983826472125; -UK_LAMBDA3=0.961534659433; -UK_LF=28680.2495054; -UK_M=74.8382229877; -UK_MGROW=1.04959399462; -UK_MPC=0.0639968766536; -UK_MPCINV=15.625762573; -UK_MPK=0.118092373803; -UK_MT=74.8382229877; -UK_NEER=1.18232335241; -UK_NEER_PAR=1.18232335241; -UK_NFA=774.693675913; -UK_NLIN=6.24795866013; -UK_P=1.64752593728; -UK_PAR=0.339302882477; -UK_PART=0.743682280824; -UK_PARUS=0.611538132923; -UK_PFM=1.26531412293; -UK_PGNP=1.64980254779; -UK_PGNPNO=1.65412657552; -UK_PGNPNO_GAP_EXOG=0; -UK_PGNPNO_TAR=1.65412657552; -UK_PGNP_GAP_EXOG=0; -UK_PGNP_TAR=1.64980254779; -UK_PHI=2.24795877554; -UK_PIM=1.34388143146; -UK_PIMA=1.34388143146; -UK_PIT=1.34462885652; -UK_POP=59949; -UK_PREM=0; -UK_PROB=0.021; -UK_PRODOIL=14.4321078551; -UK_PXM=1.3460644352; -UK_PXT=1.34462885652; -UK_P_GAP_EXOG=0; -UK_P_TAR=1.64752593728; -UK_Q=1.00003342951; -UK_R=0.0752690064927; -UK_RCI=0.0618646918253; -UK_RL=8.04040065237; -UK_RLR=0.052; -UK_RS=7.01340064617; -UK_RSCON=4.34920694771; -UK_RSCON2=0; -UK_RSR=0.042; -UK_RS_EXOG=7.01340064617; -UK_SIGMA=2.46201848984; -UK_TAX=401.881442244; -UK_TAXH=277.298195149; -UK_TAXK=124.583247096; -UK_TAXK_ALPHA=0; -UK_TAXK_SHAR=0.31; -UK_TB=-11.5889174594; -UK_TFP_FE=0.0840787050036; -UK_TPREM=0.00959692898273; -UK_TRATE=0.209236630913; -UK_TRATEK=0.212431632914; -UK_TRATE_ALPHA=1; -UK_TRATE_EXOG=0.209236630913; -UK_UNR=6.24795877554; -UK_UNR_A=6.24795877554; -UK_UNR_FE=6.24795877554; -UK_UNR_GAP_EXOG=0; -UK_W=15847.0975967; -UK_WH=12215.2101092; -UK_WH1=6007.04006404; -UK_WH2=4412.57892481; -UK_WH3=5408.43226219; -UK_WK=2945.43253236; -UK_XM=380.460005673; -UK_XMA=380.460005673; -UK_XOIL=16.0336714261; -UK_XT=396.493677099; -UK_X_RS1=1; -UK_X_RS2=0; -UK_YD=838.553773434; -US_A=11697.616118; -US_ACT=1151.05134833; -US_ALPHA1=0.078; -US_ALPHA2=0.121; -US_ALPHA3=0.0911709766895; -US_B=5527.77752688; -US_BCHI1=21.2121212121; -US_BCHI2=5.91549295775; -US_BETA=0.29; -US_BT=5527.77752688; -US_BT_GDP_RAT=0.288490863185; -US_C=8506.90300877; -US_COIL=188.736419346; -US_CPI=1.68517625161; -US_CPI_GAP_EXOG=0; -US_CPI_TAR=1.68517625161; -US_CU=100; -US_CURBAL=-176.153365647; -US_C_DI=2451.73706272; -US_C_PI=6055.16594605; -US_DELTA=0.0683597148338; -US_DELTA_SS=0.0683597148338; -US_DEM3=0.528818264493; -US_DLGDP=0.0217614806134; -US_DLLF=0.00299350231857; -US_DLLF_SS=0; -US_ER=1; - US_FACT=1386.00982925; -US_G=1982.34035843; -US_GDEF=318.199955986; -US_GDP=11765.3659437; -US_GDP_FE=11765.3659437; -US_GDP_GAP_EXOG=0; -US_GE=3666.60708292; -US_GEXOG=0; -US_GNP=11627.4207057; -US_ICOM=71.8306349189; -US_IM=1673.26974695; -US_INFL=1.0270000062; -US_INVEST=1208.37275081; -US_IOIL=101.663326142; -US_IT=1846.76370801; -US_K=13666.6579593; -US_LAMBDA=0.690045535564; -US_LAMBDA1=0.80851637383; -US_LAMBDA2=0.90660357866; -US_LAMBDA3=0.846316827896; -US_LF=156293.686043; -US_M=1206.52095982; -US_MGROW=1.04959399462; -US_MPC=0.0815299669132; -US_MPCINV=12.265428748; -US_MPK=0.249655485185; -US_MT=1206.52095982; -US_NEER=1.04811209443; -US_NEER_PAR=1.04811209443; -US_NFA=-3728.06256376; -US_NLIN=5.86949110031; -US_P=1.64966441717; -US_PAR=0.55483520031; -US_PART=0.779438419387; -US_PARUS=1; -US_PFM=1.31987785254; -US_PGNP=1.64791613615; -US_PGNPNO=1.65037395412; -US_PGNPNO_GAP_EXOG=0; -US_PGNPNO_TAR=1.65037395412; -US_PGNP_GAP_EXOG=0; -US_PGNP_TAR=1.64791613615; -US_PHI=1.86949133476; -US_PIM=1.33975449819; -US_PIMA=1.33975449819; -US_PIT=1.34605971131; -US_POP=306560; -US_PREM=0; -US_PROB=0.021; -US_PRODOIL=103.96361969; -US_PXM=1.34592946401; -US_PXT=1.34605971131; -US_P_GAP_EXOG=0; -US_P_TAR=1.64966441717; -US_Q=1.00004024078; -US_R=0.0752690064927; -US_RCI=0.0195456293399; -US_RL=8.04040065237; -US_RLR=0.052; -US_RR=0.0721880064741; -US_RRBAR=0.0721880064741; -US_RS=7.01340064617; -US_RSCON=4.34920694771; -US_RSCON2=0; -US_RSR=0.042; -US_RS_EXOG=7.01340064617; -US_SIGMA=2.46201848984; -US_TAX=3348.40712693; -US_TAXH=2377.36906012; -US_TAXK=971.038066811; -US_TAXK_ALPHA=0; -US_TAXK_SHAR=0.29; -US_TB=91.1953108477; -US_TFP_FE=0.159300214125; -US_TPREM=0.00959692898273; -US_TRATE=0.174751038306; -US_TRATEK=0.172702137006; -US_TRATE_ALPHA=1; -US_TRATE_EXOG=0.174751038306; -US_UNR=5.86949133476; -US_UNR_A=5.86949133476; -US_UNR_FE=5.86949133476; -US_UNR_GAP_EXOG=0; -US_W=156126.123679; -US_WH=140930.833736; -US_WH1=69305.1660137; -US_WH2=50909.3516395; -US_WH3=62398.834003; -US_WK=13372.9581449; -US_XM=1905.03139485; -US_XMA=1905.03139485; -US_XOIL=9.48213887322; -US_XT=1914.51353373; -US_X_RS1=1; -US_X_RS2=0; -US_YD=8809.01195636; -WTRADE=15038.166239; -WTRADER=3382.59414741; -end; - - -//steady(solve_algo=1); -//check; - - - -options_.slowc = 1.0; -options_.dynatol = 1e-4; -options_.maxit_ = 5; - - -simul(periods=80,datafile=mark3,markowitz=3); - - -//simul(periods=10,datafile=mark3, method=lu); -//simul(periods=10,datafile=mark3 /*, method=BICGSTAB*/); - -oo_.endo_simul_ss=oo_.endo_simul; - -shocks; -var US_G; -periods 1; -values 4330.714737; -end; -/*simul(periods=10); - -oo_.endo_simul_sim=oo_.endo_simul; - -oo_.endo_simul=(oo_.endo_simul_sim./oo_.endo_simul_ss-1)*100; - -rplot WTRADER; -rplot US_GDP; +var +CA_A CA_ACT CA_B CA_BT CA_C CA_COIL CA_CPI CA_CU CA_CURBAL CA_C_DI CA_C_PI CA_DLGDP CA_DLLF CA_ER CA_FACT CA_GDEF CA_GDP CA_GDP_FE CA_GE CA_GNP +CA_IM CA_INFL CA_INVEST CA_IOIL CA_IT CA_K CA_LF CA_M CA_MPC CA_MPCINV CA_MPK CA_NEER CA_NFA CA_P CA_PFM CA_PGNP CA_PGNPNO CA_PIM CA_PIMA CA_PIT +CA_PXM CA_PXT CA_Q CA_R CA_RCI CA_RL CA_RLR CA_RS CA_RSR CA_TAX CA_TAXH CA_TAXK CA_TB CA_TFP_FE CA_TRATE CA_UNR CA_UNR_A CA_W CA_WH CA_WH1 CA_WH2 +CA_WH3 CA_WK CA_XM CA_XMA CA_XT CA_YD +DC_A DC_CTOT DC_DEBT DC_GDP DC_GDP_FE DC_IM DC_INVEST DC_INVESTC DC_INVESTM DC_IOIL DC_IT DC_K DC_KC DC_KM DC_NFA DC_NNPCAP DC_P DC_PGNP +DC_PIM DC_PIMA DC_PIT DC_PXM DC_PXT DC_QNT DC_XCOM DC_XM DC_XMA DC_XOIL DC_XSM DC_XT +FR_A FR_ACT FR_B FR_BT FR_C FR_COIL FR_CPI FR_CU FR_CURBAL FR_C_DI FR_C_PI FR_DLGDP FR_DLLF FR_ER FR_FACT FR_GDEF FR_GDP FR_GDP_FE FR_GE FR_GNP +FR_IM FR_INFL FR_INVEST FR_IOIL FR_IT FR_K FR_LF FR_M FR_MPC FR_MPCINV FR_MPK FR_NEER FR_NFA FR_P FR_PFM FR_PGNP FR_PGNPNO FR_PIM FR_PIMA FR_PIT +FR_PXM FR_PXT FR_Q FR_R FR_RCI FR_RL FR_RLR FR_RS FR_RSR FR_TAX FR_TAXH FR_TAXK FR_TB FR_TFP_FE FR_TRATE FR_UNR FR_UNR_A FR_W FR_WH FR_WH1 FR_WH2 +FR_WH3 FR_WK FR_XM FR_XMA FR_XT FR_YD +GR_A GR_ACT GR_B GR_BT GR_C GR_COIL GR_CPI GR_CU GR_CURBAL GR_C_DI GR_C_PI GR_DLGDP GR_DLLF GR_ER GR_FACT GR_GDEF GR_GDP GR_GDP_FE GR_GE GR_GNP +GR_IM GR_INFL GR_INVEST GR_IOIL GR_IT GR_K GR_LF GR_M GR_MPC GR_MPCINV GR_MPK GR_NEER GR_NFA GR_P GR_PFM GR_PGNP GR_PGNPNO GR_PIM GR_PIMA GR_PIT +GR_PXM GR_PXT GR_Q GR_R GR_RCI GR_RL GR_RLR GR_RS GR_RSR GR_TAX GR_TAXH GR_TAXK GR_TB GR_TFP_FE GR_TRATE GR_UNR GR_UNR_A GR_W GR_WH GR_WH1 GR_WH2 +GR_WH3 GR_WK GR_XM GR_XMA GR_XT GR_YD +HO_A HO_GDP HO_ICOM HO_IM HO_IT HO_NFA HO_PIT HO_PXT HO_XOIL HO_XT +IT_A IT_ACT IT_B IT_BT IT_C IT_COIL IT_CPI IT_CU IT_CURBAL IT_C_DI IT_C_PI IT_DLGDP IT_DLLF IT_ER IT_FACT IT_GDEF IT_GDP IT_GDP_FE IT_GE IT_GNP +IT_IM IT_INFL IT_INVEST IT_IOIL IT_IT IT_K IT_LF IT_M IT_MPC IT_MPCINV IT_MPK IT_NEER IT_NFA IT_P IT_PFM IT_PGNP IT_PGNPNO IT_PIM IT_PIMA IT_PIT +IT_PXM IT_PXT IT_Q IT_R IT_RCI IT_RL IT_RLR IT_RS IT_RSR IT_TAX IT_TAXH IT_TAXK IT_TB IT_TFP_FE IT_TRATE IT_UNR IT_UNR_A IT_W IT_WH IT_WH1 IT_WH2 +IT_WH3 IT_WK IT_XM IT_XMA IT_XT IT_YD +JA_A JA_ACT JA_B JA_BT JA_C JA_COIL JA_CPI JA_CU JA_CURBAL JA_C_DI JA_C_PI JA_DLGDP JA_DLLF JA_ER JA_FACT JA_GDEF JA_GDP JA_GDP_FE JA_GE JA_GNP +JA_IM JA_INFL JA_INVEST JA_IOIL JA_IT JA_K JA_LF JA_M JA_MPC JA_MPCINV JA_MPK JA_NEER JA_NFA JA_P JA_PFM JA_PGNP JA_PGNPNO JA_PIM JA_PIMA JA_PIT +JA_PXM JA_PXT JA_Q JA_R JA_RCI JA_RL JA_RLR JA_RS JA_RSR JA_TAX JA_TAXH JA_TAXK JA_TB JA_TFP_FE JA_TRATE JA_UNR JA_UNR_A JA_W JA_WH JA_WH1 JA_WH2 +JA_WH3 JA_WK JA_XM JA_XMA JA_XT JA_YD +PCOM POIL +RES_CA_ICOM +RES_FR_ICOM +RES_GR_ICOM +RES_IT_ICOM +RES_JA_ICOM +RES_SI_ICOM +RES_UK_ICOM +RES_US_ICOM +RW_FACT RW_IM RW_NEER RW_PFM RW_PIM RW_PIMA RW_PXM RW_RCI RW_XCOM RW_XM RW_XMA RW_XOIL +SI_A SI_ACT SI_B SI_BT SI_C SI_COIL SI_CPI SI_CU SI_CURBAL SI_C_DI SI_C_PI SI_DLGDP SI_DLLF SI_ER SI_FACT SI_GDEF SI_GDP SI_GDP_FE SI_GE SI_GNP +SI_IM SI_INFL SI_INVEST SI_IOIL SI_IT SI_K SI_LF SI_M SI_MPC SI_MPCINV SI_MPK SI_NEER SI_NFA SI_P SI_PFM SI_PGNP SI_PGNPNO SI_PIM SI_PIMA SI_PIT +SI_PXM SI_PXT SI_Q SI_R SI_RCI SI_RL SI_RLR SI_RS SI_RSR SI_TAX SI_TAXH SI_TAXK SI_TB SI_TFP_FE SI_TRATE SI_UNR SI_UNR_A SI_W SI_WH SI_WH1 SI_WH2 +SI_WH3 SI_WK SI_XM SI_XMA SI_XT SI_YD +UK_A UK_ACT UK_B UK_BT UK_C UK_COIL UK_CPI UK_CU UK_CURBAL UK_C_DI UK_C_PI UK_DLGDP UK_DLLF UK_ER UK_FACT UK_GDEF UK_GDP UK_GDP_FE UK_GE UK_GNP +UK_IM UK_INFL UK_INVEST UK_IOIL UK_IT UK_K UK_LF UK_M UK_MPC UK_MPCINV UK_MPK UK_NEER UK_NFA UK_P UK_PFM UK_PGNP UK_PGNPNO UK_PIM UK_PIMA UK_PIT +UK_PXM UK_PXT UK_Q UK_R UK_RCI UK_RL UK_RLR UK_RS UK_RSR UK_TAX UK_TAXH UK_TAXK UK_TB UK_TFP_FE UK_TRATE UK_UNR UK_UNR_A UK_W UK_WH UK_WH1 UK_WH2 +UK_WH3 UK_WK UK_XM UK_XMA UK_XT UK_YD +US_A US_ACT US_B US_BT US_C US_COIL US_CPI US_CU US_CURBAL US_C_DI US_C_PI US_DLGDP US_DLLF US_ER US_FACT US_GDEF US_GDP US_GDP_FE US_GE US_GNP +US_IM US_INFL US_INVEST US_IOIL US_IT US_K US_LF US_M US_MPC US_MPCINV US_MPK US_NEER US_NFA US_P US_PFM US_PGNP US_PGNPNO US_PIM US_PIMA US_PIT +US_PXM US_PXT US_Q US_R US_RCI US_RL US_RLR US_RR US_RS US_RSR US_TAX US_TAXH US_TAXK US_TB US_TFP_FE US_TRATE US_UNR US_UNR_A US_W US_WH US_WH1 US_WH2 +US_WH3 US_WK US_XM US_XMA US_XT US_YD +WTRADE WTRADER +; +varexo +CA_ALPHA1 CA_ALPHA2 CA_ALPHA3 CA_BCHI1 CA_BCHI2 CA_BETA CA_BT_GDP_RAT CA_CPI_GAP_EXOG CA_CPI_TAR CA_DELTA CA_DELTA_SS CA_DEM3 CA_DLLF_SS CA_G CA_GDP_GAP_EXOG +CA_GEXOG CA_ICOM CA_LAMBDA CA_LAMBDA1 CA_LAMBDA2 CA_LAMBDA3 CA_MGROW CA_MT CA_NEER_PAR CA_NLIN CA_PAR CA_PART CA_PARUS CA_PGNPNO_GAP_EXOG CA_PGNPNO_TAR +CA_PGNP_GAP_EXOG CA_PGNP_TAR CA_PHI CA_POP CA_PREM CA_PROB CA_PRODOIL CA_P_GAP_EXOG CA_P_TAR CA_RSCON CA_RSCON2 CA_RS_EXOG CA_SIGMA CA_TAXK_ALPHA CA_TAXK_SHAR +CA_TPREM CA_TRATEK CA_TRATE_ALPHA CA_TRATE_EXOG CA_UNR_FE CA_UNR_GAP_EXOG CA_XOIL CA_X_RS1 CA_X_RS2 +DC_BETA DC_DELTA DC_INFL DC_KCOMSHR DC_OILSHR DC_PROD DC_XOILSHR DC_XTNDHIST +FR_ALPHA1 FR_ALPHA2 FR_ALPHA3 FR_BCHI1 FR_BCHI2 FR_BETA FR_BT_GDP_RAT FR_CPI_GAP_EXOG FR_CPI_TAR FR_DELTA FR_DELTA_SS FR_DEM3 FR_DLLF_SS FR_G FR_GDP_GAP_EXOG +FR_GEXOG FR_ICOM FR_LAMBDA FR_LAMBDA1 FR_LAMBDA2 FR_LAMBDA3 FR_MGROW FR_MT FR_NEER_PAR FR_NLIN FR_PAR FR_PART FR_PARUS FR_PGNPNO_GAP_EXOG FR_PGNPNO_TAR +FR_PGNP_GAP_EXOG FR_PGNP_TAR FR_PHI FR_POP FR_PREM FR_PROB FR_PRODOIL FR_P_GAP_EXOG FR_P_TAR FR_RSCON FR_RSCON2 FR_RS_EXOG FR_SIGMA FR_TAXK_ALPHA FR_TAXK_SHAR +FR_TPREM FR_TRATEK FR_TRATE_ALPHA FR_TRATE_EXOG FR_UNR_FE FR_UNR_GAP_EXOG FR_XOIL FR_X_RS1 FR_X_RS2 +GREAL GREAL_SS +GR_ALPHA1 GR_ALPHA2 GR_ALPHA3 GR_BCHI1 GR_BCHI2 GR_BETA GR_BT_GDP_RAT GR_CPI_GAP_EXOG GR_CPI_TAR GR_DELTA GR_DELTA_SS GR_DEM3 GR_DLLF_SS GR_G GR_GDP_GAP_EXOG +GR_GEXOG GR_ICOM GR_LAMBDA GR_LAMBDA1 GR_LAMBDA2 GR_LAMBDA3 GR_MGROW GR_MT GR_NEER_PAR GR_NLIN GR_PAR GR_PART GR_PARUS GR_PGNPNO_GAP_EXOG GR_PGNPNO_TAR +GR_PGNP_GAP_EXOG GR_PGNP_TAR GR_PHI GR_POP GR_PREM GR_PROB GR_PRODOIL GR_P_GAP_EXOG GR_P_TAR GR_RSCON GR_RSCON2 GR_RS_EXOG GR_SIGMA GR_TAXK_ALPHA GR_TAXK_SHAR +GR_TPREM GR_TRATEK GR_TRATE_ALPHA GR_TRATE_EXOG GR_UNR_FE GR_UNR_GAP_EXOG GR_XOIL GR_X_RS1 GR_X_RS2 +HO_IOIL HO_QNT HO_XM +IT_ALPHA1 IT_ALPHA2 IT_ALPHA3 IT_BCHI1 IT_BCHI2 IT_BETA IT_BT_GDP_RAT IT_CPI_GAP_EXOG IT_CPI_TAR IT_DELTA IT_DELTA_SS IT_DEM3 IT_DLLF_SS IT_G IT_GDP_GAP_EXOG +IT_GEXOG IT_ICOM IT_LAMBDA IT_LAMBDA1 IT_LAMBDA2 IT_LAMBDA3 IT_MGROW IT_MT IT_NEER_PAR IT_NLIN IT_PAR IT_PART IT_PARUS IT_PGNPNO_GAP_EXOG IT_PGNPNO_TAR +IT_PGNP_GAP_EXOG IT_PGNP_TAR IT_PHI IT_POP IT_PREM IT_PROB IT_PRODOIL IT_P_GAP_EXOG IT_P_TAR IT_RSCON IT_RSCON2 IT_RS_EXOG IT_SIGMA IT_TAXK_ALPHA IT_TAXK_SHAR +IT_TPREM IT_TRATEK IT_TRATE_ALPHA IT_TRATE_EXOG IT_UNR_FE IT_UNR_GAP_EXOG IT_XOIL IT_X_RS1 IT_X_RS2 +JA_ALPHA1 JA_ALPHA2 JA_ALPHA3 JA_BCHI1 JA_BCHI2 JA_BETA JA_BT_GDP_RAT JA_CPI_GAP_EXOG JA_CPI_TAR JA_DELTA JA_DELTA_SS JA_DEM3 JA_DLLF_SS JA_G JA_GDP_GAP_EXOG +JA_GEXOG JA_ICOM JA_LAMBDA JA_LAMBDA1 JA_LAMBDA2 JA_LAMBDA3 JA_MGROW JA_MT JA_NEER_PAR JA_NLIN JA_PAR JA_PART JA_PARUS JA_PGNPNO_GAP_EXOG JA_PGNPNO_TAR +JA_PGNP_GAP_EXOG JA_PGNP_TAR JA_PHI JA_POP JA_PREM JA_PROB JA_PRODOIL JA_P_GAP_EXOG JA_P_TAR JA_RSCON JA_RSCON2 JA_RS_EXOG JA_SIGMA JA_TAXK_ALPHA JA_TAXK_SHAR +JA_TPREM JA_TRATEK JA_TRATE_ALPHA JA_TRATE_EXOG JA_UNR_FE JA_UNR_GAP_EXOG JA_XOIL JA_X_RS1 JA_X_RS2 +RES_CA_COIL RES_CA_CPI RES_CA_C_DI RES_CA_ER RES_CA_GNP RES_CA_IM RES_CA_IOIL RES_CA_K RES_CA_M RES_CA_MPC RES_CA_NFA RES_CA_P RES_CA_PGNP RES_CA_PIM RES_CA_PXM +RES_CA_RL RES_CA_RS RES_CA_TFP_FE RES_CA_TRATE RES_CA_UNR_A RES_CA_WH1 RES_CA_WH2 RES_CA_WH3 RES_CA_WK RES_CA_XM +RES_DC_CTOT RES_DC_DEBT RES_DC_GDP_FE RES_DC_IT RES_DC_NFA RES_DC_PGNP RES_DC_PIM RES_DC_PIMA RES_DC_PXM RES_DC_QNT RES_DC_XOIL RES_DC_XSM +RES_FR_COIL RES_FR_CPI RES_FR_C_DI RES_FR_ER RES_FR_GNP RES_FR_IM RES_FR_IOIL RES_FR_K RES_FR_M RES_FR_MPC RES_FR_NFA RES_FR_P RES_FR_PGNP RES_FR_PIM RES_FR_PXM +RES_FR_RL RES_FR_RS RES_FR_TFP_FE RES_FR_TRATE RES_FR_UNR_A RES_FR_WH1 RES_FR_WH2 RES_FR_WH3 RES_FR_WK RES_FR_XM +RES_GR_COIL RES_GR_CPI RES_GR_C_DI RES_GR_ER RES_GR_GNP RES_GR_IM RES_GR_IOIL RES_GR_K RES_GR_M RES_GR_MPC RES_GR_NFA RES_GR_P RES_GR_PGNP RES_GR_PIM RES_GR_PXM +RES_GR_RL RES_GR_RS RES_GR_TFP_FE RES_GR_TRATE RES_GR_UNR_A RES_GR_WH1 RES_GR_WH2 RES_GR_WH3 RES_GR_WK RES_GR_XM +RES_HO_ICOM RES_HO_IM RES_HO_PIT RES_HO_PXT +RES_IT_COIL RES_IT_CPI RES_IT_C_DI RES_IT_ER RES_IT_GNP RES_IT_IM RES_IT_IOIL RES_IT_K RES_IT_M RES_IT_MPC RES_IT_NFA RES_IT_P RES_IT_PGNP RES_IT_PIM RES_IT_PXM +RES_IT_RL RES_IT_RS RES_IT_TFP_FE RES_IT_TRATE RES_IT_UNR_A RES_IT_WH1 RES_IT_WH2 RES_IT_WH3 RES_IT_WK RES_IT_XM +RES_JA_COIL RES_JA_CPI RES_JA_C_DI RES_JA_ER RES_JA_GNP RES_JA_IM RES_JA_IOIL RES_JA_K RES_JA_M RES_JA_MPC RES_JA_NFA RES_JA_P RES_JA_PGNP RES_JA_PIM RES_JA_PXM +RES_JA_RL RES_JA_RS RES_JA_TFP_FE RES_JA_TRATE RES_JA_UNR_A RES_JA_WH1 RES_JA_WH2 RES_JA_WH3 RES_JA_WK RES_JA_XM +RES_PCOM +RES_RW_PIM RES_RW_PXM RES_RW_XM +RES_SI_COIL RES_SI_CPI RES_SI_C_DI RES_SI_ER RES_SI_GNP RES_SI_IM RES_SI_IOIL RES_SI_K RES_SI_M RES_SI_MPC RES_SI_NFA RES_SI_P RES_SI_PGNP RES_SI_PIM RES_SI_PXM +RES_SI_RL RES_SI_RS RES_SI_TFP_FE RES_SI_TRATE RES_SI_UNR_A RES_SI_WH1 RES_SI_WH2 RES_SI_WH3 RES_SI_WK RES_SI_XM +RES_UK_COIL RES_UK_CPI RES_UK_C_DI RES_UK_ER RES_UK_GNP RES_UK_IM RES_UK_IOIL RES_UK_K RES_UK_M RES_UK_MPC RES_UK_NFA RES_UK_P RES_UK_PGNP RES_UK_PIM RES_UK_PXM +RES_UK_RL RES_UK_RS RES_UK_TFP_FE RES_UK_TRATE RES_UK_UNR_A RES_UK_WH1 RES_UK_WH2 RES_UK_WH3 RES_UK_WK RES_UK_XM +RES_US_COIL RES_US_CPI RES_US_C_DI RES_US_ER RES_US_GNP RES_US_IM RES_US_IOIL RES_US_K RES_US_M RES_US_MPC RES_US_NFA RES_US_P RES_US_PGNP RES_US_PIM RES_US_PXM +RES_US_RL RES_US_RS RES_US_TFP_FE RES_US_TRATE RES_US_UNR_A RES_US_WH1 RES_US_WH2 RES_US_WH3 RES_US_WK RES_US_XM +RES_WTRADE RES_WTRADER RPOIL +RW_ER RW_INFL +SI_ALPHA1 SI_ALPHA2 SI_ALPHA3 SI_BCHI1 SI_BCHI2 SI_BETA SI_BT_GDP_RAT SI_CPI_GAP_EXOG SI_CPI_TAR SI_DELTA SI_DELTA_SS SI_DEM3 SI_DLLF_SS SI_G SI_GDP_GAP_EXOG +SI_GEXOG SI_ICOM SI_LAMBDA SI_LAMBDA1 SI_LAMBDA2 SI_LAMBDA3 SI_MGROW SI_MT SI_NEER_PAR SI_NLIN SI_PAR SI_PART SI_PARUS SI_PGNPNO_GAP_EXOG SI_PGNPNO_TAR +SI_PGNP_GAP_EXOG SI_PGNP_TAR SI_PHI SI_POP SI_PREM SI_PROB SI_PRODOIL SI_P_GAP_EXOG SI_P_TAR SI_RSCON SI_RSCON2 SI_RS_EXOG SI_SIGMA SI_TAXK_ALPHA SI_TAXK_SHAR +SI_TPREM SI_TRATEK SI_TRATE_ALPHA SI_TRATE_EXOG SI_UNR_FE SI_UNR_GAP_EXOG SI_XOIL SI_X_RS1 SI_X_RS2 +TME +UK_ALPHA1 UK_ALPHA2 UK_ALPHA3 UK_BCHI1 UK_BCHI2 UK_BETA UK_BT_GDP_RAT UK_CPI_GAP_EXOG UK_CPI_TAR UK_DELTA UK_DELTA_SS UK_DEM3 UK_DLLF_SS UK_G UK_GDP_GAP_EXOG +UK_GEXOG UK_ICOM UK_LAMBDA UK_LAMBDA1 UK_LAMBDA2 UK_LAMBDA3 UK_MGROW UK_MT UK_NEER_PAR UK_NLIN UK_PAR UK_PART UK_PARUS UK_PGNPNO_GAP_EXOG UK_PGNPNO_TAR +UK_PGNP_GAP_EXOG UK_PGNP_TAR UK_PHI UK_POP UK_PREM UK_PROB UK_PRODOIL UK_P_GAP_EXOG UK_P_TAR UK_RSCON UK_RSCON2 UK_RS_EXOG UK_SIGMA UK_TAXK_ALPHA UK_TAXK_SHAR +UK_TPREM UK_TRATEK UK_TRATE_ALPHA UK_TRATE_EXOG UK_UNR_FE UK_UNR_GAP_EXOG UK_XOIL UK_X_RS1 UK_X_RS2 +US_ALPHA1 US_ALPHA2 US_ALPHA3 US_BCHI1 US_BCHI2 US_BETA US_BT_GDP_RAT US_CPI_GAP_EXOG US_CPI_TAR US_DELTA US_DELTA_SS US_DEM3 US_DLLF_SS US_G US_GDP_GAP_EXOG +US_GEXOG US_ICOM US_LAMBDA US_LAMBDA1 US_LAMBDA2 US_LAMBDA3 US_MGROW US_MT US_NEER_PAR US_NLIN US_PAR US_PART US_PARUS US_PGNPNO_GAP_EXOG US_PGNPNO_TAR +US_PGNP_GAP_EXOG US_PGNP_TAR US_PHI US_POP US_PREM US_PROB US_PRODOIL US_P_GAP_EXOG US_P_TAR US_RRBAR US_RSCON US_RSCON2 US_RS_EXOG US_SIGMA US_TAXK_ALPHA +US_TAXK_SHAR US_TPREM US_TRATEK US_TRATE_ALPHA US_TRATE_EXOG US_UNR_FE US_UNR_GAP_EXOG US_XOIL US_X_RS1 US_X_RS2; +parameters +CA_CHI CA_COIL0 CA_COIL1 CA_COIL2 CA_COIL3 CA_COIL4 CA_CPI1 CA_CPI2 CA_C_MPROP CA_DELTA_PI CA_E96 CA_GAMMA CA_G_MPROP CA_IC0 CA_IC1 CA_IC2 CA_IC3 CA_IC4 +CA_IC5 CA_IM0 CA_IM1 CA_IM2 CA_IM3 CA_INVEST_MPROP CA_K1 CA_K2 CA_M0 CA_M2 CA_M4 CA_PXM0 CA_PXM1 CA_PXM2 CA_RS1 CA_RS1PERM CA_RS2 CA_RS3 CA_RS4 CA_RS5 +CA_RS6 CA_RTARC1 CA_RTARC2 CA_RTARC3 CA_RTARC4 CA_RTARF1 CA_RTARF2 CA_RTARF3 CA_RTARF4 CA_UNR_1 CA_UNR_2 CA_WT CA_XM0 CA_XM1 CA_XM2 CA_XM3 CA_XT_MPROP +DC_C0 DC_C1 DC_C2 DC_DEBT1 DC_DEBT2 DC_GDP_FE0 +FR_CHI FR_COIL0 FR_COIL1 FR_COIL2 FR_COIL3 FR_COIL4 FR_CPI1 FR_CPI2 FR_C_MPROP FR_DELTA_PI FR_E96 FR_GAMMA FR_G_MPROP FR_IC0 FR_IC1 FR_IC2 FR_IC3 FR_IC4 +FR_IC5 FR_IM0 FR_IM1 FR_IM2 FR_IM3 FR_INVEST_MPROP FR_K1 FR_K2 FR_M0 FR_M2 FR_M4 FR_PXM0 FR_PXM1 FR_PXM2 FR_RS1 FR_RS1PERM FR_RS2 FR_RS3 FR_RS4 FR_RS5 +FR_RS6 FR_RTARC1 FR_RTARC2 FR_RTARC3 FR_RTARC4 FR_RTARF1 FR_RTARF2 FR_RTARF3 FR_RTARF4 FR_UNR_1 FR_UNR_2 FR_WT FR_XM0 FR_XM1 FR_XM2 FR_XM3 FR_XT_MPROP +GR_CHI GR_COIL0 GR_COIL1 GR_COIL2 GR_COIL3 GR_COIL4 GR_CPI1 GR_CPI2 GR_C_MPROP GR_DELTA_PI GR_E96 GR_GAMMA GR_G_MPROP GR_IC0 GR_IC1 GR_IC2 GR_IC3 GR_IC4 +GR_IC5 GR_IM0 GR_IM1 GR_IM2 GR_IM3 GR_INVEST_MPROP GR_K1 GR_K2 GR_M0 GR_M2 GR_M4 GR_PXM0 GR_PXM1 GR_PXM2 GR_RS1 GR_RS1PERM GR_RS2 GR_RS3 GR_RS4 GR_RS5 +GR_RS6 GR_RTARC1 GR_RTARC2 GR_RTARC3 GR_RTARC4 GR_RTARF1 GR_RTARF2 GR_RTARF3 GR_RTARF4 GR_UNR_1 GR_UNR_2 GR_WT GR_XM0 GR_XM1 GR_XM2 GR_XM3 GR_XT_MPROP +HO_A0 HO_A1 HO_IC2 +ISR +IT_CHI IT_COIL0 IT_COIL1 IT_COIL2 IT_COIL3 IT_COIL4 IT_CPI1 IT_CPI2 IT_C_MPROP IT_DELTA_PI IT_E96 IT_GAMMA IT_G_MPROP IT_IC0 IT_IC1 IT_IC2 IT_IC3 IT_IC4 +IT_IC5 IT_IM0 IT_IM1 IT_IM2 IT_IM3 IT_INVEST_MPROP IT_K1 IT_K2 IT_M0 IT_M2 IT_M4 IT_PXM0 IT_PXM1 IT_PXM2 IT_RS1 IT_RS1PERM IT_RS2 IT_RS3 IT_RS4 IT_RS5 +IT_RS6 IT_RTARC1 IT_RTARC2 IT_RTARC3 IT_RTARC4 IT_RTARF1 IT_RTARF2 IT_RTARF3 IT_RTARF4 IT_UNR_1 IT_UNR_2 IT_WT IT_XM0 IT_XM1 IT_XM2 IT_XM3 IT_XT_MPROP +JA_CHI JA_COIL0 JA_COIL1 JA_COIL2 JA_COIL3 JA_COIL4 JA_CPI1 JA_CPI2 JA_C_MPROP JA_DELTA_PI JA_E96 JA_GAMMA JA_G_MPROP JA_IC0 JA_IC1 JA_IC2 JA_IC3 JA_IC4 +JA_IC5 JA_IM0 JA_IM1 JA_IM2 JA_IM3 JA_INVEST_MPROP JA_K1 JA_K2 JA_M0 JA_M2 JA_M4 JA_PXM0 JA_PXM1 JA_PXM2 JA_RS1 JA_RS1PERM JA_RS2 JA_RS3 JA_RS4 JA_RS5 +JA_RS6 JA_RTARC1 JA_RTARC2 JA_RTARC3 JA_RTARC4 JA_RTARF1 JA_RTARF2 JA_RTARF3 JA_RTARF4 JA_UNR_1 JA_UNR_2 JA_WT JA_XM0 JA_XM1 JA_XM2 JA_XM3 JA_XT_MPROP +RW_E96 RW_PXM1 RW_PXM2 RW_XCOM1 RW_XM0 RW_XM1 RW_XM2 RW_XM3 RW_XSM1 +S0101 S0102 S0103 S0104 S0105 S0106 S0107 S0108 S0109 +S0201 S0202 S0203 S0204 S0205 S0206 S0207 S0208 S0209 +S0301 S0302 S0303 S0304 S0305 S0306 S0307 S0308 S0309 +S0401 S0402 S0403 S0404 S0405 S0406 S0407 S0408 S0409 +S0501 S0502 S0503 S0504 S0505 S0506 S0507 S0508 S0509 +S0601 S0602 S0603 S0604 S0605 S0606 S0607 S0608 S0609 +S0701 S0702 S0703 S0704 S0705 S0706 S0707 S0708 S0709 +S0801 S0802 S0803 S0804 S0805 S0806 S0807 S0808 S0809 +S0901 S0902 S0903 S0904 S0905 S0906 S0907 S0908 S0909 +SI_CHI SI_COIL0 SI_COIL1 SI_COIL2 SI_COIL3 SI_COIL4 SI_CPI1 SI_CPI2 SI_C_MPROP SI_DELTA_PI SI_E96 SI_GAMMA SI_G_MPROP SI_IC0 SI_IC1 SI_IC2 SI_IC3 SI_IC4 +SI_IC5 SI_IM0 SI_IM1 SI_IM2 SI_IM3 SI_INVEST_MPROP SI_K1 SI_K2 SI_M0 SI_M2 SI_M4 SI_PXM0 SI_PXM1 SI_PXM2 SI_RS1 SI_RS1PERM SI_RS2 SI_RS3 SI_RS4 SI_RS5 +SI_RS6 SI_RTARC1 SI_RTARC2 SI_RTARC3 SI_RTARC4 SI_RTARF1 SI_RTARF2 SI_RTARF3 SI_RTARF4 SI_UNR_1 SI_UNR_2 SI_WT SI_XM0 SI_XM1 SI_XM2 SI_XM3 SI_XT_MPROP +T01 T02 T03 T04 T05 T06 T07 T08 T09 +TAU1 TRDE TRDER +UK_CHI UK_COIL0 UK_COIL1 UK_COIL2 UK_COIL3 UK_COIL4 UK_CPI1 UK_CPI2 UK_C_MPROP UK_DELTA_PI UK_E96 UK_GAMMA UK_G_MPROP UK_IC0 UK_IC1 UK_IC2 UK_IC3 UK_IC4 +UK_IC5 UK_IM0 UK_IM1 UK_IM2 UK_IM3 UK_INVEST_MPROP UK_K1 UK_K2 UK_M0 UK_M2 UK_M4 UK_PXM0 UK_PXM1 UK_PXM2 UK_RS1 UK_RS1PERM UK_RS2 UK_RS3 UK_RS4 UK_RS5 +UK_RS6 UK_RTARC1 UK_RTARC2 UK_RTARC3 UK_RTARC4 UK_RTARF1 UK_RTARF2 UK_RTARF3 UK_RTARF4 UK_UNR_1 UK_UNR_2 UK_WT UK_XM0 UK_XM1 UK_XM2 UK_XM3 UK_XT_MPROP +US_CHI US_COIL0 US_COIL1 US_COIL2 US_COIL3 US_COIL4 US_CPI1 US_CPI2 US_C_MPROP US_DELTA_PI US_E96 US_GAMMA US_G_MPROP US_IC0 US_IC1 US_IC2 US_IC3 US_IC4 +US_IC5 US_IM0 US_IM1 US_IM2 US_IM3 US_INVEST_MPROP US_K1 US_K2 US_M0 US_M2 US_M4 US_PXM0 US_PXM1 US_PXM2 US_RS1 US_RS1PERM US_RS2 US_RS3 US_RS4 US_RS5 +US_RS6 US_RTARC1 US_RTARC2 US_RTARC3 US_RTARC4 US_RTARF1 US_RTARF2 US_RTARF3 US_RTARF4 US_UNR_1 US_UNR_2 US_WT US_XM0 US_XM1 US_XM2 US_XM3 US_XT_MPROP +V0102 V0103 V0104 V0105 V0106 V0107 V0108 +V0201 V0203 V0204 V0205 V0206 V0207 V0208 +V0301 V0302 V0304 V0305 V0306 V0307 V0308 +V0401 V0402 V0403 V0405 V0406 V0407 V0408 +V0501 V0502 V0503 V0504 V0506 V0507 V0508 +V0601 V0602 V0603 V0604 V0605 V0607 V0608 +V0701 V0702 V0703 V0704 V0705 V0706 V0708 +V0801 V0802 V0803 V0804 V0805 V0806 V0807 +W0101 W0102 W0103 W0104 W0105 W0106 W0107 W0108 W0109 +W0201 W0202 W0203 W0204 W0205 W0206 W0207 W0208 W0209 +W0301 W0302 W0303 W0304 W0305 W0306 W0307 W0308 W0309 +W0401 W0402 W0403 W0404 W0405 W0406 W0407 W0408 W0409 +W0501 W0502 W0503 W0504 W0505 W0506 W0507 W0508 W0509 +W0601 W0602 W0603 W0604 W0605 W0606 W0607 W0608 W0609 +W0701 W0702 W0703 W0704 W0705 W0706 W0707 W0708 W0709 +W0801 W0802 W0803 W0804 W0805 W0806 W0807 W0808 W0809 +W0901 W0902 W0903 W0904 W0905 W0906 W0907 W0908 W0909; + +CA_CHI=12; +CA_COIL0=-0.23205499351; +CA_COIL1=0.971576988697; +CA_COIL2=-0.0460230000317; +CA_COIL3=-0.0477560013533; +CA_COIL4=0.0639569982886; +CA_CPI1=0.0885436907411; +CA_CPI2=0.584154784679; +CA_C_MPROP=0.178070038557; +CA_DELTA_PI=0.53; +CA_E96=0.733423769474; +CA_GAMMA=1.77305098623; +CA_G_MPROP=0.184400975704; +CA_IC0=-3.32013988495; +CA_IC1=2.43067002296; +CA_IC2=-1.11615002155; +CA_IC3=-0.562039971352; +CA_IC4=0.662097990513; +CA_IC5=-1; +CA_IM0=0.0133133819327; +CA_IM1=-0.339117258787; +CA_IM2=0.0625357478857; +CA_IM3=-0.991348028183; +CA_INVEST_MPROP=0.515719473362; +CA_K1=0.0328033864498; +CA_K2=0.0473355539143; +CA_M0=-0.0607150010765; +CA_M2=-0.0054020001553; +CA_M4=0.788931012154; +CA_PXM0=-0.0128829535097; +CA_PXM1=0.645817816257; +CA_PXM2=0.0349373221397; +CA_RS1=0.333; +CA_RS1PERM=0.333; +CA_RS2=0; +CA_RS3=0; +CA_RS4=0; +CA_RS5=0; +CA_RS6=0; +CA_RTARC1=0; +CA_RTARC2=0; +CA_RTARC3=0; +CA_RTARC4=0; +CA_RTARF1=0; +CA_RTARF2=0; +CA_RTARF3=0; +CA_RTARF4=0; +CA_UNR_1=-0.42063587904; +CA_UNR_2=0.32201731205; +CA_WT=6.36961058059e-006; +CA_XM0=-0.00616873381659; +CA_XM1=-0.419528901577; +CA_XM2=0.0101102301851; +CA_XM3=-1.74084436893; +CA_XT_MPROP=0.15729150176; +DC_C0=-0.433786988258; +DC_C1=0.366304010153; +DC_C2=0.372914999723; +DC_DEBT1=0.600000023842; +DC_DEBT2=0.15000000596; +DC_GDP_FE0=3.73925995827; +FR_CHI=12; +FR_COIL0=-0.234044000506; +FR_COIL1=2.4851899147; +FR_COIL2=-0.0460230000317; +FR_COIL3=-0.0477560013533; +FR_COIL4=0.0639569982886; +FR_CPI1=0.133349880576; +FR_CPI2=0.822861135006; +FR_C_MPROP=0.164363101125; +FR_DELTA_PI=1; +FR_E96=0.195483461022; +FR_GAMMA=1.13691873848; +FR_G_MPROP=0.0880697220564; +FR_IC0=-0.19662900269; +FR_IC1=1.18206000328; +FR_IC2=-0.317216992378; +FR_IC3=-0.126195997; +FR_IC4=0.271228998899; +FR_IC5=-0.513716995716; +FR_IM0=0.00227451790124; +FR_IM1=-0.339117258787; +FR_IM2=0.140992045403; +FR_IM3=-0.991348028183; +FR_INVEST_MPROP=0.330241620541; +FR_K1=0.0328033864498; +FR_K2=0.0473355539143; +FR_M0=0.125633999705; +FR_M2=-0.0054020001553; +FR_M4=0.788931012154; +FR_PXM0=-0.00220575975254; +FR_PXM1=0.705334246159; +FR_PXM2=0.0349373221397; +FR_RS1=0; +FR_RS1PERM=0.333; +FR_RS2=2000000; +FR_RS3=0; +FR_RS4=0; +FR_RS5=0; +FR_RS6=0; +FR_RTARC1=0; +FR_RTARC2=0; +FR_RTARC3=0; +FR_RTARC4=0; +FR_RTARF1=0; +FR_RTARF2=0; +FR_RTARF3=0; +FR_RTARF4=0; +FR_UNR_1=-0.295711427927; +FR_UNR_2=0.437749415636; +FR_WT=1.6754593069e-005; +FR_XM0=-0.00668761134148; +FR_XM1=-0.482208490372; +FR_XM2=0.014295168221; +FR_XM3=-1.74084436893; +FR_XT_MPROP=0.153821244836; +GR_CHI=12; +GR_COIL0=-0.235900998116; +GR_COIL1=1.66013002396; +GR_COIL2=-0.0460230000317; +GR_COIL3=-0.0477560013533; +GR_COIL4=0.0639569982886; +GR_CPI1=0.154569670558; +GR_CPI2=0.557855904102; +GR_C_MPROP=0.166775077581; +GR_DELTA_PI=0.53; +GR_E96=0.66455155611; +GR_GAMMA=0.819746218622; +GR_G_MPROP=0.0776999294758; +GR_IC0=-0.014525000006; +GR_IC1=1.10573005676; +GR_IC2=-0.48298099637; +GR_IC3=0; +GR_IC4=0; +GR_IC5=0; +GR_IM0=0.0129903983325; +GR_IM1=-0.339117258787; +GR_IM2=0.133345082402; +GR_IM3=-0.991348028183; +GR_INVEST_MPROP=0.197875678539; +GR_K1=0.0328033864498; +GR_K2=0.0473355539143; +GR_M0=0.136906996369; +GR_M2=-0.0054020001553; +GR_M4=0.788931012154; +GR_PXM0=-0.00301471399143; +GR_PXM1=0.808721482754; +GR_PXM2=0.0349373221397; +GR_RS1=0.333; +GR_RS1PERM=0.333; +GR_RS2=0; +GR_RS3=0; +GR_RS4=0; +GR_RS5=0; +GR_RS6=0; +GR_RTARC1=0; +GR_RTARC2=0; +GR_RTARC3=0; +GR_RTARC4=0; +GR_RTARF1=0; +GR_RTARF2=0; +GR_RTARF3=0; +GR_RTARF4=0; +GR_UNR_1=-0.337131500244; +GR_UNR_2=0.177726686001; +GR_WT=2.56170225665e-005; +GR_XM0=-0.00160425971262; +GR_XM1=-0.404824435711; +GR_XM2=0.0564797371626; +GR_XM3=-1.74084436893; +GR_XT_MPROP=0.248123139143; +HO_A0=0; +HO_A1=0.140000000596; +HO_IC2=-1.03489995003; +ISR=0.0299999993294; +IT_CHI=12; +IT_COIL0=-0.231263995171; +IT_COIL1=0.593788981438; +IT_COIL2=-0.0460230000317; +IT_COIL3=-0.0477560013533; +IT_COIL4=0.0639569982886; +IT_CPI1=0.0572924762964; +IT_CPI2=0.849322021008; +IT_C_MPROP=0.170956239104; +IT_DELTA_PI=1; +IT_E96=0.648110522889; +IT_GAMMA=2.30496358126; +IT_G_MPROP=0.0941127538681; +IT_IC0=-0.746583998203; +IT_IC1=2.10226988792; +IT_IC2=-0.430978000164; +IT_IC3=-0.278881013393; +IT_IC4=0.292979985476; +IT_IC5=-0.616999983788; +IT_IM0=-0.0256050173193; +IT_IM1=-0.339117258787; +IT_IM2=0.344494223595; +IT_IM3=-0.991348028183; +IT_INVEST_MPROP=0.166337579489; +IT_K1=0.0328033864498; +IT_K2=0.0473355539143; +IT_M0=0.161681994796; +IT_M2=-0.0054020001553; +IT_M4=0.788931012154; +IT_PXM0=0.000566755014006; +IT_PXM1=0.658845901489; +IT_PXM2=0.0349373221397; +IT_RS1=0; +IT_RS1PERM=0.333; +IT_RS2=2000000; +IT_RS3=0; +IT_RS4=0; +IT_RS5=0; +IT_RS6=0; +IT_RTARC1=0; +IT_RTARC2=0; +IT_RTARC3=0; +IT_RTARC4=0; +IT_RTARF1=0; +IT_RTARF2=0; +IT_RTARF3=0; +IT_RTARF4=0; +IT_UNR_1=-0.0943256691098; +IT_UNR_2=0.793544411659; +IT_WT=1.32181730735e-005; +IT_XM0=-0.0253433175385; +IT_XM1=-0.387458562851; +IT_XM2=0.17049998045; +IT_XM3=-1.74084436893; +IT_XT_MPROP=0.165393054485; +JA_CHI=12; +JA_COIL0=-0.320129007101; +JA_COIL1=1.22408998013; +JA_COIL2=-0.0460230000317; +JA_COIL3=-0.0477560013533; +JA_COIL4=0.0639569982886; +JA_CPI1=0.0650515928864; +JA_CPI2=0.791279554367; +JA_C_MPROP=0.0782259404659; +JA_DELTA_PI=0.53; +JA_E96=9.19294636697; +JA_GAMMA=9.10910964012; +JA_G_MPROP=0.0464610271156; +JA_IC0=-1.10236001015; +JA_IC1=0.436967998743; +JA_IC2=-0.423990011215; +JA_IC3=-0.337971001863; +JA_IC4=0.210978001356; +JA_IC5=-0.458155989647; +JA_IM0=-0.0712840557098; +JA_IM1=-0.339117258787; +JA_IM2=0.347616523504; +JA_IM3=-0.991348028183; +JA_INVEST_MPROP=0.0722297132015; +JA_K1=0.0328033864498; +JA_K2=0.0473355539143; +JA_M0=0.029030000791; +JA_M2=-0.0054020001553; +JA_M4=0.788931012154; +JA_PXM0=-0.00688820658252; +JA_PXM1=0.64994853735; +JA_PXM2=0.0349373221397; +JA_RS1=0.333; +JA_RS1PERM=0.333; +JA_RS2=0; +JA_RS3=0; +JA_RS4=0; +JA_RS5=0; +JA_RS6=0; +JA_RTARC1=0; +JA_RTARC2=0; +JA_RTARC3=0; +JA_RTARC4=0; +JA_RTARF1=0; +JA_RTARF2=0; +JA_RTARF3=0; +JA_RTARF4=0; +JA_UNR_1=-0.0611038096249; +JA_UNR_2=0.48595276475; +JA_WT=5.00687931675e-005; +JA_XM0=0.024151481688; +JA_XM1=-0.459041416645; +JA_XM2=0.364201933146; +JA_XM3=-1.74084436893; +JA_XT_MPROP=0.0883775576949; +RW_E96=1; +RW_PXM1=-0.40000000596; +RW_PXM2=-0.10000000149; +RW_XCOM1=0.300000011921; +RW_XM0=-0.00616873381659; +RW_XM1=-0.419528901577; +RW_XM2=0.0101102301851; +RW_XM3=-1.74084436893; +RW_XSM1=0.40000000596; +S0101=0; +S0102=0.211428981673; +S0103=0.0518315242932; +S0104=0.0499099911459; +S0105=0.0461929631515; +S0106=0.107709788268; +S0107=0.755355733991; +S0108=0.102362944882; +S0109=0.25825817487; +S0201=0.140730977983; +S0202=0; +S0203=0.0402535143414; +S0204=0.0186281396133; +S0205=0.0178380540457; +S0206=0.0435290672186; +S0207=0.0291917712961; +S0208=0.0498749237363; +S0209=0.206865929608; +S0301=0.0496485427176; +S0302=0.0441081698314; +S0303=0; +S0304=0.193178152483; +S0305=0.200114990415; +S0306=0.14276178335; +S0307=0.015950421856; +S0308=0.262332248098; +S0309=0.126014094315; +S0401=0.021532626072; +S0402=0.0167699758807; +S0403=0.108500266691; +S0404=0; +S0405=0.138882342615; +S0406=0.0935827744846; +S0407=0.0109323931691; +S0408=0.128842129226; +S0409=0.0649077327766; +S0501=0.0229825548319; +S0502=0.0174868984566; +S0503=0.0964474330303; +S0504=0.108455598703; +S0505=0; +S0506=0.0564481958061; +S0507=0.010383992488; +S0508=0.0836702594125; +S0509=0.0699498052739; +S0601=0.0391029180375; +S0602=0.0208742140953; +S0603=0.0650511176965; +S0604=0.0836065042775; +S0605=0.0602465540559; +S0606=0; +S0607=0.0175125547848; +S0608=0.116874153448; +S0609=0.0646555060199; +S0701=0.204879168808; +S0702=0.0233890814121; +S0703=0.00508720134929; +S0704=0.00419850099405; +S0705=0.00503869062909; +S0706=0.00975502690095; +S0707=0; +S0708=0.00782505967526; +S0709=0.0142728223294; +S0801=0.0670277430388; +S0802=0.0995331039443; +S0803=0.405142668132; +S0804=0.348010416891; +S0805=0.26853217235; +S0806=0.317507537454; +S0807=0.0434426679092; +S0808=0; +S0809=0.195075934808; +S0901=0.454095468511; +S0902=0.566409574707; +S0903=0.227686274466; +S0904=0.194012695892; +S0905=0.263154232738; +S0906=0.228705826518; +S0907=0.117230464506; +S0908=0.248218281522; +S0909=0; +SI_CHI=12; +SI_COIL0=-0.220861002803; +SI_COIL1=0.764611005783; +SI_COIL2=-0.0460230000317; +SI_COIL3=-0.0477560013533; +SI_COIL4=0.0639569982886; +SI_CPI1=0.0885436907411; +SI_CPI2=0.584154784679; +SI_C_MPROP=0.178070038557; +SI_DELTA_PI=0.53; +SI_E96=1; +SI_GAMMA=2.68042981625; +SI_G_MPROP=0.184400975704; +SI_IC0=-1.8622200489; +SI_IC1=1.95882999897; +SI_IC2=-0.451727002859; +SI_IC3=-0.135161995888; +SI_IC4=0.498308986425; +SI_IC5=-0.599273979664; +SI_IM0=0.0133133819327; +SI_IM1=-0.339117258787; +SI_IM2=0.0625357478857; +SI_IM3=-0.991348028183; +SI_INVEST_MPROP=0.515719473362; +SI_K1=0.0328033864498; +SI_K2=0.0473355539143; +SI_M0=-0.0292150005698; +SI_M2=-0.0054020001553; +SI_M4=0.788931012154; +SI_PXM0=-0.0128829535097; +SI_PXM1=0.645817816257; +SI_PXM2=0.0349373221397; +SI_RS1=0.333; +SI_RS1PERM=0.333; +SI_RS2=0; +SI_RS3=0; +SI_RS4=0; +SI_RS5=0; +SI_RS6=0; +SI_RTARC1=0; +SI_RTARC2=0; +SI_RTARC3=0; +SI_RTARC4=0; +SI_RTARF1=0; +SI_RTARF2=0; +SI_RTARF3=0; +SI_RTARF4=0; +SI_UNR_1=-0.414891779423; +SI_UNR_2=0.367525577545; +SI_WT=3.509713705e-005; +SI_XM0=-0.00616873381659; +SI_XM1=-0.419528901577; +SI_XM2=0.0101102301851; +SI_XM3=-1.74084436893; +SI_XT_MPROP=0.15729150176; +T01=0.16637001296; +T02=0.0851782429459; +T03=0.112577622798; +T04=0.0672679615184; +T05=0.051428852688; +T06=0.0635713068531; +T07=0.0437942590402; +T08=0.168281015113; +T09=0.241530726083; +TAU1=0.2; +TRDE=1000; +TRDER=1000; +UK_CHI=12; +UK_COIL0=-0.295890003443; +UK_COIL1=1.26555001736; +UK_COIL2=-0.0432269982994; +UK_COIL3=-0.0499509982765; +UK_COIL4=0.0755050033331; +UK_CPI1=0.135559409857; +UK_CPI2=0.739067137241; +UK_C_MPROP=0.236572146416; +UK_DELTA_PI=0.53; +UK_E96=1.56173992157; +UK_GAMMA=2.36357469112; +UK_G_MPROP=0.117712050676; +UK_IC0=-0.0400650016963; +UK_IC1=1.13595998287; +UK_IC2=-0.480706006289; +UK_IC3=0; +UK_IC4=0; +UK_IC5=0; +UK_IM0=-0.00298645487055; +UK_IM1=-0.339117258787; +UK_IM2=0.259559065104; +UK_IM3=-0.991348028183; +UK_INVEST_MPROP=0.326577752829; +UK_K1=0.0328033864498; +UK_K2=0.0473355539143; +UK_M0=-0.0982170030475; +UK_M2=-0.0054020001553; +UK_M4=0.788931012154; +UK_PXM0=-0.00295503181405; +UK_PXM1=0.63050109148; +UK_PXM2=0.0349373221397; +UK_RS1=0.333; +UK_RS1PERM=0.333; +UK_RS2=0; +UK_RS3=0; +UK_RS4=0; +UK_RS5=0; +UK_RS6=0; +UK_RTARC1=0; +UK_RTARC2=0; +UK_RTARC3=0; +UK_RTARC4=0; +UK_RTARF1=0; +UK_RTARF2=0; +UK_RTARF3=0; +UK_RTARF4=0; +UK_UNR_1=-0.33446392417; +UK_UNR_2=0.683579683304; +UK_WT=1.2619961324e-005; +UK_XM0=0.00526482798159; +UK_XM1=-0.451665729284; +UK_XM2=0.130913674831; +UK_XM3=-1.74084436893; +UK_XT_MPROP=0.15884745121; +US_CHI=12; +US_COIL0=-0.234869003296; +US_COIL1=0.851813018322; +US_COIL2=-0.0460230000317; +US_COIL3=-0.0477560013533; +US_COIL4=0.0639569982886; +US_CPI1=0.0600003153086; +US_CPI2=0.978459060192; +US_C_MPROP=0.0787769183517; +US_DELTA_PI=0.53; +US_E96=1; +US_GAMMA=1.25564420596; +US_G_MPROP=0.0697601884603; +US_IC0=-4.08905982971; +US_IC1=2.08457994461; +US_IC2=-0.722373008728; +US_IC3=-0.219500005245; +US_IC4=0.815505981445; +US_IC5=-0.823925971985; +US_IM0=0.0275149382651; +US_IM1=-0.339117258787; +US_IM2=0.0594643093646; +US_IM3=-0.991348028183; +US_INVEST_MPROP=0.174478381872; +US_K1=0.0328033864498; +US_K2=0.0473355539143; +US_M0=0.0839120000601; +US_M2=-0.0054020001553; +US_M4=0.788931012154; +US_PXM0=-0.00524724042043; +US_PXM1=0.638190448284; +US_PXM2=0.0349373221397; +US_RS1=0.333; +US_RS1PERM=0.333; +US_RS2=0; +US_RS3=0; +US_RS4=0; +US_RS5=0; +US_RS6=0; +US_RTARC1=0; +US_RTARC2=0; +US_RTARC3=0; +US_RTARC4=0; +US_RTARF1=0; +US_RTARF2=0; +US_RTARF3=0; +US_RTARF4=0; +US_UNR_1=-0.418832212687; +US_UNR_2=0.20457854867; +US_WT=8.31260528269e-005; +US_XM0=0.0335212536156; +US_XM1=-0.42607691884; +US_XM2=0.0847327336669; +US_XM3=-1.74084436893; +US_XT_MPROP=0.068832308054; +V0102=0.302939; +V0103=0.1149987; +V0104=0.05839044; +V0105=0.04559976; +V0106=0.0890599; +V0107=0.2508736; +V0108=0.1381385; +V0201=0.5340386; +V0203=0.1368557; +V0204=0.04634024; +V0205=0.03792391; +V0206=0.06666363; +V0207=0.03194354; +V0208=0.1462343; +V0301=0.1048398; +V0302=0.07077477; +V0304=0.1628517; +V0305=0.1299371; +V0306=0.1107158; +V0307=0.0077914; +V0308=0.4130895; +V0401=0.09336697; +V0402=0.04203319; +V0403=0.2856347; +V0405=0.143795; +V0406=0.1087066; +V0407=0.007638456; +V0408=0.3188251; +V0501=0.09431349; +V0502=0.04449457; +V0503=0.2947892; +V0504=0.185996; +V0506=0.09233788; +V0507=0.007625379; +V0508=0.2804435; +V0601=0.1649267; +V0602=0.07002937; +V0603=0.2248978; +V0604=0.1258964; +V0605=0.08267559; +V0607=0.01384079; +V0608=0.3177335; +V0701=0.8238854; +V0702=0.05950828; +V0703=0.0280669; +V0704=0.01568794; +V0705=0.01210771; +V0706=0.02454505; +V0708=0.03619872; +V0801=0.0269276; +V0802=0.0324527; +V0803=0.08555825; +V0804=0.06546576; +V0805=0.0516105; +V0806=0.05701964; +V0807=0.006865961; +W0101=-1; +W0102=0.158314128764; +W0103=0.144148080288; +W0104=0.078498145888; +W0105=0.0731862618008; +W0106=0.0770074545758; +W0107=0.013557730213; +W0108=0.212383102831; +W0109=0.242905095639; +W0201=0.198243776352; +W0202=-1; +W0203=0.13303216642; +W0204=0.0713086550403; +W0205=0.0695296751108; +W0206=0.0712296426923; +W0207=0.0765000899962; +W0208=0.187864186254; +W0209=0.192291808135; +W0301=0.158728054259; +W0302=0.10595582598; +W0303=-1; +W0304=0.107333239352; +W0305=0.0847327465098; +W0306=0.0981502409584; +W0307=0.0275220178134; +W0308=0.167795340239; +W0309=0.249782534889; +W0401=0.138316983506; +W0402=0.0938147168545; +W0403=0.168836924388; +W0404=-1; +W0405=0.0747207012628; +W0406=0.0813418537478; +W0407=0.0220610834413; +W0408=0.194651586757; +W0409=0.226256150043; +W0501=0.142928956526; +W0502=0.102467450391; +W0503=0.150092928257; +W0504=0.0835779316292; +W0505=-1; +W0506=0.078777445823; +W0507=0.0247664878133; +W0508=0.217768101495; +W0509=0.199620698065; +W0601=0.138720021274; +W0602=0.102439099154; +W0603=0.168900001338; +W0604=0.0888147938683; +W0605=0.0768422939279; +W0606=-1; +W0607=0.0347617704635; +W0608=0.164211166816; +W0609=0.225310853159; +W0701=0.0332804830561; +W0702=0.164136190858; +W0703=0.0742635886407; +W0704=0.0347684058849; +W0705=0.0347291240407; +W0706=0.0510638287607; +W0707=-1; +W0708=0.100630284767; +W0709=0.507128093992; +W0801=0.166407280379; +W0802=0.115122730336; +W0803=0.137316258214; +W0804=0.102276661523; +W0805=0.101929410645; +W0806=0.0783535439484; +W0807=0.0278301070227; +W0808=-1; +W0809=0.270764007932; +W0901=0.149822902292; +W0902=0.11592454783; +W0903=0.15042408861; +W0904=0.082470009466; +W0905=0.0666627750021; +W0906=0.0800069594276; +W0907=0.147854375051; +W0908=0.206834342322; +W0909=-1; +model(block, bytecode, mfs = 3, cutoff =0); +//model(SPARSE,markowitz=2.0); +//model; + ( log(US_CPI)-(log(US_CPI(-1)))) = US_CPI1*( log(US_PIM)-(log(US_PIM(-1))))+US_CPI2*( log(US_PGNP)-(log(US_PGNP(-1))))+(1-US_CPI1-US_CPI2)*log(US_CPI(-1)/US_CPI(-2))+RES_US_CPI ; + US_UNR_A = US_UNR_FE+US_UNR_1*100*log(US_GDP/US_GDP_FE)+US_UNR_2*(US_UNR(-1)-US_UNR_FE(-1))+RES_US_UNR_A ; + US_UNR = /*MAX(US_UNR_A;0.1)*/US_UNR_A ; + ( log(US_PGNPNO)-(log(US_PGNPNO(-1)))) = US_LAMBDA*(US_DELTA_PI*( log(US_PGNPNO(1))-(log(US_PGNPNO)))+(1-US_DELTA_PI)*( log(US_PGNPNO(-1))-(log(US_PGNPNO(-2)))))+(1-US_LAMBDA)*( log(US_PGNPNO(-1))-(log(US_PGNPNO(-2))))+US_GAMMA/100*(US_NLIN-US_UNR)/(US_UNR-US_PHI)+RES_US_PGNP ; + US_INFL = US_MGROW/GREAL ; + US_DLLF = log(US_LF/US_LF(-1)) ; + US_DLGDP = log(US_GDP/US_GDP(-1)) ; + US_C = US_C_DI+US_C_PI ; + US_MPC = 1/US_MPCINV ; + US_MPCINV(1) = US_MPCINV-1-((1-US_SIGMA)*(US_RSR+US_PROB)-(RES_US_MPC+US_PROB))*US_MPCINV/US_SIGMA ; + US_WH1(1) = US_WH1*(1+US_RSR+US_ALPHA1+RES_US_WH1+US_PROB+exp(US_DLLF_SS)-1)-(((1-US_BETA)*US_GDP*US_PGNP-US_TAXH)/US_P+RES_US_WK*US_WK) ; + US_WH2(1) = US_WH2*(1+US_RSR+US_ALPHA2+RES_US_WH2+US_PROB+exp(US_DLLF_SS)-1)-(((1-US_BETA)*US_GDP*US_PGNP-US_TAXH)/US_P+RES_US_WK*US_WK) ; + US_WH3(1) = US_WH3*(1+US_RSR+US_ALPHA3+RES_US_WH3+US_PROB+exp(US_DLLF_SS)-1)-(((1-US_BETA)*US_GDP*US_PGNP-US_TAXH)/US_P+RES_US_WK*US_WK) ; + US_C_DI = (US_LAMBDA1*US_BCHI1+US_LAMBDA2*US_BCHI2+US_LAMBDA3*(1-US_BCHI1-US_BCHI2))*((1-US_BETA)*US_GDP*US_PGNP-US_TAXH)/US_P+RES_US_C_DI*GREAL^TME ; + US_C_PI = US_MPC*(US_WK+(US_M+US_B+US_NFA/US_ER)/US_P+US_BCHI1*(1-US_LAMBDA1)*US_WH1+US_BCHI2*(1-US_LAMBDA2)*US_WH2+(1-US_BCHI1-US_BCHI2)*(1-US_LAMBDA3)*US_WH3) ; + US_WH = US_BCHI1*US_WH1+US_BCHI2*US_WH2+(1-US_BCHI1-US_BCHI2)*US_WH3 ; + ( log(US_COIL)-(log(US_COIL(-1)))) = US_COIL0+US_COIL1*( log(US_GDP)-(log(US_GDP(-1))))+US_COIL2*( log(POIL/US_ER/US_PGNP)-(log(POIL(-1)/US_ER(-1)/US_PGNP(-1))))+US_COIL3*log(POIL(-1)/US_ER(-1)/US_PGNP(-1))+US_COIL4*log(US_GDP(-1)/US_COIL(-1))+RES_US_COIL ; + US_INVEST/US_K(-1)-(US_DELTA_SS+GREAL_SS-1) = US_K1*(US_WK/US_K(-1)-1)+US_K2*(US_WK(-1)/US_K(-2)-1)+RES_US_K ; + US_MPK = US_BETA*US_GDP/US_K ; + US_Q = US_CHI*(US_INVEST/US_K(-1)-(US_DELTA_SS+GREAL_SS-1))+1 ; + US_WK(1) = US_WK*(1+US_RSR+US_K/US_K(-1)-1+US_DELTA+RES_US_WK)-(US_BETA*US_GDP*US_PGNP-US_TAXK)/US_P+(US_CHI/2*((US_Q-1)/US_CHI)^2+US_INVEST/US_K(-1)*(US_Q-1))*US_K(-1)*US_PGNP/US_P ; + US_INVEST = ( US_K-(US_K(-1)))+US_DELTA*US_K(-1) ; + ( log(US_XM)-(log(US_XM(-1)))) = US_XM0+( log(US_FACT)-(log(US_FACT(-1))))+US_XM1*( US_RCI-(US_RCI(-1)))+US_XM2*(US_XM3*US_RCI(-1)+log(US_FACT(-1))-log(US_XM(-1)))+RES_US_XM ; + US_XMA = US_XM+T01*(WTRADER-TRDER*GREAL^TME)/US_E96 ; + US_XT = US_XMA+US_XOIL ; + US_ACT = US_C_MPROP*US_C+US_INVEST_MPROP*US_INVEST+US_G_MPROP*US_G+US_XT_MPROP*US_XT ; + ( log(US_IM)-(log(US_IM(-1)))) = US_IM0+( log(US_ACT)-(log(US_ACT(-1))))+US_IM1*( log(US_PIMA/US_PGNPNO)-(log(US_PIMA(-1)/US_PGNPNO(-1))))+US_IM2*(US_IM3*log(US_PIMA(-1)/US_PGNPNO(-1))+log(US_ACT(-1))-log(US_IM(-1)))+RES_US_IM ; + US_IOIL = US_COIL+US_XOIL-US_PRODOIL+RES_US_IOIL*GREAL^TME ; + ( log(US_ICOM)-(log(US_ICOM(-1)))) = US_IC0+US_IC2*( log(PCOM/US_ER/US_PGNP)-(log(PCOM(-1)/US_ER(-1)/US_PGNP(-1))))+US_IC1*( log(US_GDP)-(log(US_GDP(-1))))+US_IC3*log(PCOM(-1)/US_ER(-1)/US_PGNP(-1))+US_IC4*log(US_GDP(-1))+US_IC5*log(US_ICOM(-1))+RES_US_ICOM-(US_IC4+US_IC5)*log(GREAL^TME) ; + US_IT = US_IM+US_IOIL+US_ICOM ; + US_A = US_C+US_INVEST+US_G ; + US_GDP = US_A+US_XT-US_IT ; + US_GNP = US_GDP+(US_R+(US_PREM(-3)+US_PREM(-2)+US_PREM(-1))/3)*US_NFA(-1)/US_ER/US_PGNP+RES_US_GNP*GREAL^TME ; + US_W = US_WH+US_WK+(US_M+US_B+US_NFA/US_ER)/US_P ; + US_YD = (US_GDP*US_PGNP-US_TAX)/US_P-US_DELTA*US_K(-1) ; + US_GE = US_P*US_G+US_R*US_B(-1)+US_GEXOG ; + US_TAX = US_TRATE*US_PGNP*US_GNP ; + US_TAXK = US_TAXK_ALPHA*US_TAXK_SHAR*US_TAX+(1-US_TAXK_ALPHA)*US_TRATEK*US_BETA*US_GDP*US_PGNP ; + US_TAXH = US_TAX-US_TAXK ; + US_TRATE = US_TRATE_EXOG*(1-US_TRATE_ALPHA)+US_TRATE_ALPHA*((US_TRATE(-2)/5+US_TRATE(-1)/5+US_TRATE(0)/5+US_TRATE(1)/5+US_TRATE(2)/5)+TAU1*(US_B(1)/(US_GNP(1)*US_PGNP(1))-US_BT_GDP_RAT(1))+RES_US_TRATE) ; + US_BT = US_BT_GDP_RAT*US_GNP*US_PGNP ; + ( US_B-(US_B(-1)))+( US_M-(US_M(-1))) = US_R*US_B(-1)+US_P*US_G-US_TAX ; + US_GDEF = ( US_B+US_M-(US_B(-1)+US_M(-1))) ; + log(US_M/US_P) = US_M0+(1-US_M4)*log(US_A)+US_M2*US_RS+US_M4*log(US_M(-1)/US_P(-1))+RES_US_M ; + US_RS = (1-US_X_RS1)*US_RS_EXOG+US_X_RS1*(US_RS(-1)+US_RS1*log(US_MT/US_M)/US_M2+US_RS2*log(GR_ER/US_ER/US_PAR)+US_RS3*log(US_ER/US_ER/US_PARUS)+US_RS4*log(US_NEER/US_NEER_PAR)+US_RS5*(US_UNR_FE-US_UNR-US_UNR_GAP_EXOG)+US_RS6*100*(log(US_GDP)-log(US_GDP_FE)-US_GDP_GAP_EXOG)+US_X_RS2*(-US_RS(-1)+US_RSCON+100*( log(US_P(1))-(log(US_P))))+100*(US_RTARC1*(( log(US_P)-(log(US_P(-1))))-( log(US_P_TAR)-(log(US_P_TAR(-1))))-US_P_GAP_EXOG)+US_RTARC2*(( log(US_PGNP)-(log(US_PGNP(-1))))-( log(US_PGNP_TAR)-(log(US_PGNP_TAR(-1))))-US_PGNP_GAP_EXOG)+US_RTARC3*(( log(US_CPI)-(log(US_CPI(-1))))-( log(US_CPI_TAR)-(log(US_CPI_TAR(-1))))-US_CPI_GAP_EXOG)+US_RTARC4*(( log(US_PGNPNO)-(log(US_PGNPNO(-1))))-( log(US_PGNPNO_TAR)-(log(US_PGNPNO_TAR(-1))))-US_PGNPNO_GAP_EXOG)+US_RTARF1*(( log(US_P(1))-(log(US_P)))-( log(US_P_TAR(1))-(log(US_P_TAR)))-US_P_GAP_EXOG(1))+US_RTARF2*(( log(US_PGNP(1))-(log(US_PGNP)))-( log(US_PGNP_TAR(1))-(log(US_PGNP_TAR)))-US_PGNP_GAP_EXOG(1))+US_RTARF3*(( log(US_CPI(1))-(log(US_CPI)))-( log(US_CPI_TAR(1))-(log(US_CPI_TAR)))-US_CPI_GAP_EXOG(1))+US_RTARF4*(( log(US_PGNPNO(1))-(log(US_PGNPNO)))-( log(US_PGNPNO_TAR(1))-(log(US_PGNPNO_TAR)))-US_PGNPNO_GAP_EXOG(1)))+US_RSCON2+RES_US_RS)+US_RS1PERM*0 ; + US_RL/100 = ((1+US_RS/100)*(1+US_RS(1)/100)*(1+US_RS(2)/100)*(1+US_RS(3)/100)*(1+US_RS(4)/100)*(1+US_RS(5)/100)*(1+US_RS(6)/100)*(1+US_RS(7)/100)*(1+US_RS(8)/100)*(1+US_RS(9)/100))^0.1*(1+US_TPREM)-1+RES_US_RL ; + US_R = 0.5*US_RS(-1)/100+0.5*(US_RL(-3)/100+US_RL(-2)/100+US_RL(-1)/100)/3 ; + US_RLR = (1+US_RL/100)/(US_P(10)/US_P)^0.1-1 ; + US_RSR = (1+US_RS/100)/(US_P(1)/US_P)-1 ; + US_PGNPNO = (US_GDP*US_PGNP-US_PRODOIL*POIL/US_ER*US_E96)/(US_GDP-US_PRODOIL) ; + US_PGNP = (US_P*US_A+US_XT*US_PXT-US_IT*US_PIT)/US_GDP+RES_US_P*US_PGNP ; + ( log(US_PXM)-(log(US_PXM(-1)))) = US_PXM0+US_PXM1*( log(US_PGNPNO)-(log(US_PGNPNO(-1))))+(1-US_PXM1)*( log(US_PFM)-(log(US_PFM(-1))))+US_PXM2*log(US_PGNPNO(-1)/US_PXM(-1))+RES_US_PXM ; + US_PXT = (US_XMA*US_PXM+POIL/US_ER*US_E96*US_XOIL)/US_XT ; + US_PIM = (S0101*US_PXM+S0201*JA_PXM*JA_ER/JA_E96+S0301*GR_PXM*GR_ER/GR_E96+S0401*FR_PXM*FR_ER/FR_E96+S0501*IT_PXM*IT_ER/IT_E96+S0601*UK_PXM*UK_ER/UK_E96+S0701*CA_PXM*CA_ER/CA_E96+S0801*SI_PXM*SI_ER/SI_E96+S0901*RW_PXM*RW_ER/RW_E96)/(US_ER/US_E96)*(1+RES_US_PIM) ; + US_PIMA = US_PIM+T01*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/US_ER/US_IM ; + US_PIT = (US_IM*US_PIMA+US_IOIL*POIL/US_ER*US_E96+US_ICOM*PCOM/US_ER*US_E96)/US_IT ; + //log(US_TFP_FE) = RES_US_TFP_FE ; + US_TFP_FE = exp(RES_US_TFP_FE) ; + US_GDP_FE = US_TFP_FE*US_K^US_BETA*((1-US_UNR_FE/100)*US_LF)^(1-US_BETA) ; + US_LF = US_POP*US_PART/(1+US_DEM3) ; + US_CU = 100*US_GDP/US_GDP_FE ; + ( US_NFA-(US_NFA(-1))) = (US_XT*US_PXT-US_IT*US_PIT)*US_ER+(US_R+(US_PREM(-3)+US_PREM(-2)+US_PREM(-1))/3)*US_NFA(-1)+RES_US_NFA*US_INFL^TME*GREAL^TME ; + US_TB = US_XT*US_PXT-US_IT*US_PIT ; + US_CURBAL = ( US_NFA-(US_NFA(-1))) ; + US_ER = 1+RES_US_ER ; + US_RR = (0.8*US_RS(-1)+0.2*(US_RL(-3)+US_RL(-2)+US_RL(-1))/3)/100 ; + US_RCI = log(US_PXM)-log(US_PFM) ; + US_FACT = (US_IM*US_E96*S0101+JA_IM*JA_E96*S0102+GR_IM*GR_E96*S0103+FR_IM*FR_E96*S0104+IT_IM*IT_E96*S0105+UK_IM*UK_E96*S0106+CA_IM*CA_E96*S0107+SI_IM*SI_E96*S0108+(HO_IM+DC_IM)*RW_E96*S0109)/US_E96 ; + log(US_PFM) = W0101*log(US_ER/US_E96)+W0102*log(JA_PXM*JA_ER/JA_E96)+W0103*log(GR_PXM*GR_ER/GR_E96)+W0104*log(FR_PXM*FR_ER/FR_E96)+W0105*log(IT_PXM*IT_ER/IT_E96)+W0106*log(UK_PXM*UK_ER/UK_E96)+W0107*log(CA_PXM*CA_ER/CA_E96)+W0108*log(SI_PXM*SI_ER/SI_E96)+W0109*log(RW_PXM*RW_ER/RW_E96) ; + US_NEER = exp(+(log(US_ER/US_E96))-V0102*log(JA_ER/JA_E96)-V0103*log(GR_ER/GR_E96)-V0104*log(FR_ER/FR_E96)-V0105*log(IT_ER/IT_E96)-V0106*log(UK_ER/UK_E96)-V0107*log(CA_ER/CA_E96)-V0108*log(SI_ER/SI_E96)) ; + ( log(JA_CPI)-(log(JA_CPI(-1)))) = JA_CPI1*( log(JA_PIM)-(log(JA_PIM(-1))))+JA_CPI2*( log(JA_PGNP)-(log(JA_PGNP(-1))))+(1-JA_CPI1-JA_CPI2)*log(JA_CPI(-1)/JA_CPI(-2))+RES_JA_CPI ; + JA_UNR_A = JA_UNR_FE+JA_UNR_1*100*log(JA_GDP/JA_GDP_FE)+JA_UNR_2*(JA_UNR(-1)-JA_UNR_FE(-1))+RES_JA_UNR_A ; + JA_UNR = JA_UNR_A/*MAX(JA_UNR_A;0.1)*/ ; + ( log(JA_PGNPNO)-(log(JA_PGNPNO(-1)))) = JA_LAMBDA*(JA_DELTA_PI*( log(JA_PGNPNO(1))-(log(JA_PGNPNO)))+(1-JA_DELTA_PI)*( log(JA_PGNPNO(-1))-(log(JA_PGNPNO(-2)))))+(1-JA_LAMBDA)*( log(JA_PGNPNO(-1))-(log(JA_PGNPNO(-2))))+JA_GAMMA/100*(JA_NLIN-JA_UNR)/(JA_UNR-JA_PHI)+RES_JA_PGNP ; + JA_INFL = JA_MGROW/GREAL ; + JA_DLLF = log(JA_LF/JA_LF(-1)) ; + JA_DLGDP = log(JA_GDP/JA_GDP(-1)) ; + JA_C = JA_C_DI+JA_C_PI ; + JA_MPC = 1/JA_MPCINV ; + JA_MPCINV(1) = JA_MPCINV-1-((1-JA_SIGMA)*(JA_RSR+JA_PROB)-(RES_JA_MPC+JA_PROB))*JA_MPCINV/JA_SIGMA ; + JA_WH1(1) = JA_WH1*(1+JA_RSR+JA_ALPHA1+RES_JA_WH1+JA_PROB+exp(JA_DLLF_SS)-1)-(((1-JA_BETA)*JA_GDP*JA_PGNP-JA_TAXH)/JA_P+RES_JA_WK*JA_WK) ; + JA_WH2(1) = JA_WH2*(1+JA_RSR+JA_ALPHA2+RES_JA_WH2+JA_PROB+exp(JA_DLLF_SS)-1)-(((1-JA_BETA)*JA_GDP*JA_PGNP-JA_TAXH)/JA_P+RES_JA_WK*JA_WK) ; + JA_WH3(1) = JA_WH3*(1+JA_RSR+JA_ALPHA3+RES_JA_WH3+JA_PROB+exp(JA_DLLF_SS)-1)-(((1-JA_BETA)*JA_GDP*JA_PGNP-JA_TAXH)/JA_P+RES_JA_WK*JA_WK) ; + JA_C_DI = (JA_LAMBDA1*JA_BCHI1+JA_LAMBDA2*JA_BCHI2+JA_LAMBDA3*(1-JA_BCHI1-JA_BCHI2))*((1-JA_BETA)*JA_GDP*JA_PGNP-JA_TAXH)/JA_P+RES_JA_C_DI*GREAL^TME ; + JA_C_PI = JA_MPC*(JA_WK+(JA_M+JA_B+JA_NFA/JA_ER)/JA_P+JA_BCHI1*(1-JA_LAMBDA1)*JA_WH1+JA_BCHI2*(1-JA_LAMBDA2)*JA_WH2+(1-JA_BCHI1-JA_BCHI2)*(1-JA_LAMBDA3)*JA_WH3) ; + JA_WH = JA_BCHI1*JA_WH1+JA_BCHI2*JA_WH2+(1-JA_BCHI1-JA_BCHI2)*JA_WH3 ; + ( log(JA_COIL)-(log(JA_COIL(-1)))) = JA_COIL0+JA_COIL1*( log(JA_GDP)-(log(JA_GDP(-1))))+JA_COIL2*( log(POIL/JA_ER/JA_PGNP)-(log(POIL(-1)/JA_ER(-1)/JA_PGNP(-1))))+JA_COIL3*log(POIL(-1)/JA_ER(-1)/JA_PGNP(-1))+JA_COIL4*log(JA_GDP(-1)/JA_COIL(-1))+RES_JA_COIL ; + JA_INVEST/JA_K(-1)-(JA_DELTA_SS+GREAL_SS-1) = JA_K1*(JA_WK/JA_K(-1)-1)+JA_K2*(JA_WK(-1)/JA_K(-2)-1)+RES_JA_K ; + JA_MPK = JA_BETA*JA_GDP/JA_K ; + JA_Q = JA_CHI*(JA_INVEST/JA_K(-1)-(JA_DELTA_SS+GREAL_SS-1))+1 ; + JA_WK(1) = JA_WK*(1+JA_RSR+JA_K/JA_K(-1)-1+JA_DELTA+RES_JA_WK)-(JA_BETA*JA_GDP*JA_PGNP-JA_TAXK)/JA_P+(JA_CHI/2*((JA_Q-1)/JA_CHI)^2+JA_INVEST/JA_K(-1)*(JA_Q-1))*JA_K(-1)*JA_PGNP/JA_P ; + JA_INVEST = ( JA_K-(JA_K(-1)))+JA_DELTA*JA_K(-1) ; + ( log(JA_XM)-(log(JA_XM(-1)))) = JA_XM0+( log(JA_FACT)-(log(JA_FACT(-1))))+JA_XM1*( JA_RCI-(JA_RCI(-1)))+JA_XM2*(JA_XM3*JA_RCI(-1)+log(JA_FACT(-1))-log(JA_XM(-1)))+RES_JA_XM ; + JA_XMA = JA_XM+T02*(WTRADER-TRDER*GREAL^TME)/JA_E96 ; + JA_XT = JA_XMA+JA_XOIL ; + JA_ACT = JA_C_MPROP*JA_C+JA_INVEST_MPROP*JA_INVEST+JA_G_MPROP*JA_G+JA_XT_MPROP*JA_XT ; + ( log(JA_IM)-(log(JA_IM(-1)))) = JA_IM0+( log(JA_ACT)-(log(JA_ACT(-1))))+JA_IM1*( log(JA_PIMA/JA_PGNPNO)-(log(JA_PIMA(-1)/JA_PGNPNO(-1))))+JA_IM2*(JA_IM3*log(JA_PIMA(-1)/JA_PGNPNO(-1))+log(JA_ACT(-1))-log(JA_IM(-1)))+RES_JA_IM ; + JA_IOIL = JA_COIL+JA_XOIL-JA_PRODOIL+RES_JA_IOIL*GREAL^TME ; + ( log(JA_ICOM)-(log(JA_ICOM(-1)))) = JA_IC0+JA_IC2*( log(PCOM/JA_ER/JA_PGNP)-(log(PCOM(-1)/JA_ER(-1)/JA_PGNP(-1))))+JA_IC1*( log(JA_GDP)-(log(JA_GDP(-1))))+JA_IC3*log(PCOM(-1)/JA_ER(-1)/JA_PGNP(-1))+JA_IC4*log(JA_GDP(-1))+JA_IC5*log(JA_ICOM(-1))+RES_JA_ICOM-(JA_IC4+JA_IC5)*log(GREAL^TME) ; + JA_IT = JA_IM+JA_IOIL+JA_ICOM ; + JA_A = JA_C+JA_INVEST+JA_G ; + JA_GDP = JA_A+JA_XT-JA_IT ; + JA_GNP = JA_GDP+(US_R+(JA_PREM(-3)+JA_PREM(-2)+JA_PREM(-1))/3)*JA_NFA(-1)/JA_ER/JA_PGNP+RES_JA_GNP*GREAL^TME ; + JA_W = JA_WH+JA_WK+(JA_M+JA_B+JA_NFA/JA_ER)/JA_P ; + JA_YD = (JA_GDP*JA_PGNP-JA_TAX)/JA_P-JA_DELTA*JA_K(-1) ; + JA_GE = JA_P*JA_G+JA_R*JA_B(-1)+JA_GEXOG ; + JA_TAX = JA_TRATE*JA_PGNP*JA_GNP ; + JA_TAXK = JA_TAXK_ALPHA*JA_TAXK_SHAR*JA_TAX+(1-JA_TAXK_ALPHA)*JA_TRATEK*JA_BETA*JA_GDP*JA_PGNP ; + JA_TAXH = JA_TAX-JA_TAXK ; + JA_TRATE = JA_TRATE_EXOG*(1-JA_TRATE_ALPHA)+JA_TRATE_ALPHA*((JA_TRATE(-2)/5+JA_TRATE(-1)/5+JA_TRATE(0)/5+JA_TRATE(1)/5+JA_TRATE(2)/5)+TAU1*(JA_B(1)/(JA_GNP(1)*JA_PGNP(1))-JA_BT_GDP_RAT(1))+RES_JA_TRATE) ; + JA_BT = JA_BT_GDP_RAT*JA_GNP*JA_PGNP ; + ( JA_B-(JA_B(-1)))+( JA_M-(JA_M(-1))) = JA_R*JA_B(-1)+JA_P*JA_G-JA_TAX ; + JA_GDEF = ( JA_B+JA_M-(JA_B(-1)+JA_M(-1))) ; + log(JA_M/JA_P) = JA_M0+(1-JA_M4)*log(JA_A)+JA_M2*JA_RS+JA_M4*log(JA_M(-1)/JA_P(-1))+RES_JA_M ; + JA_RS = (1-JA_X_RS1)*JA_RS_EXOG+JA_X_RS1*(JA_RS(-1)+JA_RS1*log(JA_MT/JA_M)/JA_M2+JA_RS2*log(GR_ER/JA_ER/JA_PAR)+JA_RS3*log(US_ER/JA_ER/JA_PARUS)+JA_RS4*log(JA_NEER/JA_NEER_PAR)+JA_RS5*(JA_UNR_FE-JA_UNR-JA_UNR_GAP_EXOG)+JA_RS6*100*(log(JA_GDP)-log(JA_GDP_FE)-JA_GDP_GAP_EXOG)+JA_X_RS2*(-JA_RS(-1)+JA_RSCON+100*( log(JA_P(1))-(log(JA_P))))+100*(JA_RTARC1*(( log(JA_P)-(log(JA_P(-1))))-( log(JA_P_TAR)-(log(JA_P_TAR(-1))))-JA_P_GAP_EXOG)+JA_RTARC2*(( log(JA_PGNP)-(log(JA_PGNP(-1))))-( log(JA_PGNP_TAR)-(log(JA_PGNP_TAR(-1))))-JA_PGNP_GAP_EXOG)+JA_RTARC3*(( log(JA_CPI)-(log(JA_CPI(-1))))-( log(JA_CPI_TAR)-(log(JA_CPI_TAR(-1))))-JA_CPI_GAP_EXOG)+JA_RTARC4*(( log(JA_PGNPNO)-(log(JA_PGNPNO(-1))))-( log(JA_PGNPNO_TAR)-(log(JA_PGNPNO_TAR(-1))))-JA_PGNPNO_GAP_EXOG)+JA_RTARF1*(( log(JA_P(1))-(log(JA_P)))-( log(JA_P_TAR(1))-(log(JA_P_TAR)))-JA_P_GAP_EXOG(1))+JA_RTARF2*(( log(JA_PGNP(1))-(log(JA_PGNP)))-( log(JA_PGNP_TAR(1))-(log(JA_PGNP_TAR)))-JA_PGNP_GAP_EXOG(1))+JA_RTARF3*(( log(JA_CPI(1))-(log(JA_CPI)))-( log(JA_CPI_TAR(1))-(log(JA_CPI_TAR)))-JA_CPI_GAP_EXOG(1))+JA_RTARF4*(( log(JA_PGNPNO(1))-(log(JA_PGNPNO)))-( log(JA_PGNPNO_TAR(1))-(log(JA_PGNPNO_TAR)))-JA_PGNPNO_GAP_EXOG(1)))+JA_RSCON2+RES_JA_RS)+JA_RS1PERM*0 ; + JA_RL/100 = ((1+JA_RS/100)*(1+JA_RS(1)/100)*(1+JA_RS(2)/100)*(1+JA_RS(3)/100)*(1+JA_RS(4)/100)*(1+JA_RS(5)/100)*(1+JA_RS(6)/100)*(1+JA_RS(7)/100)*(1+JA_RS(8)/100)*(1+JA_RS(9)/100))^0.1*(1+JA_TPREM)-1+RES_JA_RL ; + JA_R = 0.5*JA_RS(-1)/100+0.5*(JA_RL(-3)/100+JA_RL(-2)/100+JA_RL(-1)/100)/3 ; + JA_RLR = (1+JA_RL/100)/(JA_P(10)/JA_P)^0.1-1 ; + JA_RSR = (1+JA_RS/100)/(JA_P(1)/JA_P)-1 ; + JA_PGNPNO = (JA_GDP*JA_PGNP-JA_PRODOIL*POIL/JA_ER*JA_E96)/(JA_GDP-JA_PRODOIL) ; + JA_PGNP = (JA_P*JA_A+JA_XT*JA_PXT-JA_IT*JA_PIT)/JA_GDP+RES_JA_P*JA_PGNP ; + ( log(JA_PXM)-(log(JA_PXM(-1)))) = JA_PXM0+JA_PXM1*( log(JA_PGNPNO)-(log(JA_PGNPNO(-1))))+(1-JA_PXM1)*( log(JA_PFM)-(log(JA_PFM(-1))))+JA_PXM2*log(JA_PGNPNO(-1)/JA_PXM(-1))+RES_JA_PXM ; + JA_PXT = (JA_XMA*JA_PXM+POIL/JA_ER*JA_E96*JA_XOIL)/JA_XT ; + JA_PIM = (S0102*US_PXM+S0202*JA_PXM*JA_ER/JA_E96+S0302*GR_PXM*GR_ER/GR_E96+S0402*FR_PXM*FR_ER/FR_E96+S0502*IT_PXM*IT_ER/IT_E96+S0602*UK_PXM*UK_ER/UK_E96+S0702*CA_PXM*CA_ER/CA_E96+S0802*SI_PXM*SI_ER/SI_E96+S0902*RW_PXM*RW_ER/RW_E96)/(JA_ER/JA_E96)*(1+RES_JA_PIM) ; + JA_PIMA = JA_PIM+T02*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/JA_ER/JA_IM ; + JA_PIT = (JA_IM*JA_PIMA+JA_IOIL*POIL/JA_ER*JA_E96+JA_ICOM*PCOM/JA_ER*JA_E96)/JA_IT ; + //log(JA_TFP_FE) = RES_JA_TFP_FE ; + JA_TFP_FE = exp(RES_JA_TFP_FE ); + JA_GDP_FE = JA_TFP_FE*JA_K^JA_BETA*((1-JA_UNR_FE/100)*JA_LF)^(1-JA_BETA) ; + JA_LF = JA_POP*JA_PART/(1+JA_DEM3) ; + JA_CU = 100*JA_GDP/JA_GDP_FE ; + ( JA_NFA-(JA_NFA(-1))) = (JA_XT*JA_PXT-JA_IT*JA_PIT)*JA_ER+(US_R+(JA_PREM(-3)+JA_PREM(-2)+JA_PREM(-1))/3)*JA_NFA(-1)+RES_JA_NFA*US_INFL^TME*GREAL^TME ; + JA_TB = JA_XT*JA_PXT-JA_IT*JA_PIT ; + JA_CURBAL = ( JA_NFA-(JA_NFA(-1))) ; + 1+US_RS/100 = (1+JA_RS/100)*JA_ER(1)/JA_ER-JA_PREM+RES_JA_ER ; + JA_RCI = log(JA_PXM)-log(JA_PFM) ; + JA_FACT = (US_IM*US_E96*S0201+JA_IM*JA_E96*S0202+GR_IM*GR_E96*S0203+FR_IM*FR_E96*S0204+IT_IM*IT_E96*S0205+UK_IM*UK_E96*S0206+CA_IM*CA_E96*S0207+SI_IM*SI_E96*S0208+(HO_IM+DC_IM)*RW_E96*S0209)/JA_E96 ; + log(JA_PFM) = W0201*log(US_PXM*US_ER/US_E96)+W0202*log(JA_ER/JA_E96)+W0203*log(GR_PXM*GR_ER/GR_E96)+W0204*log(FR_PXM*FR_ER/FR_E96)+W0205*log(IT_PXM*IT_ER/IT_E96)+W0206*log(UK_PXM*UK_ER/UK_E96)+W0207*log(CA_PXM*CA_ER/CA_E96)+W0208*log(SI_PXM*SI_ER/SI_E96)+W0209*log(RW_PXM*RW_ER/RW_E96) ; + JA_NEER = exp(-V0201*log(US_ER/US_E96)+log(JA_ER/JA_E96)-V0203*log(GR_ER/GR_E96)-V0204*log(FR_ER/FR_E96)-V0205*log(IT_ER/IT_E96)-V0206*log(UK_ER/UK_E96)-V0207*log(CA_ER/CA_E96)-V0208*log(SI_ER/SI_E96)) ; + ( log(GR_CPI)-(log(GR_CPI(-1)))) = GR_CPI1*( log(GR_PIM)-(log(GR_PIM(-1))))+GR_CPI2*( log(GR_PGNP)-(log(GR_PGNP(-1))))+(1-GR_CPI1-GR_CPI2)*log(GR_CPI(-1)/GR_CPI(-2))+RES_GR_CPI ; + GR_UNR_A = GR_UNR_FE+GR_UNR_1*100*log(GR_GDP/GR_GDP_FE)+GR_UNR_2*(GR_UNR(-1)-GR_UNR_FE(-1))+RES_GR_UNR_A ; + GR_UNR = GR_UNR_A/*MAX(GR_UNR_A;0.1)*/ ; + ( log(GR_PGNPNO)-(log(GR_PGNPNO(-1)))) = GR_LAMBDA*(GR_DELTA_PI*( log(GR_PGNPNO(1))-(log(GR_PGNPNO)))+(1-GR_DELTA_PI)*( log(GR_PGNPNO(-1))-(log(GR_PGNPNO(-2)))))+(1-GR_LAMBDA)*( log(GR_PGNPNO(-1))-(log(GR_PGNPNO(-2))))+GR_GAMMA/100*(GR_NLIN-GR_UNR)/(GR_UNR-GR_PHI)+RES_GR_PGNP ; + GR_INFL = GR_MGROW/GREAL ; + GR_DLLF = log(GR_LF/GR_LF(-1)) ; + GR_DLGDP = log(GR_GDP/GR_GDP(-1)) ; + GR_C = GR_C_DI+GR_C_PI ; + GR_MPC = 1/GR_MPCINV ; + GR_MPCINV(1) = GR_MPCINV-1-((1-GR_SIGMA)*(GR_RSR+GR_PROB)-(RES_GR_MPC+GR_PROB))*GR_MPCINV/GR_SIGMA ; + GR_WH1(1) = GR_WH1*(1+GR_RSR+GR_ALPHA1+RES_GR_WH1+GR_PROB+exp(GR_DLLF_SS)-1)-(((1-GR_BETA)*GR_GDP*GR_PGNP-GR_TAXH)/GR_P+RES_GR_WK*GR_WK) ; + GR_WH2(1) = GR_WH2*(1+GR_RSR+GR_ALPHA2+RES_GR_WH2+GR_PROB+exp(GR_DLLF_SS)-1)-(((1-GR_BETA)*GR_GDP*GR_PGNP-GR_TAXH)/GR_P+RES_GR_WK*GR_WK) ; + GR_WH3(1) = GR_WH3*(1+GR_RSR+GR_ALPHA3+RES_GR_WH3+GR_PROB+exp(GR_DLLF_SS)-1)-(((1-GR_BETA)*GR_GDP*GR_PGNP-GR_TAXH)/GR_P+RES_GR_WK*GR_WK) ; + GR_C_DI = (GR_LAMBDA1*GR_BCHI1+GR_LAMBDA2*GR_BCHI2+GR_LAMBDA3*(1-GR_BCHI1-GR_BCHI2))*((1-GR_BETA)*GR_GDP*GR_PGNP-GR_TAXH)/GR_P+RES_GR_C_DI*GREAL^TME ; + GR_C_PI = GR_MPC*(GR_WK+(GR_M+GR_B+GR_NFA/GR_ER)/GR_P+GR_BCHI1*(1-GR_LAMBDA1)*GR_WH1+GR_BCHI2*(1-GR_LAMBDA2)*GR_WH2+(1-GR_BCHI1-GR_BCHI2)*(1-GR_LAMBDA3)*GR_WH3) ; + GR_WH = GR_BCHI1*GR_WH1+GR_BCHI2*GR_WH2+(1-GR_BCHI1-GR_BCHI2)*GR_WH3 ; + ( log(GR_COIL)-(log(GR_COIL(-1)))) = GR_COIL0+GR_COIL1*( log(GR_GDP)-(log(GR_GDP(-1))))+GR_COIL2*( log(POIL/GR_ER/GR_PGNP)-(log(POIL(-1)/GR_ER(-1)/GR_PGNP(-1))))+GR_COIL3*log(POIL(-1)/GR_ER(-1)/GR_PGNP(-1))+GR_COIL4*log(GR_GDP(-1)/GR_COIL(-1))+RES_GR_COIL ; + GR_INVEST/GR_K(-1)-(GR_DELTA_SS+GREAL_SS-1) = GR_K1*(GR_WK/GR_K(-1)-1)+GR_K2*(GR_WK(-1)/GR_K(-2)-1)+RES_GR_K ; + GR_MPK = GR_BETA*GR_GDP/GR_K ; + GR_Q = GR_CHI*(GR_INVEST/GR_K(-1)-(GR_DELTA_SS+GREAL_SS-1))+1 ; + GR_WK(1) = GR_WK*(1+GR_RSR+GR_K/GR_K(-1)-1+GR_DELTA+RES_GR_WK)-(GR_BETA*GR_GDP*GR_PGNP-GR_TAXK)/GR_P+(GR_CHI/2*((GR_Q-1)/GR_CHI)^2+GR_INVEST/GR_K(-1)*(GR_Q-1))*GR_K(-1)*GR_PGNP/GR_P ; + GR_INVEST = ( GR_K-(GR_K(-1)))+GR_DELTA*GR_K(-1) ; + ( log(GR_XM)-(log(GR_XM(-1)))) = GR_XM0+( log(GR_FACT)-(log(GR_FACT(-1))))+GR_XM1*( GR_RCI-(GR_RCI(-1)))+GR_XM2*(GR_XM3*GR_RCI(-1)+log(GR_FACT(-1))-log(GR_XM(-1)))+RES_GR_XM ; + GR_XMA = GR_XM+T03*(WTRADER-TRDER*GREAL^TME)/GR_E96 ; + GR_XT = GR_XMA+GR_XOIL ; + GR_ACT = GR_C_MPROP*GR_C+GR_INVEST_MPROP*GR_INVEST+GR_G_MPROP*GR_G+GR_XT_MPROP*GR_XT ; + ( log(GR_IM)-(log(GR_IM(-1)))) = GR_IM0+( log(GR_ACT)-(log(GR_ACT(-1))))+GR_IM1*( log(GR_PIMA/GR_PGNPNO)-(log(GR_PIMA(-1)/GR_PGNPNO(-1))))+GR_IM2*(GR_IM3*log(GR_PIMA(-1)/GR_PGNPNO(-1))+log(GR_ACT(-1))-log(GR_IM(-1)))+RES_GR_IM ; + GR_IOIL = GR_COIL+GR_XOIL-GR_PRODOIL+RES_GR_IOIL*GREAL^TME ; + ( log(GR_ICOM)-(log(GR_ICOM(-1)))) = GR_IC0+GR_IC2*( log(PCOM/GR_ER/GR_PGNP)-(log(PCOM(-1)/GR_ER(-1)/GR_PGNP(-1))))+GR_IC1*( log(GR_GDP)-(log(GR_GDP(-1))))+GR_IC3*log(PCOM(-1)/GR_ER(-1)/GR_PGNP(-1))+GR_IC4*log(GR_GDP(-1))+GR_IC5*log(GR_ICOM(-1))+RES_GR_ICOM-(GR_IC4+GR_IC5)*log(GREAL^TME) ; + GR_IT = GR_IM+GR_IOIL+GR_ICOM ; + GR_A = GR_C+GR_INVEST+GR_G ; + GR_GDP = GR_A+GR_XT-GR_IT ; + GR_GNP = GR_GDP+(US_R+(GR_PREM(-3)+GR_PREM(-2)+GR_PREM(-1))/3)*GR_NFA(-1)/GR_ER/GR_PGNP+RES_GR_GNP*GREAL^TME ; + GR_W = GR_WH+GR_WK+(GR_M+GR_B+GR_NFA/GR_ER)/GR_P ; + GR_YD = (GR_GDP*GR_PGNP-GR_TAX)/GR_P-GR_DELTA*GR_K(-1) ; + GR_GE = GR_P*GR_G+GR_R*GR_B(-1)+GR_GEXOG ; + GR_TAX = GR_TRATE*GR_PGNP*GR_GNP ; + GR_TAXK = GR_TAXK_ALPHA*GR_TAXK_SHAR*GR_TAX+(1-GR_TAXK_ALPHA)*GR_TRATEK*GR_BETA*GR_GDP*GR_PGNP ; + GR_TAXH = GR_TAX-GR_TAXK ; + GR_TRATE = GR_TRATE_EXOG*(1-GR_TRATE_ALPHA)+GR_TRATE_ALPHA*((GR_TRATE(-2)/5+GR_TRATE(-1)/5+GR_TRATE(0)/5+GR_TRATE(1)/5+GR_TRATE(2)/5)+TAU1*(GR_B(1)/(GR_GNP(1)*GR_PGNP(1))-GR_BT_GDP_RAT(1))+RES_GR_TRATE) ; + GR_BT = GR_BT_GDP_RAT*GR_GNP*GR_PGNP ; + ( GR_B-(GR_B(-1)))+( GR_M-(GR_M(-1))) = GR_R*GR_B(-1)+GR_P*GR_G-GR_TAX ; + GR_GDEF = ( GR_B+GR_M-(GR_B(-1)+GR_M(-1))) ; + log(GR_M/GR_P) = GR_M0+(1-GR_M4)*log(GR_A)+GR_M2*GR_RS+GR_M4*log(GR_M(-1)/GR_P(-1))+RES_GR_M ; + GR_RS = (1-GR_X_RS1)*GR_RS_EXOG+GR_X_RS1*(GR_RS(-1)+GR_RS1*log(GR_MT/GR_M)/GR_M2+GR_RS2*log(GR_ER/GR_ER/GR_PAR)+GR_RS3*log(US_ER/GR_ER/GR_PARUS)+GR_RS4*log(GR_NEER/GR_NEER_PAR)+GR_RS5*(GR_UNR_FE-GR_UNR-GR_UNR_GAP_EXOG)+GR_RS6*100*(log(GR_GDP)-log(GR_GDP_FE)-GR_GDP_GAP_EXOG)+GR_X_RS2*(-GR_RS(-1)+GR_RSCON+100*( log(GR_P(1))-(log(GR_P))))+100*(GR_RTARC1*(( log(GR_P)-(log(GR_P(-1))))-( log(GR_P_TAR)-(log(GR_P_TAR(-1))))-GR_P_GAP_EXOG)+GR_RTARC2*(( log(GR_PGNP)-(log(GR_PGNP(-1))))-( log(GR_PGNP_TAR)-(log(GR_PGNP_TAR(-1))))-GR_PGNP_GAP_EXOG)+GR_RTARC3*(( log(GR_CPI)-(log(GR_CPI(-1))))-( log(GR_CPI_TAR)-(log(GR_CPI_TAR(-1))))-GR_CPI_GAP_EXOG)+GR_RTARC4*(( log(GR_PGNPNO)-(log(GR_PGNPNO(-1))))-( log(GR_PGNPNO_TAR)-(log(GR_PGNPNO_TAR(-1))))-GR_PGNPNO_GAP_EXOG)+GR_RTARF1*(( log(GR_P(1))-(log(GR_P)))-( log(GR_P_TAR(1))-(log(GR_P_TAR)))-GR_P_GAP_EXOG(1))+GR_RTARF2*(( log(GR_PGNP(1))-(log(GR_PGNP)))-( log(GR_PGNP_TAR(1))-(log(GR_PGNP_TAR)))-GR_PGNP_GAP_EXOG(1))+GR_RTARF3*(( log(GR_CPI(1))-(log(GR_CPI)))-( log(GR_CPI_TAR(1))-(log(GR_CPI_TAR)))-GR_CPI_GAP_EXOG(1))+GR_RTARF4*(( log(GR_PGNPNO(1))-(log(GR_PGNPNO)))-( log(GR_PGNPNO_TAR(1))-(log(GR_PGNPNO_TAR)))-GR_PGNPNO_GAP_EXOG(1)))+GR_RSCON2+RES_GR_RS)+GR_RS1PERM*0 ; + GR_RL/100 = ((1+GR_RS/100)*(1+GR_RS(1)/100)*(1+GR_RS(2)/100)*(1+GR_RS(3)/100)*(1+GR_RS(4)/100)*(1+GR_RS(5)/100)*(1+GR_RS(6)/100)*(1+GR_RS(7)/100)*(1+GR_RS(8)/100)*(1+GR_RS(9)/100))^0.1*(1+GR_TPREM)-1+RES_GR_RL ; + GR_R = 0.5*GR_RS(-1)/100+0.5*(GR_RL(-3)/100+GR_RL(-2)/100+GR_RL(-1)/100)/3 ; + GR_RLR = (1+GR_RL/100)/(GR_P(10)/GR_P)^0.1-1 ; + GR_RSR = (1+GR_RS/100)/(GR_P(1)/GR_P)-1 ; + GR_PGNPNO = (GR_GDP*GR_PGNP-GR_PRODOIL*POIL/GR_ER*GR_E96)/(GR_GDP-GR_PRODOIL) ; + GR_PGNP = (GR_P*GR_A+GR_XT*GR_PXT-GR_IT*GR_PIT)/GR_GDP+RES_GR_P*GR_PGNP ; + ( log(GR_PXM)-(log(GR_PXM(-1)))) = GR_PXM0+GR_PXM1*( log(GR_PGNPNO)-(log(GR_PGNPNO(-1))))+(1-GR_PXM1)*( log(GR_PFM)-(log(GR_PFM(-1))))+GR_PXM2*log(GR_PGNPNO(-1)/GR_PXM(-1))+RES_GR_PXM ; + GR_PXT = (GR_XMA*GR_PXM+POIL/GR_ER*GR_E96*GR_XOIL)/GR_XT ; + GR_PIM = (S0103*US_PXM+S0203*JA_PXM*JA_ER/JA_E96+S0303*GR_PXM*GR_ER/GR_E96+S0403*FR_PXM*FR_ER/FR_E96+S0503*IT_PXM*IT_ER/IT_E96+S0603*UK_PXM*UK_ER/UK_E96+S0703*CA_PXM*CA_ER/CA_E96+S0803*SI_PXM*SI_ER/SI_E96+S0903*RW_PXM*RW_ER/RW_E96)/(GR_ER/GR_E96)*(1+RES_GR_PIM) ; + GR_PIMA = GR_PIM+T03*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/GR_ER/GR_IM ; + GR_PIT = (GR_IM*GR_PIMA+GR_IOIL*POIL/GR_ER*GR_E96+GR_ICOM*PCOM/GR_ER*GR_E96)/GR_IT ; + //log(GR_TFP_FE) = RES_GR_TFP_FE ; + GR_TFP_FE = exp(RES_GR_TFP_FE) ; + GR_GDP_FE = GR_TFP_FE*GR_K^GR_BETA*((1-GR_UNR_FE/100)*GR_LF)^(1-GR_BETA) ; + GR_LF = GR_POP*GR_PART/(1+GR_DEM3) ; + GR_CU = 100*GR_GDP/GR_GDP_FE ; + ( GR_NFA-(GR_NFA(-1))) = (GR_XT*GR_PXT-GR_IT*GR_PIT)*GR_ER+(US_R+(GR_PREM(-3)+GR_PREM(-2)+GR_PREM(-1))/3)*GR_NFA(-1)+RES_GR_NFA*US_INFL^TME*GREAL^TME ; + GR_TB = GR_XT*GR_PXT-GR_IT*GR_PIT ; + GR_CURBAL = ( GR_NFA-(GR_NFA(-1))) ; + 1+US_RS/100 = (1+GR_RS/100)*GR_ER(1)/GR_ER-GR_PREM+RES_GR_ER ; + GR_RCI = log(GR_PXM)-log(GR_PFM) ; + GR_FACT = (US_IM*US_E96*S0301+JA_IM*JA_E96*S0302+GR_IM*GR_E96*S0303+FR_IM*FR_E96*S0304+IT_IM*IT_E96*S0305+UK_IM*UK_E96*S0306+CA_IM*CA_E96*S0307+SI_IM*SI_E96*S0308+(HO_IM+DC_IM)*RW_E96*S0309)/GR_E96 ; + log(GR_PFM) = W0301*log(US_PXM*US_ER/US_E96)+W0302*log(JA_PXM*JA_ER/JA_E96)+W0303*log(GR_ER/GR_E96)+W0304*log(FR_PXM*FR_ER/FR_E96)+W0305*log(IT_PXM*IT_ER/IT_E96)+W0306*log(UK_PXM*UK_ER/UK_E96)+W0307*log(CA_PXM*CA_ER/CA_E96)+W0308*log(SI_PXM*SI_ER/SI_E96)+W0309*log(RW_PXM*RW_ER/RW_E96) ; + GR_NEER = exp(-V0301*log(US_ER/US_E96)-V0302*log(JA_ER/JA_E96)+log(GR_ER/GR_E96)-V0304*log(FR_ER/FR_E96)-V0305*log(IT_ER/IT_E96)-V0306*log(UK_ER/UK_E96)-V0307*log(CA_ER/CA_E96)-V0308*log(SI_ER/SI_E96)) ; + ( log(FR_CPI)-(log(FR_CPI(-1)))) = FR_CPI1*( log(FR_PIM)-(log(FR_PIM(-1))))+FR_CPI2*( log(FR_PGNP)-(log(FR_PGNP(-1))))+(1-FR_CPI1-FR_CPI2)*log(FR_CPI(-1)/FR_CPI(-2))+RES_FR_CPI ; + FR_UNR_A = FR_UNR_FE+FR_UNR_1*100*log(FR_GDP/FR_GDP_FE)+FR_UNR_2*(FR_UNR(-1)-FR_UNR_FE(-1))+RES_FR_UNR_A ; + FR_UNR = FR_UNR_A/*MAX(FR_UNR_A;0.1)*/ ; + ( log(FR_PGNPNO)-(log(FR_PGNPNO(-1)))) = FR_LAMBDA*(FR_DELTA_PI*( log(FR_PGNPNO(1))-(log(FR_PGNPNO)))+(1-FR_DELTA_PI)*( log(FR_PGNPNO(-1))-(log(FR_PGNPNO(-2)))))+(1-FR_LAMBDA)*( log(FR_PGNPNO(-1))-(log(FR_PGNPNO(-2))))+FR_GAMMA/100*(FR_NLIN-FR_UNR)/(FR_UNR-FR_PHI)+RES_FR_PGNP ; + FR_INFL = FR_MGROW/GREAL ; + FR_DLLF = log(FR_LF/FR_LF(-1)) ; + FR_DLGDP = log(FR_GDP/FR_GDP(-1)) ; + FR_C = FR_C_DI+FR_C_PI ; + FR_MPC = 1/FR_MPCINV ; + FR_MPCINV(1) = FR_MPCINV-1-((1-FR_SIGMA)*(FR_RSR+FR_PROB)-(RES_FR_MPC+FR_PROB))*FR_MPCINV/FR_SIGMA ; + FR_WH1(1) = FR_WH1*(1+FR_RSR+FR_ALPHA1+RES_FR_WH1+FR_PROB+exp(FR_DLLF_SS)-1)-(((1-FR_BETA)*FR_GDP*FR_PGNP-FR_TAXH)/FR_P+RES_FR_WK*FR_WK) ; + FR_WH2(1) = FR_WH2*(1+FR_RSR+FR_ALPHA2+RES_FR_WH2+FR_PROB+exp(FR_DLLF_SS)-1)-(((1-FR_BETA)*FR_GDP*FR_PGNP-FR_TAXH)/FR_P+RES_FR_WK*FR_WK) ; + FR_WH3(1) = FR_WH3*(1+FR_RSR+FR_ALPHA3+RES_FR_WH3+FR_PROB+exp(FR_DLLF_SS)-1)-(((1-FR_BETA)*FR_GDP*FR_PGNP-FR_TAXH)/FR_P+RES_FR_WK*FR_WK) ; + FR_C_DI = (FR_LAMBDA1*FR_BCHI1+FR_LAMBDA2*FR_BCHI2+FR_LAMBDA3*(1-FR_BCHI1-FR_BCHI2))*((1-FR_BETA)*FR_GDP*FR_PGNP-FR_TAXH)/FR_P+RES_FR_C_DI*GREAL^TME ; + FR_C_PI = FR_MPC*(FR_WK+(FR_M+FR_B+FR_NFA/FR_ER)/FR_P+FR_BCHI1*(1-FR_LAMBDA1)*FR_WH1+FR_BCHI2*(1-FR_LAMBDA2)*FR_WH2+(1-FR_BCHI1-FR_BCHI2)*(1-FR_LAMBDA3)*FR_WH3) ; + FR_WH = FR_BCHI1*FR_WH1+FR_BCHI2*FR_WH2+(1-FR_BCHI1-FR_BCHI2)*FR_WH3 ; + ( log(FR_COIL)-(log(FR_COIL(-1)))) = FR_COIL0+FR_COIL1*( log(FR_GDP)-(log(FR_GDP(-1))))+FR_COIL2*( log(POIL/FR_ER/FR_PGNP)-(log(POIL(-1)/FR_ER(-1)/FR_PGNP(-1))))+FR_COIL3*log(POIL(-1)/FR_ER(-1)/FR_PGNP(-1))+FR_COIL4*log(FR_GDP(-1)/FR_COIL(-1))+RES_FR_COIL ; + FR_INVEST/FR_K(-1)-(FR_DELTA_SS+GREAL_SS-1) = FR_K1*(FR_WK/FR_K(-1)-1)+FR_K2*(FR_WK(-1)/FR_K(-2)-1)+RES_FR_K ; + FR_MPK = FR_BETA*FR_GDP/FR_K ; + FR_Q = FR_CHI*(FR_INVEST/FR_K(-1)-(FR_DELTA_SS+GREAL_SS-1))+1 ; + FR_WK(1) = FR_WK*(1+FR_RSR+FR_K/FR_K(-1)-1+FR_DELTA+RES_FR_WK)-(FR_BETA*FR_GDP*FR_PGNP-FR_TAXK)/FR_P+(FR_CHI/2*((FR_Q-1)/FR_CHI)^2+FR_INVEST/FR_K(-1)*(FR_Q-1))*FR_K(-1)*FR_PGNP/FR_P ; + FR_INVEST = ( FR_K-(FR_K(-1)))+FR_DELTA*FR_K(-1) ; + ( log(FR_XM)-(log(FR_XM(-1)))) = FR_XM0+( log(FR_FACT)-(log(FR_FACT(-1))))+FR_XM1*( FR_RCI-(FR_RCI(-1)))+FR_XM2*(FR_XM3*FR_RCI(-1)+log(FR_FACT(-1))-log(FR_XM(-1)))+RES_FR_XM ; + FR_XMA = FR_XM+T04*(WTRADER-TRDER*GREAL^TME)/FR_E96 ; + FR_XT = FR_XMA+FR_XOIL ; + FR_ACT = FR_C_MPROP*FR_C+FR_INVEST_MPROP*FR_INVEST+FR_G_MPROP*FR_G+FR_XT_MPROP*FR_XT ; + ( log(FR_IM)-(log(FR_IM(-1)))) = FR_IM0+( log(FR_ACT)-(log(FR_ACT(-1))))+FR_IM1*( log(FR_PIMA/FR_PGNPNO)-(log(FR_PIMA(-1)/FR_PGNPNO(-1))))+FR_IM2*(FR_IM3*log(FR_PIMA(-1)/FR_PGNPNO(-1))+log(FR_ACT(-1))-log(FR_IM(-1)))+RES_FR_IM ; + FR_IOIL = FR_COIL+FR_XOIL-FR_PRODOIL+RES_FR_IOIL*GREAL^TME ; + ( log(FR_ICOM)-(log(FR_ICOM(-1)))) = FR_IC0+FR_IC2*( log(PCOM/FR_ER/FR_PGNP)-(log(PCOM(-1)/FR_ER(-1)/FR_PGNP(-1))))+FR_IC1*( log(FR_GDP)-(log(FR_GDP(-1))))+FR_IC3*log(PCOM(-1)/FR_ER(-1)/FR_PGNP(-1))+FR_IC4*log(FR_GDP(-1))+FR_IC5*log(FR_ICOM(-1))+RES_FR_ICOM-(FR_IC4+FR_IC5)*log(GREAL^TME) ; + FR_IT = FR_IM+FR_IOIL+FR_ICOM ; + FR_A = FR_C+FR_INVEST+FR_G ; + FR_GDP = FR_A+FR_XT-FR_IT ; + FR_GNP = FR_GDP+(US_R+(FR_PREM(-3)+FR_PREM(-2)+FR_PREM(-1))/3)*FR_NFA(-1)/FR_ER/FR_PGNP+RES_FR_GNP*GREAL^TME ; + FR_W = FR_WH+FR_WK+(FR_M+FR_B+FR_NFA/FR_ER)/FR_P ; + FR_YD = (FR_GDP*FR_PGNP-FR_TAX)/FR_P-FR_DELTA*FR_K(-1) ; + FR_GE = FR_P*FR_G+FR_R*FR_B(-1)+FR_GEXOG ; + FR_TAX = FR_TRATE*FR_PGNP*FR_GNP ; + FR_TAXK = FR_TAXK_ALPHA*FR_TAXK_SHAR*FR_TAX+(1-FR_TAXK_ALPHA)*FR_TRATEK*FR_BETA*FR_GDP*FR_PGNP ; + FR_TAXH = FR_TAX-FR_TAXK ; + FR_TRATE = FR_TRATE_EXOG*(1-FR_TRATE_ALPHA)+FR_TRATE_ALPHA*((FR_TRATE(-2)/5+FR_TRATE(-1)/5+FR_TRATE(0)/5+FR_TRATE(1)/5+FR_TRATE(2)/5)+TAU1*(FR_B(1)/(FR_GNP(1)*FR_PGNP(1))-FR_BT_GDP_RAT(1))+RES_FR_TRATE) ; + FR_BT = FR_BT_GDP_RAT*FR_GNP*FR_PGNP ; + ( FR_B-(FR_B(-1)))+( FR_M-(FR_M(-1))) = FR_R*FR_B(-1)+FR_P*FR_G-FR_TAX ; + FR_GDEF = ( FR_B+FR_M-(FR_B(-1)+FR_M(-1))) ; + log(FR_M/FR_P) = FR_M0+(1-FR_M4)*log(FR_A)+FR_M2*FR_RS+FR_M4*log(FR_M(-1)/FR_P(-1))+RES_FR_M ; + FR_RS = (1-FR_X_RS1)*FR_RS_EXOG+FR_X_RS1*(FR_RS(-1)+FR_RS1*log(FR_MT/FR_M)/FR_M2+FR_RS2*log(GR_ER/FR_ER/FR_PAR)+FR_RS3*log(US_ER/FR_ER/FR_PARUS)+FR_RS4*log(FR_NEER/FR_NEER_PAR)+FR_RS5*(FR_UNR_FE-FR_UNR-FR_UNR_GAP_EXOG)+FR_RS6*100*(log(FR_GDP)-log(FR_GDP_FE)-FR_GDP_GAP_EXOG)+FR_X_RS2*(-FR_RS(-1)+FR_RSCON+100*( log(FR_P(1))-(log(FR_P))))+100*(FR_RTARC1*(( log(FR_P)-(log(FR_P(-1))))-( log(FR_P_TAR)-(log(FR_P_TAR(-1))))-FR_P_GAP_EXOG)+FR_RTARC2*(( log(FR_PGNP)-(log(FR_PGNP(-1))))-( log(FR_PGNP_TAR)-(log(FR_PGNP_TAR(-1))))-FR_PGNP_GAP_EXOG)+FR_RTARC3*(( log(FR_CPI)-(log(FR_CPI(-1))))-( log(FR_CPI_TAR)-(log(FR_CPI_TAR(-1))))-FR_CPI_GAP_EXOG)+FR_RTARC4*(( log(FR_PGNPNO)-(log(FR_PGNPNO(-1))))-( log(FR_PGNPNO_TAR)-(log(FR_PGNPNO_TAR(-1))))-FR_PGNPNO_GAP_EXOG)+FR_RTARF1*(( log(FR_P(1))-(log(FR_P)))-( log(FR_P_TAR(1))-(log(FR_P_TAR)))-FR_P_GAP_EXOG(1))+FR_RTARF2*(( log(FR_PGNP(1))-(log(FR_PGNP)))-( log(FR_PGNP_TAR(1))-(log(FR_PGNP_TAR)))-FR_PGNP_GAP_EXOG(1))+FR_RTARF3*(( log(FR_CPI(1))-(log(FR_CPI)))-( log(FR_CPI_TAR(1))-(log(FR_CPI_TAR)))-FR_CPI_GAP_EXOG(1))+FR_RTARF4*(( log(FR_PGNPNO(1))-(log(FR_PGNPNO)))-( log(FR_PGNPNO_TAR(1))-(log(FR_PGNPNO_TAR)))-FR_PGNPNO_GAP_EXOG(1)))+FR_RSCON2+RES_FR_RS)+FR_RS1PERM*0 ; + FR_RL/100 = ((1+FR_RS/100)*(1+FR_RS(1)/100)*(1+FR_RS(2)/100)*(1+FR_RS(3)/100)*(1+FR_RS(4)/100)*(1+FR_RS(5)/100)*(1+FR_RS(6)/100)*(1+FR_RS(7)/100)*(1+FR_RS(8)/100)*(1+FR_RS(9)/100))^0.1*(1+FR_TPREM)-1+RES_FR_RL ; + FR_R = 0.5*FR_RS(-1)/100+0.5*(FR_RL(-3)/100+FR_RL(-2)/100+FR_RL(-1)/100)/3 ; + FR_RLR = (1+FR_RL/100)/(FR_P(10)/FR_P)^0.1-1 ; + FR_RSR = (1+FR_RS/100)/(FR_P(1)/FR_P)-1 ; + FR_PGNPNO = (FR_GDP*FR_PGNP-FR_PRODOIL*POIL/FR_ER*FR_E96)/(FR_GDP-FR_PRODOIL) ; + FR_PGNP = (FR_P*FR_A+FR_XT*FR_PXT-FR_IT*FR_PIT)/FR_GDP+RES_FR_P*FR_PGNP ; + ( log(FR_PXM)-(log(FR_PXM(-1)))) = FR_PXM0+FR_PXM1*( log(FR_PGNPNO)-(log(FR_PGNPNO(-1))))+(1-FR_PXM1)*( log(FR_PFM)-(log(FR_PFM(-1))))+FR_PXM2*log(FR_PGNPNO(-1)/FR_PXM(-1))+RES_FR_PXM ; + FR_PXT = (FR_XMA*FR_PXM+POIL/FR_ER*FR_E96*FR_XOIL)/FR_XT ; + FR_PIM = (S0104*US_PXM+S0204*JA_PXM*JA_ER/JA_E96+S0304*GR_PXM*GR_ER/GR_E96+S0404*FR_PXM*FR_ER/FR_E96+S0504*IT_PXM*IT_ER/IT_E96+S0604*UK_PXM*UK_ER/UK_E96+S0704*CA_PXM*CA_ER/CA_E96+S0804*SI_PXM*SI_ER/SI_E96+S0904*RW_PXM*RW_ER/RW_E96)/(FR_ER/FR_E96)*(1+RES_FR_PIM) ; + FR_PIMA = FR_PIM+T04*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/FR_ER/FR_IM ; + FR_PIT = (FR_IM*FR_PIMA+FR_IOIL*POIL/FR_ER*FR_E96+FR_ICOM*PCOM/FR_ER*FR_E96)/FR_IT ; + //log(FR_TFP_FE) = RES_FR_TFP_FE ; + FR_TFP_FE = exp(RES_FR_TFP_FE) ; + FR_GDP_FE = FR_TFP_FE*FR_K^FR_BETA*((1-FR_UNR_FE/100)*FR_LF)^(1-FR_BETA) ; + FR_LF = FR_POP*FR_PART/(1+FR_DEM3) ; + FR_CU = 100*FR_GDP/FR_GDP_FE ; + ( FR_NFA-(FR_NFA(-1))) = (FR_XT*FR_PXT-FR_IT*FR_PIT)*FR_ER+(US_R+(FR_PREM(-3)+FR_PREM(-2)+FR_PREM(-1))/3)*FR_NFA(-1)+RES_FR_NFA*US_INFL^TME*GREAL^TME ; + FR_TB = FR_XT*FR_PXT-FR_IT*FR_PIT ; + FR_CURBAL = ( FR_NFA-(FR_NFA(-1))) ; + 1+US_RS/100 = (1+FR_RS/100)*FR_ER(1)/FR_ER-FR_PREM+RES_FR_ER ; + FR_RCI = log(FR_PXM)-log(FR_PFM) ; + FR_FACT = (US_IM*US_E96*S0401+JA_IM*JA_E96*S0402+GR_IM*GR_E96*S0403+FR_IM*FR_E96*S0404+IT_IM*IT_E96*S0405+UK_IM*UK_E96*S0406+CA_IM*CA_E96*S0407+SI_IM*SI_E96*S0408+(HO_IM+DC_IM)*RW_E96*S0409)/FR_E96 ; + log(FR_PFM) = W0401*log(US_PXM*US_ER/US_E96)+W0402*log(JA_PXM*JA_ER/JA_E96)+W0403*log(GR_PXM*GR_ER/GR_E96)+W0404*log(FR_ER/FR_E96)+W0405*log(IT_PXM*IT_ER/IT_E96)+W0406*log(UK_PXM*UK_ER/UK_E96)+W0407*log(CA_PXM*CA_ER/CA_E96)+W0408*log(SI_PXM*SI_ER/SI_E96)+W0409*log(RW_PXM*RW_ER/RW_E96) ; + FR_NEER = exp(-V0401*log(US_ER/US_E96)-V0402*log(JA_ER/JA_E96)-V0403*log(GR_ER/GR_E96)+log(FR_ER/FR_E96)-V0405*log(IT_ER/IT_E96)-V0406*log(UK_ER/UK_E96)-V0407*log(CA_ER/CA_E96)-V0408*log(SI_ER/SI_E96)) ; + ( log(IT_CPI)-(log(IT_CPI(-1)))) = IT_CPI1*( log(IT_PIM)-(log(IT_PIM(-1))))+IT_CPI2*( log(IT_PGNP)-(log(IT_PGNP(-1))))+(1-IT_CPI1-IT_CPI2)*log(IT_CPI(-1)/IT_CPI(-2))+RES_IT_CPI ; + IT_UNR_A = IT_UNR_FE+IT_UNR_1*100*log(IT_GDP/IT_GDP_FE)+IT_UNR_2*(IT_UNR(-1)-IT_UNR_FE(-1))+RES_IT_UNR_A ; + IT_UNR = IT_UNR_A/*MAX(IT_UNR_A;0.1)*/ ; + ( log(IT_PGNPNO)-(log(IT_PGNPNO(-1)))) = IT_LAMBDA*(IT_DELTA_PI*( log(IT_PGNPNO(1))-(log(IT_PGNPNO)))+(1-IT_DELTA_PI)*( log(IT_PGNPNO(-1))-(log(IT_PGNPNO(-2)))))+(1-IT_LAMBDA)*( log(IT_PGNPNO(-1))-(log(IT_PGNPNO(-2))))+IT_GAMMA/100*(IT_NLIN-IT_UNR)/(IT_UNR-IT_PHI)+RES_IT_PGNP ; + IT_INFL = IT_MGROW/GREAL ; + IT_DLLF = log(IT_LF/IT_LF(-1)) ; + IT_DLGDP = log(IT_GDP/IT_GDP(-1)) ; + IT_C = IT_C_DI+IT_C_PI ; + IT_MPC = 1/IT_MPCINV ; + IT_MPCINV(1) = IT_MPCINV-1-((1-IT_SIGMA)*(IT_RSR+IT_PROB)-(RES_IT_MPC+IT_PROB))*IT_MPCINV/IT_SIGMA ; + IT_WH1(1) = IT_WH1*(1+IT_RSR+IT_ALPHA1+RES_IT_WH1+IT_PROB+exp(IT_DLLF_SS)-1)-(((1-IT_BETA)*IT_GDP*IT_PGNP-IT_TAXH)/IT_P+RES_IT_WK*IT_WK) ; + IT_WH2(1) = IT_WH2*(1+IT_RSR+IT_ALPHA2+RES_IT_WH2+IT_PROB+exp(IT_DLLF_SS)-1)-(((1-IT_BETA)*IT_GDP*IT_PGNP-IT_TAXH)/IT_P+RES_IT_WK*IT_WK) ; + IT_WH3(1) = IT_WH3*(1+IT_RSR+IT_ALPHA3+RES_IT_WH3+IT_PROB+exp(IT_DLLF_SS)-1)-(((1-IT_BETA)*IT_GDP*IT_PGNP-IT_TAXH)/IT_P+RES_IT_WK*IT_WK) ; + IT_C_DI = (IT_LAMBDA1*IT_BCHI1+IT_LAMBDA2*IT_BCHI2+IT_LAMBDA3*(1-IT_BCHI1-IT_BCHI2))*((1-IT_BETA)*IT_GDP*IT_PGNP-IT_TAXH)/IT_P+RES_IT_C_DI*GREAL^TME ; + IT_C_PI = IT_MPC*(IT_WK+(IT_M+IT_B+IT_NFA/IT_ER)/IT_P+IT_BCHI1*(1-IT_LAMBDA1)*IT_WH1+IT_BCHI2*(1-IT_LAMBDA2)*IT_WH2+(1-IT_BCHI1-IT_BCHI2)*(1-IT_LAMBDA3)*IT_WH3) ; + IT_WH = IT_BCHI1*IT_WH1+IT_BCHI2*IT_WH2+(1-IT_BCHI1-IT_BCHI2)*IT_WH3 ; + ( log(IT_COIL)-(log(IT_COIL(-1)))) = IT_COIL0+IT_COIL1*( log(IT_GDP)-(log(IT_GDP(-1))))+IT_COIL2*( log(POIL/IT_ER/IT_PGNP)-(log(POIL(-1)/IT_ER(-1)/IT_PGNP(-1))))+IT_COIL3*log(POIL(-1)/IT_ER(-1)/IT_PGNP(-1))+IT_COIL4*log(IT_GDP(-1)/IT_COIL(-1))+RES_IT_COIL ; + IT_INVEST/IT_K(-1)-(IT_DELTA_SS+GREAL_SS-1) = IT_K1*(IT_WK/IT_K(-1)-1)+IT_K2*(IT_WK(-1)/IT_K(-2)-1)+RES_IT_K ; + IT_MPK = IT_BETA*IT_GDP/IT_K ; + IT_Q = IT_CHI*(IT_INVEST/IT_K(-1)-(IT_DELTA_SS+GREAL_SS-1))+1 ; + IT_WK(1) = IT_WK*(1+IT_RSR+IT_K/IT_K(-1)-1+IT_DELTA+RES_IT_WK)-(IT_BETA*IT_GDP*IT_PGNP-IT_TAXK)/IT_P+(IT_CHI/2*((IT_Q-1)/IT_CHI)^2+IT_INVEST/IT_K(-1)*(IT_Q-1))*IT_K(-1)*IT_PGNP/IT_P ; + IT_INVEST = ( IT_K-(IT_K(-1)))+IT_DELTA*IT_K(-1) ; + ( log(IT_XM)-(log(IT_XM(-1)))) = IT_XM0+( log(IT_FACT)-(log(IT_FACT(-1))))+IT_XM1*( IT_RCI-(IT_RCI(-1)))+IT_XM2*(IT_XM3*IT_RCI(-1)+log(IT_FACT(-1))-log(IT_XM(-1)))+RES_IT_XM ; + IT_XMA = IT_XM+T05*(WTRADER-TRDER*GREAL^TME)/IT_E96 ; + IT_XT = IT_XMA+IT_XOIL ; + IT_ACT = IT_C_MPROP*IT_C+IT_INVEST_MPROP*IT_INVEST+IT_G_MPROP*IT_G+IT_XT_MPROP*IT_XT ; + ( log(IT_IM)-(log(IT_IM(-1)))) = IT_IM0+( log(IT_ACT)-(log(IT_ACT(-1))))+IT_IM1*( log(IT_PIMA/IT_PGNPNO)-(log(IT_PIMA(-1)/IT_PGNPNO(-1))))+IT_IM2*(IT_IM3*log(IT_PIMA(-1)/IT_PGNPNO(-1))+log(IT_ACT(-1))-log(IT_IM(-1)))+RES_IT_IM ; + IT_IOIL = IT_COIL+IT_XOIL-IT_PRODOIL+RES_IT_IOIL*GREAL^TME ; + ( log(IT_ICOM)-(log(IT_ICOM(-1)))) = IT_IC0+IT_IC2*( log(PCOM/IT_ER/IT_PGNP)-(log(PCOM(-1)/IT_ER(-1)/IT_PGNP(-1))))+IT_IC1*( log(IT_GDP)-(log(IT_GDP(-1))))+IT_IC3*log(PCOM(-1)/IT_ER(-1)/IT_PGNP(-1))+IT_IC4*log(IT_GDP(-1))+IT_IC5*log(IT_ICOM(-1))+RES_IT_ICOM-(IT_IC4+IT_IC5)*log(GREAL^TME) ; + IT_IT = IT_IM+IT_IOIL+IT_ICOM ; + IT_A = IT_C+IT_INVEST+IT_G ; + IT_GDP = IT_A+IT_XT-IT_IT ; + IT_GNP = IT_GDP+(US_R+(IT_PREM(-3)+IT_PREM(-2)+IT_PREM(-1))/3)*IT_NFA(-1)/IT_ER/IT_PGNP+RES_IT_GNP*GREAL^TME ; + IT_W = IT_WH+IT_WK+(IT_M+IT_B+IT_NFA/IT_ER)/IT_P ; + IT_YD = (IT_GDP*IT_PGNP-IT_TAX)/IT_P-IT_DELTA*IT_K(-1) ; + IT_GE = IT_P*IT_G+IT_R*IT_B(-1)+IT_GEXOG ; + IT_TAX = IT_TRATE*IT_PGNP*IT_GNP ; + IT_TAXK = IT_TAXK_ALPHA*IT_TAXK_SHAR*IT_TAX+(1-IT_TAXK_ALPHA)*IT_TRATEK*IT_BETA*IT_GDP*IT_PGNP ; + IT_TAXH = IT_TAX-IT_TAXK ; + IT_TRATE = IT_TRATE_EXOG*(1-IT_TRATE_ALPHA)+IT_TRATE_ALPHA*((IT_TRATE(-2)/5+IT_TRATE(-1)/5+IT_TRATE(0)/5+IT_TRATE(1)/5+IT_TRATE(2)/5)+TAU1*(IT_B(1)/(IT_GNP(1)*IT_PGNP(1))-IT_BT_GDP_RAT(1))+RES_IT_TRATE) ; + IT_BT = IT_BT_GDP_RAT*IT_GNP*IT_PGNP ; + ( IT_B-(IT_B(-1)))+( IT_M-(IT_M(-1))) = IT_R*IT_B(-1)+IT_P*IT_G-IT_TAX ; + IT_GDEF = ( IT_B+IT_M-(IT_B(-1)+IT_M(-1))) ; + log(IT_M/IT_P) = IT_M0+(1-IT_M4)*log(IT_A)+IT_M2*IT_RS+IT_M4*log(IT_M(-1)/IT_P(-1))+RES_IT_M ; + IT_RS = (1-IT_X_RS1)*IT_RS_EXOG+IT_X_RS1*(IT_RS(-1)+IT_RS1*log(IT_MT/IT_M)/IT_M2+IT_RS2*log(GR_ER/IT_ER/IT_PAR)+IT_RS3*log(US_ER/IT_ER/IT_PARUS)+IT_RS4*log(IT_NEER/IT_NEER_PAR)+IT_RS5*(IT_UNR_FE-IT_UNR-IT_UNR_GAP_EXOG)+IT_RS6*100*(log(IT_GDP)-log(IT_GDP_FE)-IT_GDP_GAP_EXOG)+IT_X_RS2*(-IT_RS(-1)+IT_RSCON+100*( log(IT_P(1))-(log(IT_P))))+100*(IT_RTARC1*(( log(IT_P)-(log(IT_P(-1))))-( log(IT_P_TAR)-(log(IT_P_TAR(-1))))-IT_P_GAP_EXOG)+IT_RTARC2*(( log(IT_PGNP)-(log(IT_PGNP(-1))))-( log(IT_PGNP_TAR)-(log(IT_PGNP_TAR(-1))))-IT_PGNP_GAP_EXOG)+IT_RTARC3*(( log(IT_CPI)-(log(IT_CPI(-1))))-( log(IT_CPI_TAR)-(log(IT_CPI_TAR(-1))))-IT_CPI_GAP_EXOG)+IT_RTARC4*(( log(IT_PGNPNO)-(log(IT_PGNPNO(-1))))-( log(IT_PGNPNO_TAR)-(log(IT_PGNPNO_TAR(-1))))-IT_PGNPNO_GAP_EXOG)+IT_RTARF1*(( log(IT_P(1))-(log(IT_P)))-( log(IT_P_TAR(1))-(log(IT_P_TAR)))-IT_P_GAP_EXOG(1))+IT_RTARF2*(( log(IT_PGNP(1))-(log(IT_PGNP)))-( log(IT_PGNP_TAR(1))-(log(IT_PGNP_TAR)))-IT_PGNP_GAP_EXOG(1))+IT_RTARF3*(( log(IT_CPI(1))-(log(IT_CPI)))-( log(IT_CPI_TAR(1))-(log(IT_CPI_TAR)))-IT_CPI_GAP_EXOG(1))+IT_RTARF4*(( log(IT_PGNPNO(1))-(log(IT_PGNPNO)))-( log(IT_PGNPNO_TAR(1))-(log(IT_PGNPNO_TAR)))-IT_PGNPNO_GAP_EXOG(1)))+IT_RSCON2+RES_IT_RS)+IT_RS1PERM*0 ; + IT_RL/100 = ((1+IT_RS/100)*(1+IT_RS(1)/100)*(1+IT_RS(2)/100)*(1+IT_RS(3)/100)*(1+IT_RS(4)/100)*(1+IT_RS(5)/100)*(1+IT_RS(6)/100)*(1+IT_RS(7)/100)*(1+IT_RS(8)/100)*(1+IT_RS(9)/100))^0.1*(1+IT_TPREM)-1+RES_IT_RL ; + IT_R = 0.5*IT_RS(-1)/100+0.5*(IT_RL(-3)/100+IT_RL(-2)/100+IT_RL(-1)/100)/3 ; + IT_RLR = (1+IT_RL/100)/(IT_P(10)/IT_P)^0.1-1 ; + IT_RSR = (1+IT_RS/100)/(IT_P(1)/IT_P)-1 ; + IT_PGNPNO = (IT_GDP*IT_PGNP-IT_PRODOIL*POIL/IT_ER*IT_E96)/(IT_GDP-IT_PRODOIL) ; + IT_PGNP = (IT_P*IT_A+IT_XT*IT_PXT-IT_IT*IT_PIT)/IT_GDP+RES_IT_P*IT_PGNP ; + ( log(IT_PXM)-(log(IT_PXM(-1)))) = IT_PXM0+IT_PXM1*( log(IT_PGNPNO)-(log(IT_PGNPNO(-1))))+(1-IT_PXM1)*( log(IT_PFM)-(log(IT_PFM(-1))))+IT_PXM2*log(IT_PGNPNO(-1)/IT_PXM(-1))+RES_IT_PXM ; + IT_PXT = (IT_XMA*IT_PXM+POIL/IT_ER*IT_E96*IT_XOIL)/IT_XT ; + IT_PIM = (S0105*US_PXM+S0205*JA_PXM*JA_ER/JA_E96+S0305*GR_PXM*GR_ER/GR_E96+S0405*FR_PXM*FR_ER/FR_E96+S0505*IT_PXM*IT_ER/IT_E96+S0605*UK_PXM*UK_ER/UK_E96+S0705*CA_PXM*CA_ER/CA_E96+S0805*SI_PXM*SI_ER/SI_E96+S0905*RW_PXM*RW_ER/RW_E96)/(IT_ER/IT_E96)*(1+RES_IT_PIM) ; + IT_PIMA = IT_PIM+T05*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/IT_ER/IT_IM ; + IT_PIT = (IT_IM*IT_PIMA+IT_IOIL*POIL/IT_ER*IT_E96+IT_ICOM*PCOM/IT_ER*IT_E96)/IT_IT ; + //log(IT_TFP_FE) = RES_IT_TFP_FE ; + IT_TFP_FE = exp(RES_IT_TFP_FE); + IT_GDP_FE = IT_TFP_FE*IT_K^IT_BETA*((1-IT_UNR_FE/100)*IT_LF)^(1-IT_BETA) ; + IT_LF = IT_POP*IT_PART/(1+IT_DEM3) ; + IT_CU = 100*IT_GDP/IT_GDP_FE ; + ( IT_NFA-(IT_NFA(-1))) = (IT_XT*IT_PXT-IT_IT*IT_PIT)*IT_ER+(US_R+(IT_PREM(-3)+IT_PREM(-2)+IT_PREM(-1))/3)*IT_NFA(-1)+RES_IT_NFA*US_INFL^TME*GREAL^TME ; + IT_TB = IT_XT*IT_PXT-IT_IT*IT_PIT ; + IT_CURBAL = ( IT_NFA-(IT_NFA(-1))) ; + 1+US_RS/100 = (1+IT_RS/100)*IT_ER(1)/IT_ER-IT_PREM+RES_IT_ER ; + IT_RCI = log(IT_PXM)-log(IT_PFM) ; + IT_FACT = (US_IM*US_E96*S0501+JA_IM*JA_E96*S0502+GR_IM*GR_E96*S0503+FR_IM*FR_E96*S0504+IT_IM*IT_E96*S0505+UK_IM*UK_E96*S0506+CA_IM*CA_E96*S0507+SI_IM*SI_E96*S0508+(HO_IM+DC_IM)*RW_E96*S0509)/IT_E96 ; + log(IT_PFM) = W0501*log(US_PXM*US_ER/US_E96)+W0502*log(JA_PXM*JA_ER/JA_E96)+W0503*log(GR_PXM*GR_ER/GR_E96)+W0504*log(FR_PXM*FR_ER/FR_E96)+W0505*log(IT_ER/IT_E96)+W0506*log(UK_PXM*UK_ER/UK_E96)+W0507*log(CA_PXM*CA_ER/CA_E96)+W0508*log(SI_PXM*SI_ER/SI_E96)+W0509*log(RW_PXM*RW_ER/RW_E96) ; + IT_NEER = exp(-V0501*log(US_ER/US_E96)-V0502*log(JA_ER/JA_E96)-V0503*log(GR_ER/GR_E96)-V0504*log(FR_ER/FR_E96)+log(IT_ER/IT_E96)-V0506*log(UK_ER/UK_E96)-V0507*log(CA_ER/CA_E96)-V0508*log(SI_ER/SI_E96)) ; + ( log(UK_CPI)-(log(UK_CPI(-1)))) = UK_CPI1*( log(UK_PIM)-(log(UK_PIM(-1))))+UK_CPI2*( log(UK_PGNP)-(log(UK_PGNP(-1))))+(1-UK_CPI1-UK_CPI2)*log(UK_CPI(-1)/UK_CPI(-2))+RES_UK_CPI ; + UK_UNR_A = UK_UNR_FE+UK_UNR_1*100*log(UK_GDP/UK_GDP_FE)+UK_UNR_2*(UK_UNR(-1)-UK_UNR_FE(-1))+RES_UK_UNR_A ; + UK_UNR = UK_UNR_A/*MAX(UK_UNR_A;0.1)*/ ; + ( log(UK_PGNPNO)-(log(UK_PGNPNO(-1)))) = UK_LAMBDA*(UK_DELTA_PI*( log(UK_PGNPNO(1))-(log(UK_PGNPNO)))+(1-UK_DELTA_PI)*( log(UK_PGNPNO(-1))-(log(UK_PGNPNO(-2)))))+(1-UK_LAMBDA)*( log(UK_PGNPNO(-1))-(log(UK_PGNPNO(-2))))+UK_GAMMA/100*(UK_NLIN-UK_UNR)/(UK_UNR-UK_PHI)+RES_UK_PGNP ; + UK_INFL = UK_MGROW/GREAL ; + UK_DLLF = log(UK_LF/UK_LF(-1)) ; + UK_DLGDP = log(UK_GDP/UK_GDP(-1)) ; + UK_C = UK_C_DI+UK_C_PI ; + UK_MPC = 1/UK_MPCINV ; + UK_MPCINV(1) = UK_MPCINV-1-((1-UK_SIGMA)*(UK_RSR+UK_PROB)-(RES_UK_MPC+UK_PROB))*UK_MPCINV/UK_SIGMA ; + UK_WH1(1) = UK_WH1*(1+UK_RSR+UK_ALPHA1+RES_UK_WH1+UK_PROB+exp(UK_DLLF_SS)-1)-(((1-UK_BETA)*UK_GDP*UK_PGNP-UK_TAXH)/UK_P+RES_UK_WK*UK_WK) ; + UK_WH2(1) = UK_WH2*(1+UK_RSR+UK_ALPHA2+RES_UK_WH2+UK_PROB+exp(UK_DLLF_SS)-1)-(((1-UK_BETA)*UK_GDP*UK_PGNP-UK_TAXH)/UK_P+RES_UK_WK*UK_WK) ; + UK_WH3(1) = UK_WH3*(1+UK_RSR+UK_ALPHA3+RES_UK_WH3+UK_PROB+exp(UK_DLLF_SS)-1)-(((1-UK_BETA)*UK_GDP*UK_PGNP-UK_TAXH)/UK_P+RES_UK_WK*UK_WK) ; + UK_C_DI = (UK_LAMBDA1*UK_BCHI1+UK_LAMBDA2*UK_BCHI2+UK_LAMBDA3*(1-UK_BCHI1-UK_BCHI2))*((1-UK_BETA)*UK_GDP*UK_PGNP-UK_TAXH)/UK_P+RES_UK_C_DI*GREAL^TME ; + UK_C_PI = UK_MPC*(UK_WK+(UK_M+UK_B+UK_NFA/UK_ER)/UK_P+UK_BCHI1*(1-UK_LAMBDA1)*UK_WH1+UK_BCHI2*(1-UK_LAMBDA2)*UK_WH2+(1-UK_BCHI1-UK_BCHI2)*(1-UK_LAMBDA3)*UK_WH3) ; + UK_WH = UK_BCHI1*UK_WH1+UK_BCHI2*UK_WH2+(1-UK_BCHI1-UK_BCHI2)*UK_WH3 ; + ( log(UK_COIL)-(log(UK_COIL(-1)))) = UK_COIL0+UK_COIL1*( log(UK_GDP)-(log(UK_GDP(-1))))+UK_COIL2*( log(POIL/UK_ER/UK_PGNP)-(log(POIL(-1)/UK_ER(-1)/UK_PGNP(-1))))+UK_COIL3*log(POIL(-1)/UK_ER(-1)/UK_PGNP(-1))+UK_COIL4*log(UK_GDP(-1)/UK_COIL(-1))+RES_UK_COIL ; + UK_INVEST/UK_K(-1)-(UK_DELTA_SS+GREAL_SS-1) = UK_K1*(UK_WK/UK_K(-1)-1)+UK_K2*(UK_WK(-1)/UK_K(-2)-1)+RES_UK_K ; + UK_MPK = UK_BETA*UK_GDP/UK_K ; + UK_Q = UK_CHI*(UK_INVEST/UK_K(-1)-(UK_DELTA_SS+GREAL_SS-1))+1 ; + UK_WK(1) = UK_WK*(1+UK_RSR+UK_K/UK_K(-1)-1+UK_DELTA+RES_UK_WK)-(UK_BETA*UK_GDP*UK_PGNP-UK_TAXK)/UK_P+(UK_CHI/2*((UK_Q-1)/UK_CHI)^2+UK_INVEST/UK_K(-1)*(UK_Q-1))*UK_K(-1)*UK_PGNP/UK_P ; + UK_INVEST = ( UK_K-(UK_K(-1)))+UK_DELTA*UK_K(-1) ; + ( log(UK_XM)-(log(UK_XM(-1)))) = UK_XM0+( log(UK_FACT)-(log(UK_FACT(-1))))+UK_XM1*( UK_RCI-(UK_RCI(-1)))+UK_XM2*(UK_XM3*UK_RCI(-1)+log(UK_FACT(-1))-log(UK_XM(-1)))+RES_UK_XM ; + UK_XMA = UK_XM+T06*(WTRADER-TRDER*GREAL^TME)/UK_E96 ; + UK_XT = UK_XMA+UK_XOIL ; + UK_ACT = UK_C_MPROP*UK_C+UK_INVEST_MPROP*UK_INVEST+UK_G_MPROP*UK_G+UK_XT_MPROP*UK_XT ; + ( log(UK_IM)-(log(UK_IM(-1)))) = UK_IM0+( log(UK_ACT)-(log(UK_ACT(-1))))+UK_IM1*( log(UK_PIMA/UK_PGNPNO)-(log(UK_PIMA(-1)/UK_PGNPNO(-1))))+UK_IM2*(UK_IM3*log(UK_PIMA(-1)/UK_PGNPNO(-1))+log(UK_ACT(-1))-log(UK_IM(-1)))+RES_UK_IM ; + UK_IOIL = UK_COIL+UK_XOIL-UK_PRODOIL+RES_UK_IOIL*GREAL^TME ; + ( log(UK_ICOM)-(log(UK_ICOM(-1)))) = UK_IC0+UK_IC2*( log(PCOM/UK_ER/UK_PGNP)-(log(PCOM(-1)/UK_ER(-1)/UK_PGNP(-1))))+UK_IC1*( log(UK_GDP)-(log(UK_GDP(-1))))+UK_IC3*log(PCOM(-1)/UK_ER(-1)/UK_PGNP(-1))+UK_IC4*log(UK_GDP(-1))+UK_IC5*log(UK_ICOM(-1))+RES_UK_ICOM-(UK_IC4+UK_IC5)*log(GREAL^TME) ; + UK_IT = UK_IM+UK_IOIL+UK_ICOM ; + UK_A = UK_C+UK_INVEST+UK_G ; + UK_GDP = UK_A+UK_XT-UK_IT ; + UK_GNP = UK_GDP+(US_R+(UK_PREM(-3)+UK_PREM(-2)+UK_PREM(-1))/3)*UK_NFA(-1)/UK_ER/UK_PGNP+RES_UK_GNP*GREAL^TME ; + UK_W = UK_WH+UK_WK+(UK_M+UK_B+UK_NFA/UK_ER)/UK_P ; + UK_YD = (UK_GDP*UK_PGNP-UK_TAX)/UK_P-UK_DELTA*UK_K(-1) ; + UK_GE = UK_P*UK_G+UK_R*UK_B(-1)+UK_GEXOG ; + UK_TAX = UK_TRATE*UK_PGNP*UK_GNP ; + UK_TAXK = UK_TAXK_ALPHA*UK_TAXK_SHAR*UK_TAX+(1-UK_TAXK_ALPHA)*UK_TRATEK*UK_BETA*UK_GDP*UK_PGNP ; + UK_TAXH = UK_TAX-UK_TAXK ; + UK_TRATE = UK_TRATE_EXOG*(1-UK_TRATE_ALPHA)+UK_TRATE_ALPHA*((UK_TRATE(-2)/5+UK_TRATE(-1)/5+UK_TRATE(0)/5+UK_TRATE(1)/5+UK_TRATE(2)/5)+TAU1*(UK_B(1)/(UK_GNP(1)*UK_PGNP(1))-UK_BT_GDP_RAT(1))+RES_UK_TRATE) ; + UK_BT = UK_BT_GDP_RAT*UK_GNP*UK_PGNP ; + ( UK_B-(UK_B(-1)))+( UK_M-(UK_M(-1))) = UK_R*UK_B(-1)+UK_P*UK_G-UK_TAX ; + UK_GDEF = ( UK_B+UK_M-(UK_B(-1)+UK_M(-1))) ; + log(UK_M/UK_P) = UK_M0+(1-UK_M4)*log(UK_A)+UK_M2*UK_RS+UK_M4*log(UK_M(-1)/UK_P(-1))+RES_UK_M ; + UK_RS = (1-UK_X_RS1)*UK_RS_EXOG+UK_X_RS1*(UK_RS(-1)+UK_RS1*log(UK_MT/UK_M)/UK_M2+UK_RS2*log(GR_ER/UK_ER/UK_PAR)+UK_RS3*log(US_ER/UK_ER/UK_PARUS)+UK_RS4*log(UK_NEER/UK_NEER_PAR)+UK_RS5*(UK_UNR_FE-UK_UNR-UK_UNR_GAP_EXOG)+UK_RS6*100*(log(UK_GDP)-log(UK_GDP_FE)-UK_GDP_GAP_EXOG)+UK_X_RS2*(-UK_RS(-1)+UK_RSCON+100*( log(UK_P(1))-(log(UK_P))))+100*(UK_RTARC1*(( log(UK_P)-(log(UK_P(-1))))-( log(UK_P_TAR)-(log(UK_P_TAR(-1))))-UK_P_GAP_EXOG)+UK_RTARC2*(( log(UK_PGNP)-(log(UK_PGNP(-1))))-( log(UK_PGNP_TAR)-(log(UK_PGNP_TAR(-1))))-UK_PGNP_GAP_EXOG)+UK_RTARC3*(( log(UK_CPI)-(log(UK_CPI(-1))))-( log(UK_CPI_TAR)-(log(UK_CPI_TAR(-1))))-UK_CPI_GAP_EXOG)+UK_RTARC4*(( log(UK_PGNPNO)-(log(UK_PGNPNO(-1))))-( log(UK_PGNPNO_TAR)-(log(UK_PGNPNO_TAR(-1))))-UK_PGNPNO_GAP_EXOG)+UK_RTARF1*(( log(UK_P(1))-(log(UK_P)))-( log(UK_P_TAR(1))-(log(UK_P_TAR)))-UK_P_GAP_EXOG(1))+UK_RTARF2*(( log(UK_PGNP(1))-(log(UK_PGNP)))-( log(UK_PGNP_TAR(1))-(log(UK_PGNP_TAR)))-UK_PGNP_GAP_EXOG(1))+UK_RTARF3*(( log(UK_CPI(1))-(log(UK_CPI)))-( log(UK_CPI_TAR(1))-(log(UK_CPI_TAR)))-UK_CPI_GAP_EXOG(1))+UK_RTARF4*(( log(UK_PGNPNO(1))-(log(UK_PGNPNO)))-( log(UK_PGNPNO_TAR(1))-(log(UK_PGNPNO_TAR)))-UK_PGNPNO_GAP_EXOG(1)))+UK_RSCON2+RES_UK_RS)+UK_RS1PERM*0 ; + UK_RL/100 = ((1+UK_RS/100)*(1+UK_RS(1)/100)*(1+UK_RS(2)/100)*(1+UK_RS(3)/100)*(1+UK_RS(4)/100)*(1+UK_RS(5)/100)*(1+UK_RS(6)/100)*(1+UK_RS(7)/100)*(1+UK_RS(8)/100)*(1+UK_RS(9)/100))^0.1*(1+UK_TPREM)-1+RES_UK_RL ; + UK_R = 0.5*UK_RS(-1)/100+0.5*(UK_RL(-3)/100+UK_RL(-2)/100+UK_RL(-1)/100)/3 ; + UK_RLR = (1+UK_RL/100)/(UK_P(10)/UK_P)^0.1-1 ; + UK_RSR = (1+UK_RS/100)/(UK_P(1)/UK_P)-1 ; + UK_PGNPNO = (UK_GDP*UK_PGNP-UK_PRODOIL*POIL/UK_ER*UK_E96)/(UK_GDP-UK_PRODOIL) ; + UK_PGNP = (UK_P*UK_A+UK_XT*UK_PXT-UK_IT*UK_PIT)/UK_GDP+RES_UK_P*UK_PGNP ; + ( log(UK_PXM)-(log(UK_PXM(-1)))) = UK_PXM0+UK_PXM1*( log(UK_PGNPNO)-(log(UK_PGNPNO(-1))))+(1-UK_PXM1)*( log(UK_PFM)-(log(UK_PFM(-1))))+UK_PXM2*log(UK_PGNPNO(-1)/UK_PXM(-1))+RES_UK_PXM ; + UK_PXT = (UK_XMA*UK_PXM+POIL/UK_ER*UK_E96*UK_XOIL)/UK_XT ; + UK_PIM = (S0106*US_PXM+S0206*JA_PXM*JA_ER/JA_E96+S0306*GR_PXM*GR_ER/GR_E96+S0406*FR_PXM*FR_ER/FR_E96+S0506*IT_PXM*IT_ER/IT_E96+S0606*UK_PXM*UK_ER/UK_E96+S0706*CA_PXM*CA_ER/CA_E96+S0806*SI_PXM*SI_ER/SI_E96+S0906*RW_PXM*RW_ER/RW_E96)/(UK_ER/UK_E96)*(1+RES_UK_PIM) ; + UK_PIMA = UK_PIM+T06*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/UK_ER/UK_IM ; + UK_PIT = (UK_IM*UK_PIMA+UK_IOIL*POIL/UK_ER*UK_E96+UK_ICOM*PCOM/UK_ER*UK_E96)/UK_IT ; + //log(UK_TFP_FE) = RES_UK_TFP_FE ; + UK_TFP_FE = exp(RES_UK_TFP_FE); + UK_GDP_FE = UK_TFP_FE*UK_K^UK_BETA*((1-UK_UNR_FE/100)*UK_LF)^(1-UK_BETA) ; + UK_LF = UK_POP*UK_PART/(1+UK_DEM3) ; + UK_CU = 100*UK_GDP/UK_GDP_FE ; + ( UK_NFA-(UK_NFA(-1))) = (UK_XT*UK_PXT-UK_IT*UK_PIT)*UK_ER+(US_R+(UK_PREM(-3)+UK_PREM(-2)+UK_PREM(-1))/3)*UK_NFA(-1)+RES_UK_NFA*US_INFL^TME*GREAL^TME ; + UK_TB = UK_XT*UK_PXT-UK_IT*UK_PIT ; + UK_CURBAL = ( UK_NFA-(UK_NFA(-1))) ; + 1+US_RS/100 = (1+UK_RS/100)*UK_ER(1)/UK_ER-UK_PREM+RES_UK_ER ; + UK_RCI = log(UK_PXM)-log(UK_PFM) ; + UK_FACT = (US_IM*US_E96*S0601+JA_IM*JA_E96*S0602+GR_IM*GR_E96*S0603+FR_IM*FR_E96*S0604+IT_IM*IT_E96*S0605+UK_IM*UK_E96*S0606+CA_IM*CA_E96*S0607+SI_IM*SI_E96*S0608+(HO_IM+DC_IM)*RW_E96*S0609)/UK_E96 ; + log(UK_PFM) = W0601*log(US_PXM*US_ER/US_E96)+W0602*log(JA_PXM*JA_ER/JA_E96)+W0603*log(GR_PXM*GR_ER/GR_E96)+W0604*log(FR_PXM*FR_ER/FR_E96)+W0605*log(IT_PXM*IT_ER/IT_E96)+W0606*log(UK_ER/UK_E96)+W0607*log(CA_PXM*CA_ER/CA_E96)+W0608*log(SI_PXM*SI_ER/SI_E96)+W0609*log(RW_PXM*RW_ER/RW_E96) ; + UK_NEER = exp(-V0601*log(US_ER/US_E96)-V0602*log(JA_ER/JA_E96)-V0603*log(GR_ER/GR_E96)-V0604*log(FR_ER/FR_E96)-V0605*log(IT_ER/IT_E96)+log(UK_ER/UK_E96)-V0607*log(CA_ER/CA_E96)-V0608*log(SI_ER/SI_E96)) ; + ( log(CA_CPI)-(log(CA_CPI(-1)))) = CA_CPI1*( log(CA_PIM)-(log(CA_PIM(-1))))+CA_CPI2*( log(CA_PGNP)-(log(CA_PGNP(-1))))+(1-CA_CPI1-CA_CPI2)*log(CA_CPI(-1)/CA_CPI(-2))+RES_CA_CPI ; + CA_UNR_A = CA_UNR_FE+CA_UNR_1*100*log(CA_GDP/CA_GDP_FE)+CA_UNR_2*(CA_UNR(-1)-CA_UNR_FE(-1))+RES_CA_UNR_A ; + CA_UNR = CA_UNR_A/*MAX(CA_UNR_A;0.1)*/ ; + ( log(CA_PGNPNO)-(log(CA_PGNPNO(-1)))) = CA_LAMBDA*(CA_DELTA_PI*( log(CA_PGNPNO(1))-(log(CA_PGNPNO)))+(1-CA_DELTA_PI)*( log(CA_PGNPNO(-1))-(log(CA_PGNPNO(-2)))))+(1-CA_LAMBDA)*( log(CA_PGNPNO(-1))-(log(CA_PGNPNO(-2))))+CA_GAMMA/100*(CA_NLIN-CA_UNR)/(CA_UNR-CA_PHI)+RES_CA_PGNP ; + CA_INFL = CA_MGROW/GREAL ; + CA_DLLF = log(CA_LF/CA_LF(-1)) ; + CA_DLGDP = log(CA_GDP/CA_GDP(-1)) ; + CA_C = CA_C_DI+CA_C_PI ; + CA_MPC = 1/CA_MPCINV ; + CA_MPCINV(1) = CA_MPCINV-1-((1-CA_SIGMA)*(CA_RSR+CA_PROB)-(RES_CA_MPC+CA_PROB))*CA_MPCINV/CA_SIGMA ; + CA_WH1(1) = CA_WH1*(1+CA_RSR+CA_ALPHA1+RES_CA_WH1+CA_PROB+exp(CA_DLLF_SS)-1)-(((1-CA_BETA)*CA_GDP*CA_PGNP-CA_TAXH)/CA_P+RES_CA_WK*CA_WK) ; + CA_WH2(1) = CA_WH2*(1+CA_RSR+CA_ALPHA2+RES_CA_WH2+CA_PROB+exp(CA_DLLF_SS)-1)-(((1-CA_BETA)*CA_GDP*CA_PGNP-CA_TAXH)/CA_P+RES_CA_WK*CA_WK) ; + CA_WH3(1) = CA_WH3*(1+CA_RSR+CA_ALPHA3+RES_CA_WH3+CA_PROB+exp(CA_DLLF_SS)-1)-(((1-CA_BETA)*CA_GDP*CA_PGNP-CA_TAXH)/CA_P+RES_CA_WK*CA_WK) ; + CA_C_DI = (CA_LAMBDA1*CA_BCHI1+CA_LAMBDA2*CA_BCHI2+CA_LAMBDA3*(1-CA_BCHI1-CA_BCHI2))*((1-CA_BETA)*CA_GDP*CA_PGNP-CA_TAXH)/CA_P+RES_CA_C_DI*GREAL^TME ; + CA_C_PI = CA_MPC*(CA_WK+(CA_M+CA_B+CA_NFA/CA_ER)/CA_P+CA_BCHI1*(1-CA_LAMBDA1)*CA_WH1+CA_BCHI2*(1-CA_LAMBDA2)*CA_WH2+(1-CA_BCHI1-CA_BCHI2)*(1-CA_LAMBDA3)*CA_WH3) ; + CA_WH = CA_BCHI1*CA_WH1+CA_BCHI2*CA_WH2+(1-CA_BCHI1-CA_BCHI2)*CA_WH3 ; + ( log(CA_COIL)-(log(CA_COIL(-1)))) = CA_COIL0+CA_COIL1*( log(CA_GDP)-(log(CA_GDP(-1))))+CA_COIL2*( log(POIL/CA_ER/CA_PGNP)-(log(POIL(-1)/CA_ER(-1)/CA_PGNP(-1))))+CA_COIL3*log(POIL(-1)/CA_ER(-1)/CA_PGNP(-1))+CA_COIL4*log(CA_GDP(-1)/CA_COIL(-1))+RES_CA_COIL ; + CA_INVEST/CA_K(-1)-(CA_DELTA_SS+GREAL_SS-1) = CA_K1*(CA_WK/CA_K(-1)-1)+CA_K2*(CA_WK(-1)/CA_K(-2)-1)+RES_CA_K ; + CA_MPK = CA_BETA*CA_GDP/CA_K ; + CA_Q = CA_CHI*(CA_INVEST/CA_K(-1)-(CA_DELTA_SS+GREAL_SS-1))+1 ; + CA_WK(1) = CA_WK*(1+CA_RSR+CA_K/CA_K(-1)-1+CA_DELTA+RES_CA_WK)-(CA_BETA*CA_GDP*CA_PGNP-CA_TAXK)/CA_P+(CA_CHI/2*((CA_Q-1)/CA_CHI)^2+CA_INVEST/CA_K(-1)*(CA_Q-1))*CA_K(-1)*CA_PGNP/CA_P ; + CA_INVEST = ( CA_K-(CA_K(-1)))+CA_DELTA*CA_K(-1) ; + ( log(CA_XM)-(log(CA_XM(-1)))) = CA_XM0+( log(CA_FACT)-(log(CA_FACT(-1))))+CA_XM1*( CA_RCI-(CA_RCI(-1)))+CA_XM2*(CA_XM3*CA_RCI(-1)+log(CA_FACT(-1))-log(CA_XM(-1)))+RES_CA_XM ; + CA_XMA = CA_XM+T07*(WTRADER-TRDER*GREAL^TME)/CA_E96 ; + CA_XT = CA_XMA+CA_XOIL ; + CA_ACT = CA_C_MPROP*CA_C+CA_INVEST_MPROP*CA_INVEST+CA_G_MPROP*CA_G+CA_XT_MPROP*CA_XT ; + ( log(CA_IM)-(log(CA_IM(-1)))) = CA_IM0+( log(CA_ACT)-(log(CA_ACT(-1))))+CA_IM1*( log(CA_PIMA/CA_PGNPNO)-(log(CA_PIMA(-1)/CA_PGNPNO(-1))))+CA_IM2*(CA_IM3*log(CA_PIMA(-1)/CA_PGNPNO(-1))+log(CA_ACT(-1))-log(CA_IM(-1)))+RES_CA_IM ; + CA_IOIL = CA_COIL+CA_XOIL-CA_PRODOIL+RES_CA_IOIL*GREAL^TME ; + ( log(CA_ICOM)-(log(CA_ICOM(-1)))) = CA_IC0+CA_IC2*( log(PCOM/CA_ER/CA_PGNP)-(log(PCOM(-1)/CA_ER(-1)/CA_PGNP(-1))))+CA_IC1*( log(CA_GDP)-(log(CA_GDP(-1))))+CA_IC3*log(PCOM(-1)/CA_ER(-1)/CA_PGNP(-1))+CA_IC4*log(CA_GDP(-1))+CA_IC5*log(CA_ICOM(-1))+RES_CA_ICOM-(CA_IC4+CA_IC5)*log(GREAL^TME) ; + CA_IT = CA_IM+CA_IOIL+CA_ICOM ; + CA_A = CA_C+CA_INVEST+CA_G ; + CA_GDP = CA_A+CA_XT-CA_IT ; + CA_GNP = CA_GDP+(US_R+(CA_PREM(-3)+CA_PREM(-2)+CA_PREM(-1))/3)*CA_NFA(-1)/CA_ER/CA_PGNP+RES_CA_GNP*GREAL^TME ; + CA_W = CA_WH+CA_WK+(CA_M+CA_B+CA_NFA/CA_ER)/CA_P ; + CA_YD = (CA_GDP*CA_PGNP-CA_TAX)/CA_P-CA_DELTA*CA_K(-1) ; + CA_GE = CA_P*CA_G+CA_R*CA_B(-1)+CA_GEXOG ; + CA_TAX = CA_TRATE*CA_PGNP*CA_GNP ; + CA_TAXK = CA_TAXK_ALPHA*CA_TAXK_SHAR*CA_TAX+(1-CA_TAXK_ALPHA)*CA_TRATEK*CA_BETA*CA_GDP*CA_PGNP ; + CA_TAXH = CA_TAX-CA_TAXK ; + CA_TRATE = CA_TRATE_EXOG*(1-CA_TRATE_ALPHA)+CA_TRATE_ALPHA*((CA_TRATE(-2)/5+CA_TRATE(-1)/5+CA_TRATE(0)/5+CA_TRATE(1)/5+CA_TRATE(2)/5)+TAU1*(CA_B(1)/(CA_GNP(1)*CA_PGNP(1))-CA_BT_GDP_RAT(1))+RES_CA_TRATE) ; + CA_BT = CA_BT_GDP_RAT*CA_GNP*CA_PGNP ; + ( CA_B-(CA_B(-1)))+( CA_M-(CA_M(-1))) = CA_R*CA_B(-1)+CA_P*CA_G-CA_TAX ; + CA_GDEF = ( CA_B+CA_M-(CA_B(-1)+CA_M(-1))) ; + log(CA_M/CA_P) = CA_M0+(1-CA_M4)*log(CA_A)+CA_M2*CA_RS+CA_M4*log(CA_M(-1)/CA_P(-1))+RES_CA_M ; + CA_RS = (1-CA_X_RS1)*CA_RS_EXOG+CA_X_RS1*(CA_RS(-1)+CA_RS1*log(CA_MT/CA_M)/CA_M2+CA_RS2*log(GR_ER/CA_ER/CA_PAR)+CA_RS3*log(US_ER/CA_ER/CA_PARUS)+CA_RS4*log(CA_NEER/CA_NEER_PAR)+CA_RS5*(CA_UNR_FE-CA_UNR-CA_UNR_GAP_EXOG)+CA_RS6*100*(log(CA_GDP)-log(CA_GDP_FE)-CA_GDP_GAP_EXOG)+CA_X_RS2*(-CA_RS(-1)+CA_RSCON+100*( log(CA_P(1))-(log(CA_P))))+100*(CA_RTARC1*(( log(CA_P)-(log(CA_P(-1))))-( log(CA_P_TAR)-(log(CA_P_TAR(-1))))-CA_P_GAP_EXOG)+CA_RTARC2*(( log(CA_PGNP)-(log(CA_PGNP(-1))))-( log(CA_PGNP_TAR)-(log(CA_PGNP_TAR(-1))))-CA_PGNP_GAP_EXOG)+CA_RTARC3*(( log(CA_CPI)-(log(CA_CPI(-1))))-( log(CA_CPI_TAR)-(log(CA_CPI_TAR(-1))))-CA_CPI_GAP_EXOG)+CA_RTARC4*(( log(CA_PGNPNO)-(log(CA_PGNPNO(-1))))-( log(CA_PGNPNO_TAR)-(log(CA_PGNPNO_TAR(-1))))-CA_PGNPNO_GAP_EXOG)+CA_RTARF1*(( log(CA_P(1))-(log(CA_P)))-( log(CA_P_TAR(1))-(log(CA_P_TAR)))-CA_P_GAP_EXOG(1))+CA_RTARF2*(( log(CA_PGNP(1))-(log(CA_PGNP)))-( log(CA_PGNP_TAR(1))-(log(CA_PGNP_TAR)))-CA_PGNP_GAP_EXOG(1))+CA_RTARF3*(( log(CA_CPI(1))-(log(CA_CPI)))-( log(CA_CPI_TAR(1))-(log(CA_CPI_TAR)))-CA_CPI_GAP_EXOG(1))+CA_RTARF4*(( log(CA_PGNPNO(1))-(log(CA_PGNPNO)))-( log(CA_PGNPNO_TAR(1))-(log(CA_PGNPNO_TAR)))-CA_PGNPNO_GAP_EXOG(1)))+CA_RSCON2+RES_CA_RS)+CA_RS1PERM*0 ; + CA_RL/100 = ((1+CA_RS/100)*(1+CA_RS(1)/100)*(1+CA_RS(2)/100)*(1+CA_RS(3)/100)*(1+CA_RS(4)/100)*(1+CA_RS(5)/100)*(1+CA_RS(6)/100)*(1+CA_RS(7)/100)*(1+CA_RS(8)/100)*(1+CA_RS(9)/100))^0.1*(1+CA_TPREM)-1+RES_CA_RL ; + CA_R = 0.5*CA_RS(-1)/100+0.5*(CA_RL(-3)/100+CA_RL(-2)/100+CA_RL(-1)/100)/3 ; + CA_RLR = (1+CA_RL/100)/(CA_P(10)/CA_P)^0.1-1 ; + CA_RSR = (1+CA_RS/100)/(CA_P(1)/CA_P)-1 ; + CA_PGNPNO = (CA_GDP*CA_PGNP-CA_PRODOIL*POIL/CA_ER*CA_E96)/(CA_GDP-CA_PRODOIL) ; + CA_PGNP = (CA_P*CA_A+CA_XT*CA_PXT-CA_IT*CA_PIT)/CA_GDP+RES_CA_P*CA_PGNP ; + ( log(CA_PXM)-(log(CA_PXM(-1)))) = CA_PXM0+CA_PXM1*( log(CA_PGNPNO)-(log(CA_PGNPNO(-1))))+(1-CA_PXM1)*( log(CA_PFM)-(log(CA_PFM(-1))))+CA_PXM2*log(CA_PGNPNO(-1)/CA_PXM(-1))+RES_CA_PXM ; + CA_PXT = (CA_XMA*CA_PXM+POIL/CA_ER*CA_E96*CA_XOIL)/CA_XT ; + CA_PIM = (S0107*US_PXM+S0207*JA_PXM*JA_ER/JA_E96+S0307*GR_PXM*GR_ER/GR_E96+S0407*FR_PXM*FR_ER/FR_E96+S0507*IT_PXM*IT_ER/IT_E96+S0607*UK_PXM*UK_ER/UK_E96+S0707*CA_PXM*CA_ER/CA_E96+S0807*SI_PXM*SI_ER/SI_E96+S0907*RW_PXM*RW_ER/RW_E96)/(CA_ER/CA_E96)*(1+RES_CA_PIM) ; + CA_PIMA = CA_PIM+T07*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/CA_ER/CA_IM ; + CA_PIT = (CA_IM*CA_PIMA+CA_IOIL*POIL/CA_ER*CA_E96+CA_ICOM*PCOM/CA_ER*CA_E96)/CA_IT ; + //log(CA_TFP_FE) = RES_CA_TFP_FE ; + CA_TFP_FE = exp(RES_CA_TFP_FE) ; + CA_GDP_FE = CA_TFP_FE*CA_K^CA_BETA*((1-CA_UNR_FE/100)*CA_LF)^(1-CA_BETA) ; + CA_LF = CA_POP*CA_PART/(1+CA_DEM3) ; + CA_CU = 100*CA_GDP/CA_GDP_FE ; + ( CA_NFA-(CA_NFA(-1))) = (CA_XT*CA_PXT-CA_IT*CA_PIT)*CA_ER+(US_R+(CA_PREM(-3)+CA_PREM(-2)+CA_PREM(-1))/3)*CA_NFA(-1)+RES_CA_NFA*US_INFL^TME*GREAL^TME ; + CA_TB = CA_XT*CA_PXT-CA_IT*CA_PIT ; + CA_CURBAL = ( CA_NFA-(CA_NFA(-1))) ; + 1+US_RS/100 = (1+CA_RS/100)*CA_ER(1)/CA_ER-CA_PREM+RES_CA_ER ; + CA_RCI = log(CA_PXM)-log(CA_PFM) ; + CA_FACT = (US_IM*US_E96*S0701+JA_IM*JA_E96*S0702+GR_IM*GR_E96*S0703+FR_IM*FR_E96*S0704+IT_IM*IT_E96*S0705+UK_IM*UK_E96*S0706+CA_IM*CA_E96*S0707+SI_IM*SI_E96*S0708+(HO_IM+DC_IM)*RW_E96*S0709)/CA_E96 ; + log(CA_PFM) = W0701*log(US_PXM*US_ER/US_E96)+W0702*log(JA_PXM*JA_ER/JA_E96)+W0703*log(GR_PXM*GR_ER/GR_E96)+W0704*log(FR_PXM*FR_ER/FR_E96)+W0705*log(IT_PXM*IT_ER/IT_E96)+W0706*log(UK_PXM*UK_ER/UK_E96)+W0707*log(CA_ER/CA_E96)+W0708*log(SI_PXM*SI_ER/SI_E96)+W0709*log(RW_PXM*RW_ER/RW_E96) ; + CA_NEER = exp(-V0701*log(US_ER/US_E96)-V0702*log(JA_ER/JA_E96)-V0703*log(GR_ER/GR_E96)-V0704*log(FR_ER/FR_E96)-V0705*log(IT_ER/IT_E96)-V0706*log(UK_ER/UK_E96)+log(CA_ER/CA_E96)-V0708*log(SI_ER/SI_E96)) ; + ( log(SI_CPI)-(log(SI_CPI(-1)))) = SI_CPI1*( log(SI_PIM)-(log(SI_PIM(-1))))+SI_CPI2*( log(SI_PGNP)-(log(SI_PGNP(-1))))+(1-SI_CPI1-SI_CPI2)*log(SI_CPI(-1)/SI_CPI(-2))+RES_SI_CPI ; + SI_UNR_A = SI_UNR_FE+SI_UNR_1*100*log(SI_GDP/SI_GDP_FE)+SI_UNR_2*(SI_UNR(-1)-SI_UNR_FE(-1))+RES_SI_UNR_A ; + SI_UNR = SI_UNR_A/*MAX(SI_UNR_A;0.1)*/ ; + ( log(SI_PGNPNO)-(log(SI_PGNPNO(-1)))) = SI_LAMBDA*(SI_DELTA_PI*( log(SI_PGNPNO(1))-(log(SI_PGNPNO)))+(1-SI_DELTA_PI)*( log(SI_PGNPNO(-1))-(log(SI_PGNPNO(-2)))))+(1-SI_LAMBDA)*( log(SI_PGNPNO(-1))-(log(SI_PGNPNO(-2))))+SI_GAMMA/100*(SI_NLIN-SI_UNR)/(SI_UNR-SI_PHI)+RES_SI_PGNP ; + SI_INFL = SI_MGROW/GREAL ; + SI_DLLF = log(SI_LF/SI_LF(-1)) ; + SI_DLGDP = log(SI_GDP/SI_GDP(-1)) ; + SI_C = SI_C_DI+SI_C_PI ; + SI_MPC = 1/SI_MPCINV ; + SI_MPCINV(1) = SI_MPCINV-1-((1-SI_SIGMA)*(SI_RSR+SI_PROB)-(RES_SI_MPC+SI_PROB))*SI_MPCINV/SI_SIGMA ; + SI_WH1(1) = SI_WH1*(1+SI_RSR+SI_ALPHA1+RES_SI_WH1+SI_PROB+exp(SI_DLLF_SS)-1)-(((1-SI_BETA)*SI_GDP*SI_PGNP-SI_TAXH)/SI_P+RES_SI_WK*SI_WK) ; + SI_WH2(1) = SI_WH2*(1+SI_RSR+SI_ALPHA2+RES_SI_WH2+SI_PROB+exp(SI_DLLF_SS)-1)-(((1-SI_BETA)*SI_GDP*SI_PGNP-SI_TAXH)/SI_P+RES_SI_WK*SI_WK) ; + SI_WH3(1) = SI_WH3*(1+SI_RSR+SI_ALPHA3+RES_SI_WH3+SI_PROB+exp(SI_DLLF_SS)-1)-(((1-SI_BETA)*SI_GDP*SI_PGNP-SI_TAXH)/SI_P+RES_SI_WK*SI_WK) ; + SI_C_DI = (SI_LAMBDA1*SI_BCHI1+SI_LAMBDA2*SI_BCHI2+SI_LAMBDA3*(1-SI_BCHI1-SI_BCHI2))*((1-SI_BETA)*SI_GDP*SI_PGNP-SI_TAXH)/SI_P+RES_SI_C_DI*GREAL^TME ; + SI_C_PI = SI_MPC*(SI_WK+(SI_M+SI_B+SI_NFA/SI_ER)/SI_P+SI_BCHI1*(1-SI_LAMBDA1)*SI_WH1+SI_BCHI2*(1-SI_LAMBDA2)*SI_WH2+(1-SI_BCHI1-SI_BCHI2)*(1-SI_LAMBDA3)*SI_WH3) ; + SI_WH = SI_BCHI1*SI_WH1+SI_BCHI2*SI_WH2+(1-SI_BCHI1-SI_BCHI2)*SI_WH3 ; + ( log(SI_COIL)-(log(SI_COIL(-1)))) = SI_COIL0+SI_COIL1*( log(SI_GDP)-(log(SI_GDP(-1))))+SI_COIL2*( log(POIL/SI_ER/SI_PGNP)-(log(POIL(-1)/SI_ER(-1)/SI_PGNP(-1))))+SI_COIL3*log(POIL(-1)/SI_ER(-1)/SI_PGNP(-1))+SI_COIL4*log(SI_GDP(-1)/SI_COIL(-1))+RES_SI_COIL ; + SI_INVEST/SI_K(-1)-(SI_DELTA_SS+GREAL_SS-1) = SI_K1*(SI_WK/SI_K(-1)-1)+SI_K2*(SI_WK(-1)/SI_K(-2)-1)+RES_SI_K ; + SI_MPK = SI_BETA*SI_GDP/SI_K ; + SI_Q = SI_CHI*(SI_INVEST/SI_K(-1)-(SI_DELTA_SS+GREAL_SS-1))+1 ; + SI_WK(1) = SI_WK*(1+SI_RSR+SI_K/SI_K(-1)-1+SI_DELTA+RES_SI_WK)-(SI_BETA*SI_GDP*SI_PGNP-SI_TAXK)/SI_P+(SI_CHI/2*((SI_Q-1)/SI_CHI)^2+SI_INVEST/SI_K(-1)*(SI_Q-1))*SI_K(-1)*SI_PGNP/SI_P ; + SI_INVEST = ( SI_K-(SI_K(-1)))+SI_DELTA*SI_K(-1) ; + ( log(SI_XM)-(log(SI_XM(-1)))) = SI_XM0+( log(SI_FACT)-(log(SI_FACT(-1))))+SI_XM1*( SI_RCI-(SI_RCI(-1)))+SI_XM2*(SI_XM3*SI_RCI(-1)+log(SI_FACT(-1))-log(SI_XM(-1)))+RES_SI_XM ; + SI_XMA = SI_XM+T08*(WTRADER-TRDER*GREAL^TME)/SI_E96 ; + SI_XT = SI_XMA+SI_XOIL ; + SI_ACT = SI_C_MPROP*SI_C+SI_INVEST_MPROP*SI_INVEST+SI_G_MPROP*SI_G+SI_XT_MPROP*SI_XT ; + ( log(SI_IM)-(log(SI_IM(-1)))) = SI_IM0+( log(SI_ACT)-(log(SI_ACT(-1))))+SI_IM1*( log(SI_PIMA/SI_PGNPNO)-(log(SI_PIMA(-1)/SI_PGNPNO(-1))))+SI_IM2*(SI_IM3*log(SI_PIMA(-1)/SI_PGNPNO(-1))+log(SI_ACT(-1))-log(SI_IM(-1)))+RES_SI_IM ; + SI_IOIL = SI_COIL+SI_XOIL-SI_PRODOIL+RES_SI_IOIL*GREAL^TME ; + ( log(SI_ICOM)-(log(SI_ICOM(-1)))) = SI_IC0+SI_IC2*( log(PCOM/SI_ER/SI_PGNP)-(log(PCOM(-1)/SI_ER(-1)/SI_PGNP(-1))))+SI_IC1*( log(SI_GDP)-(log(SI_GDP(-1))))+SI_IC3*log(PCOM(-1)/SI_ER(-1)/SI_PGNP(-1))+SI_IC4*log(SI_GDP(-1))+SI_IC5*log(SI_ICOM(-1))+RES_SI_ICOM-(SI_IC4+SI_IC5)*log(GREAL^TME) ; + SI_IT = SI_IM+SI_IOIL+SI_ICOM ; + SI_A = SI_C+SI_INVEST+SI_G ; + SI_GDP = SI_A+SI_XT-SI_IT ; + SI_GNP = SI_GDP+(US_R+(SI_PREM(-3)+SI_PREM(-2)+SI_PREM(-1))/3)*SI_NFA(-1)/SI_ER/SI_PGNP+RES_SI_GNP*GREAL^TME ; + SI_W = SI_WH+SI_WK+(SI_M+SI_B+SI_NFA/SI_ER)/SI_P ; + SI_YD = (SI_GDP*SI_PGNP-SI_TAX)/SI_P-SI_DELTA*SI_K(-1) ; + SI_GE = SI_P*SI_G+SI_R*SI_B(-1)+SI_GEXOG ; + SI_TAX = SI_TRATE*SI_PGNP*SI_GNP ; + SI_TAXK = SI_TAXK_ALPHA*SI_TAXK_SHAR*SI_TAX+(1-SI_TAXK_ALPHA)*SI_TRATEK*SI_BETA*SI_GDP*SI_PGNP ; + SI_TAXH = SI_TAX-SI_TAXK ; + SI_TRATE = SI_TRATE_EXOG*(1-SI_TRATE_ALPHA)+SI_TRATE_ALPHA*((SI_TRATE(-2)/5+SI_TRATE(-1)/5+SI_TRATE(0)/5+SI_TRATE(1)/5+SI_TRATE(2)/5)+TAU1*(SI_B(1)/(SI_GNP(1)*SI_PGNP(1))-SI_BT_GDP_RAT(1))+RES_SI_TRATE) ; + SI_BT = SI_BT_GDP_RAT*SI_GNP*SI_PGNP ; + ( SI_B-(SI_B(-1)))+( SI_M-(SI_M(-1))) = SI_R*SI_B(-1)+SI_P*SI_G-SI_TAX ; + SI_GDEF = ( SI_B+SI_M-(SI_B(-1)+SI_M(-1))) ; + log(SI_M/SI_P) = SI_M0+(1-SI_M4)*log(SI_A)+SI_M2*SI_RS+SI_M4*log(SI_M(-1)/SI_P(-1))+RES_SI_M ; + SI_RS = (1-SI_X_RS1)*SI_RS_EXOG+SI_X_RS1*(SI_RS(-1)+SI_RS1*log(SI_MT/SI_M)/SI_M2+SI_RS2*log(GR_ER/SI_ER/SI_PAR)+SI_RS3*log(US_ER/SI_ER/SI_PARUS)+SI_RS4*log(SI_NEER/SI_NEER_PAR)+SI_RS5*(SI_UNR_FE-SI_UNR-SI_UNR_GAP_EXOG)+SI_RS6*100*(log(SI_GDP)-log(SI_GDP_FE)-SI_GDP_GAP_EXOG)+SI_X_RS2*(-SI_RS(-1)+SI_RSCON+100*( log(SI_P(1))-(log(SI_P))))+100*(SI_RTARC1*(( log(SI_P)-(log(SI_P(-1))))-( log(SI_P_TAR)-(log(SI_P_TAR(-1))))-SI_P_GAP_EXOG)+SI_RTARC2*(( log(SI_PGNP)-(log(SI_PGNP(-1))))-( log(SI_PGNP_TAR)-(log(SI_PGNP_TAR(-1))))-SI_PGNP_GAP_EXOG)+SI_RTARC3*(( log(SI_CPI)-(log(SI_CPI(-1))))-( log(SI_CPI_TAR)-(log(SI_CPI_TAR(-1))))-SI_CPI_GAP_EXOG)+SI_RTARC4*(( log(SI_PGNPNO)-(log(SI_PGNPNO(-1))))-( log(SI_PGNPNO_TAR)-(log(SI_PGNPNO_TAR(-1))))-SI_PGNPNO_GAP_EXOG)+SI_RTARF1*(( log(SI_P(1))-(log(SI_P)))-( log(SI_P_TAR(1))-(log(SI_P_TAR)))-SI_P_GAP_EXOG(1))+SI_RTARF2*(( log(SI_PGNP(1))-(log(SI_PGNP)))-( log(SI_PGNP_TAR(1))-(log(SI_PGNP_TAR)))-SI_PGNP_GAP_EXOG(1))+SI_RTARF3*(( log(SI_CPI(1))-(log(SI_CPI)))-( log(SI_CPI_TAR(1))-(log(SI_CPI_TAR)))-SI_CPI_GAP_EXOG(1))+SI_RTARF4*(( log(SI_PGNPNO(1))-(log(SI_PGNPNO)))-( log(SI_PGNPNO_TAR(1))-(log(SI_PGNPNO_TAR)))-SI_PGNPNO_GAP_EXOG(1)))+SI_RSCON2+RES_SI_RS)+SI_RS1PERM*0 ; + SI_RL/100 = ((1+SI_RS/100)*(1+SI_RS(1)/100)*(1+SI_RS(2)/100)*(1+SI_RS(3)/100)*(1+SI_RS(4)/100)*(1+SI_RS(5)/100)*(1+SI_RS(6)/100)*(1+SI_RS(7)/100)*(1+SI_RS(8)/100)*(1+SI_RS(9)/100))^0.1*(1+SI_TPREM)-1+RES_SI_RL ; + SI_R = 0.5*SI_RS(-1)/100+0.5*(SI_RL(-3)/100+SI_RL(-2)/100+SI_RL(-1)/100)/3 ; + SI_RLR = (1+SI_RL/100)/(SI_P(10)/SI_P)^0.1-1 ; + SI_RSR = (1+SI_RS/100)/(SI_P(1)/SI_P)-1 ; + SI_PGNPNO = (SI_GDP*SI_PGNP-SI_PRODOIL*POIL/SI_ER*SI_E96)/(SI_GDP-SI_PRODOIL) ; + SI_PGNP = (SI_P*SI_A+SI_XT*SI_PXT-SI_IT*SI_PIT)/SI_GDP+RES_SI_P*SI_PGNP ; + ( log(SI_PXM)-(log(SI_PXM(-1)))) = SI_PXM0+SI_PXM1*( log(SI_PGNPNO)-(log(SI_PGNPNO(-1))))+(1-SI_PXM1)*( log(SI_PFM)-(log(SI_PFM(-1))))+SI_PXM2*log(SI_PGNPNO(-1)/SI_PXM(-1))+RES_SI_PXM ; + SI_PXT = (SI_XMA*SI_PXM+POIL/SI_ER*SI_E96*SI_XOIL)/SI_XT ; + SI_PIM = (S0108*US_PXM+S0208*JA_PXM*JA_ER/JA_E96+S0308*GR_PXM*GR_ER/GR_E96+S0408*FR_PXM*FR_ER/FR_E96+S0508*IT_PXM*IT_ER/IT_E96+S0608*UK_PXM*UK_ER/UK_E96+S0708*CA_PXM*CA_ER/CA_E96+S0808*SI_PXM*SI_ER/SI_E96+S0908*RW_PXM*RW_ER/RW_E96)/(SI_ER/SI_E96)*(1+RES_SI_PIM) ; + SI_PIMA = SI_PIM+T08*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/SI_ER/SI_IM ; + SI_PIT = (SI_IM*SI_PIMA+SI_IOIL*POIL/SI_ER*SI_E96+SI_ICOM*PCOM/SI_ER*SI_E96)/SI_IT ; + //log(SI_TFP_FE) = RES_SI_TFP_FE ; + SI_TFP_FE = exp(RES_SI_TFP_FE); + SI_GDP_FE = SI_TFP_FE*SI_K^SI_BETA*((1-SI_UNR_FE/100)*SI_LF)^(1-SI_BETA) ; + SI_LF = SI_POP*SI_PART/(1+SI_DEM3) ; + SI_CU = 100*SI_GDP/SI_GDP_FE ; + ( SI_NFA-(SI_NFA(-1))) = (SI_XT*SI_PXT-SI_IT*SI_PIT)*SI_ER+(US_R+(SI_PREM(-3)+SI_PREM(-2)+SI_PREM(-1))/3)*SI_NFA(-1)+RES_SI_NFA*US_INFL^TME*GREAL^TME ; + SI_TB = SI_XT*SI_PXT-SI_IT*SI_PIT ; + SI_CURBAL = ( SI_NFA-(SI_NFA(-1))) ; + 1+US_RS/100 = (1+SI_RS/100)*SI_ER(1)/SI_ER-SI_PREM+RES_SI_ER ; + SI_RCI = log(SI_PXM)-log(SI_PFM) ; + SI_FACT = (US_IM*US_E96*S0801+JA_IM*JA_E96*S0802+GR_IM*GR_E96*S0803+FR_IM*FR_E96*S0804+IT_IM*IT_E96*S0805+UK_IM*UK_E96*S0806+CA_IM*CA_E96*S0807+SI_IM*SI_E96*S0808+(HO_IM+DC_IM)*RW_E96*S0809)/SI_E96 ; + log(SI_PFM) = W0801*log(US_PXM*US_ER/US_E96)+W0802*log(JA_PXM*JA_ER/JA_E96)+W0803*log(GR_PXM*GR_ER/GR_E96)+W0804*log(FR_PXM*FR_ER/FR_E96)+W0805*log(IT_PXM*IT_ER/IT_E96)+W0806*log(UK_PXM*UK_ER/UK_E96)+W0807*log(CA_PXM*CA_ER/CA_E96)+W0808*log(SI_ER/SI_E96)+W0809*log(RW_PXM*RW_ER/RW_E96) ; + SI_NEER = exp(-V0801*log(US_ER/US_E96)-V0802*log(JA_ER/JA_E96)-V0803*log(GR_ER/GR_E96)-V0804*log(FR_ER/FR_E96)-V0805*log(IT_ER/IT_E96)-V0806*log(UK_ER/UK_E96)-V0807*log(CA_ER/CA_E96)+log(SI_ER/SI_E96)) ; + ( log(DC_CTOT)-(log(DC_CTOT(-1)))) = DC_C0+DC_C1*( log(DC_GDP+DC_NFA(-1)*US_R/RW_ER/DC_P-DC_DELTA*DC_K(-1)+(DC_DEBT-DC_DEBT(-1))/DC_P/RW_ER)-(log(DC_GDP(-1)+DC_NFA(-2)*US_R(-1)/RW_ER(-1)/DC_P(-1)-DC_DELTA(-1)*DC_K(-2)+(DC_DEBT(-1)-DC_DEBT(-2))/DC_P(-1)/RW_ER(-1))))+DC_C2*log((DC_GDP(-1)+DC_NFA(-2)*US_R(-1)/RW_ER(-1)/DC_P(-1)-DC_DELTA(-1)*DC_K(-2)+( DC_DEBT(-1)-(DC_DEBT(-2)))/DC_P(-1)/RW_ER(-1))/DC_CTOT(-1))+RES_DC_CTOT ; + DC_INVEST = DC_GDP-(DC_XM+DC_XCOM+DC_XOIL)-DC_CTOT+DC_IT ; + DC_INVESTC = PCOM/RW_ER/DC_PXM*DC_KCOMSHR*DC_INVEST ; + DC_KC = DC_KC(-1)*(1-DC_DELTA)+DC_INVESTC ; + DC_K = DC_KC+DC_KM ; + DC_INVESTM = DC_INVEST-DC_INVESTC ; + DC_KM = DC_KM(-1)*(1-DC_DELTA)+DC_INVESTM ; + DC_XM = RW_XM-HO_XM ; + DC_XMA = RW_XMA-HO_XM ; + DC_XCOM = RW_XCOM+HO_ICOM ; + DC_XOIL = DC_XOILSHR*(RW_XOIL-DC_IOIL)+RES_DC_XOIL*GREAL^TME ; + DC_XT = DC_XCOM+DC_XOIL+DC_XMA ; + DC_IOIL = DC_OILSHR*DC_IT ; + DC_IT = DC_IM+DC_IOIL ; + DC_A = DC_CTOT+DC_INVEST ; + DC_GDP = DC_XM+DC_XCOM+DC_XOIL+DC_QNT ; + log(DC_QNT) = log(DC_GDP_FE)+RES_DC_QNT ; + DC_NNPCAP = DC_GDP_FE-DC_DELTA*DC_K(-1) ; + DC_P = (DC_PXM*DC_QNT+DC_PIT*DC_IT)/(DC_CTOT+DC_INVEST) ; + DC_PGNP = (DC_PXM*(DC_QNT+DC_XMA)+PCOM/RW_ER*DC_XCOM+POIL/RW_ER*DC_XOIL)/DC_GDP+RES_DC_PGNP*DC_PGNP ; + ( RW_RCI-(RW_RCI(-1))) = RW_PXM1*RW_RCI(-1)+RW_PXM2*log(DC_XSM/DC_XM)+RES_DC_PXM ; + log(RW_PFM) = W0901*log(US_PXM*US_ER/US_E96)+W0902*log(JA_PXM*JA_ER/JA_E96)+W0903*log(GR_PXM*GR_ER/GR_E96)+W0904*log(FR_PXM*FR_ER/FR_E96)+W0905*log(IT_PXM*IT_ER/IT_E96)+W0906*log(UK_PXM*UK_ER/UK_E96)+W0907*log(CA_PXM*CA_ER/CA_E96)+W0908*log(SI_PXM*SI_ER/SI_E96)+W0909*log(RW_ER/RW_E96) ; + log(DC_XCOM) = RW_XCOM1*log(DC_KC(-1))+(1-RW_XCOM1)*log(1+DC_PROD)*TME+RES_PCOM ; + DC_PXT = (DC_PXM*DC_XMA+PCOM/RW_ER*DC_XCOM+POIL/RW_ER*DC_XOIL)/DC_XT ; + DC_PIM = RW_PIM+RES_DC_PIM*DC_INFL^TME ; + DC_PIMA = RW_PIMA+RES_DC_PIMA*DC_INFL^TME ; + DC_PIT = (DC_PIMA*DC_IM+POIL/RW_ER*DC_IOIL)/DC_IT ; + log(DC_XSM) = RW_XSM1*log(DC_KM(-1))+(1-RW_XSM1)*log(1+DC_PROD)*TME+RES_DC_XSM ; + DC_GDP_FE = exp(RES_DC_GDP_FE+DC_GDP_FE0+log(1+DC_PROD)*TME*(1-DC_BETA)+log(DC_K(-1))*DC_BETA) ; + ( DC_DEBT-(DC_DEBT(-1))) = ((DC_XT(4)*DC_PXT(4)*RW_ER(4)/(DC_XT(-1)*DC_PXT(-1)*RW_ER(-1)))^(1/5)-1)*DC_XT(-1)*DC_PXT(-1)*RW_ER(-1)*DC_DEBT1+DC_DEBT2*(ISR*DC_PXT(-1)*DC_XT(-1)*RW_ER(-1)/US_RRBAR(-1)-DC_DEBT(-1))+DC_DEBT2/10*(ISR*DC_XTNDHIST(-1)/US_RR(-1)-DC_DEBT(-1))+RES_DC_DEBT*US_INFL^TME*GREAL^TME ; + DC_NFA = DC_NFA(-1)-( DC_DEBT-(DC_DEBT(-1)))+RES_DC_NFA*DC_PIT*RW_ER*GREAL^TME ; + ( DC_NFA-(DC_NFA(-1)))/RW_ER = DC_PXM*DC_XMA+PCOM/RW_ER*DC_XCOM+POIL/RW_ER*DC_XOIL-DC_PIT*DC_IT+US_R*DC_NFA(-1)/RW_ER+RES_DC_IT*DC_PIT*GREAL^TME ; + HO_XOIL = RW_XOIL-DC_XOIL ; + HO_XT = HO_XOIL+HO_XM ; + log(HO_ICOM) = HO_IC2*log(PCOM/RW_ER/RW_PXM)+log(HO_GDP)+RES_HO_ICOM ; + HO_IM = HO_IT-HO_IOIL-HO_ICOM ; + HO_IT = HO_A+HO_XT-HO_GDP ; + HO_GDP = HO_XT+HO_QNT ; + ( log(HO_A)-(log(HO_A(-1)))) = HO_A0+HO_A1*log((HO_QNT+HO_XT*HO_PXT/DC_PGNP+0.035*HO_NFA/RW_ER/DC_PGNP)/HO_A(-1))+RES_HO_IM ; + HO_PXT = (RW_PXM*HO_XM+POIL/RW_ER*HO_XOIL)/HO_XT*(1+RES_HO_PXT) ; + HO_PIT = (RW_PIMA*HO_IM+POIL/RW_ER*HO_IOIL+PCOM/RW_ER*HO_ICOM)/HO_IT*(1+RES_HO_PIT) ; + 0 = HO_NFA+JA_NFA+CA_NFA+US_NFA+UK_NFA+IT_NFA+FR_NFA+GR_NFA+SI_NFA+DC_NFA ; + ( log(RW_XM)-(log(RW_XM(-1)))) = RW_XM0+( log(RW_FACT)-(log(RW_FACT(-1))))+RW_XM1*( RW_RCI-(RW_RCI(-1)))+RW_XM2*(RW_XM3*RW_RCI(-1)+log(RW_FACT(-1))-log(RW_XM(-1)))+RES_RW_XM ; + RW_XMA = RW_XM+T09*(WTRADER-TRDER*GREAL^TME)/RW_E96 ; + RW_XCOM = US_ICOM+JA_ICOM*JA_E96+GR_ICOM*GR_E96+CA_ICOM*CA_E96+FR_ICOM*FR_E96+IT_ICOM*IT_E96+UK_ICOM*UK_E96+SI_ICOM*SI_E96 ; + RW_XOIL = -(US_XOIL-US_IOIL+(JA_XOIL-JA_IOIL)*JA_E96+(GR_XOIL-GR_IOIL)*GR_E96+(FR_XOIL-FR_IOIL)*FR_E96+(IT_XOIL-IT_IOIL)*IT_E96+(UK_XOIL-UK_IOIL)*UK_E96+(CA_XOIL-CA_IOIL)*CA_E96+(SI_XOIL-SI_IOIL)*SI_E96)/RW_E96+DC_IOIL+HO_IOIL ; + RW_IM = DC_IM+HO_IM ; + RW_PXM = DC_PXM+RES_RW_PXM*RW_INFL^TME ; + RW_PIM = (S0109*US_PXM+S0209*JA_PXM*JA_ER/JA_E96+S0309*GR_PXM*GR_ER/GR_E96+S0409*FR_PXM*FR_ER/FR_E96+S0509*IT_PXM*IT_ER/IT_E96+S0609*UK_PXM*UK_ER/UK_E96+S0709*CA_PXM*CA_ER/CA_E96+S0809*SI_PXM*SI_ER/SI_E96+S0909*RW_PXM*RW_ER/RW_E96)/(RW_ER/RW_E96)*(1+RES_RW_PIM) ; + RW_RCI = log(RW_PXM)-log(RW_PFM) ; + RW_NEER = exp(-(W0902*log(JA_ER/JA_E96)+W0903*log(GR_ER/GR_E96)+W0904*log(FR_ER/FR_E96)+W0905*log(IT_ER/IT_E96)+W0906*log(UK_ER/UK_E96)+W0907*log(CA_ER/CA_E96)+W0908*log(SI_ER/SI_E96)+W0909*log(RW_ER/RW_E96))) ; + RW_FACT = (US_IM*US_E96*S0901+JA_IM*JA_E96*S0902+GR_IM*GR_E96*S0903+FR_IM*FR_E96*S0904+IT_IM*IT_E96*S0905+UK_IM*UK_E96*S0906+CA_IM*CA_E96*S0907+SI_IM*SI_E96*S0908+(HO_IM+DC_IM)*RW_E96*S0909)/RW_E96 ; + RW_PIMA = RW_PIM+T09*(WTRADE-TRDE*GREAL^TME*US_INFL^TME)/RW_ER/RW_IM ; + WTRADE-TRDE*GREAL^TME*US_INFL^TME = US_XMA*US_PXM-US_IM*US_PIM+(JA_XMA*JA_PXM-JA_IM*JA_PIM)*JA_ER+(GR_XMA*GR_PXM-GR_IM*GR_PIM)*GR_ER+(FR_XMA*FR_PXM-FR_IM*FR_PIM)*FR_ER+(IT_XMA*IT_PXM-IT_IM*IT_PIM)*IT_ER+(UK_XMA*UK_PXM-UK_IM*UK_PIM)*UK_ER+(CA_XMA*CA_PXM-CA_IM*CA_PIM)*CA_ER+(SI_XMA*SI_PXM-SI_IM*SI_PIM)*SI_ER+(RW_XMA*RW_PXM-RW_IM*RW_PIM)*RW_ER+RES_WTRADE*GREAL^TME*US_INFL^TME ; + WTRADER-TRDER*GREAL^TME = US_IM-US_XM+(JA_IM-JA_XM)*JA_E96+(GR_IM-GR_XM)*GR_E96+(FR_IM-FR_XM)*FR_E96+(IT_IM-IT_XM)*IT_E96+(UK_IM-UK_XM)*UK_E96+(CA_IM-CA_XM)*CA_E96+(SI_IM-SI_XM)*SI_E96+(RW_IM-RW_XM)*RW_E96+RES_WTRADER*GREAL^TME ; + POIL = RPOIL*US_PGNP^US_WT*(JA_PGNP*JA_ER/JA_E96)^JA_WT*(GR_PGNP*GR_ER/GR_E96)^GR_WT*(FR_PGNP*FR_ER/FR_E96)^FR_WT*(IT_PGNP*IT_ER/IT_E96)^IT_WT*(UK_PGNP*UK_ER/UK_E96)^UK_WT*(SI_PGNP*SI_ER/SI_E96)^SI_WT*(CA_PGNP*CA_ER/CA_E96)^CA_WT ; +end; + +initval; +CA_A=1258.37060606; +CA_ACT=349.585896649; +CA_ALPHA1=0.078; +CA_ALPHA2=0.121; +CA_ALPHA3=0.0911709766895; +CA_B=809.80955381; +CA_BCHI1=21.2121212121; +CA_BCHI2=5.91549295775; +CA_BETA=0.33; +CA_BT=809.80955381; +CA_BT_GDP_RAT=0.419976226386; +CA_C=905.688246476; +CA_COIL=24.7443625907; +CA_CPI=1.57958629296; +CA_CPI_GAP_EXOG=0; +CA_CPI_TAR=1.57958629296; +CA_CU=100; +CA_CURBAL=-18.4203759425; +CA_C_DI=693.928200938; +CA_C_PI=211.760045538; +CA_DELTA=0.025734401231; +CA_DELTA_SS=0.025734401231; +CA_DEM3=0.50966182372; +CA_DLGDP=0.0217614806134; +CA_DLLF=0.00144378024362; +CA_DLLF_SS=0; +CA_ER=0.74786657095; +CA_FACT=575.428338476; +CA_G=236.225701292; +CA_GDEF=42.179502634; +CA_GDP=1267.73017149; +CA_GDP_FE=1267.73017149; +CA_GDP_GAP_EXOG=8.881784197e-016; +CA_GE=423.620066068; +CA_GEXOG=0; +CA_GNP=1247.17158457; +CA_ICOM=7.85769143591; +CA_IM=511.06232766; +CA_INFL=1.0270000062; +CA_INVEST=116.456658295; +CA_IOIL=10.1521707873; +CA_IT=529.072189883; +CA_K=2493.27232399; +CA_LAMBDA=1; +CA_LAMBDA1=0.998452603746; +CA_LAMBDA2=0.999906905629; +CA_LAMBDA3=0.999345807356; +CA_LF=17618.8512388; +CA_M=82.8661220161; +CA_MGROW=1.04959399462; +CA_MPC=0.0754183988398; +CA_MPCINV=13.2593639667; +CA_MPK=0.167791922513; +CA_MT=82.8661220161; +CA_NEER=1.03344502186; +CA_NEER_PAR=1.03344502186; +CA_NFA=-389.843893754; +CA_NLIN=8.61938667297; +CA_P=1.54744635591; +CA_PAR=0.741890628438; +CA_PART=0.802174651456; +CA_PARUS=1.33713691565; +CA_PFM=1.35746485675; +CA_PGNP=1.54608006964; +CA_PGNPNO=1.55124422251; +CA_PGNPNO_GAP_EXOG=0; +CA_PGNPNO_TAR=1.55124422251; +CA_PGNP_GAP_EXOG=0; +CA_PGNP_TAR=1.54608006964; +CA_PHI=4.61938697849; +CA_PIM=1.36171164077; +CA_PIMA=1.36171164077; +CA_PIT=1.36238623326; +CA_POP=33158; +CA_PREM=0; +CA_PROB=0.021; +CA_PRODOIL=31.8549893389; +CA_PXM=1.36287943551; +CA_PXT=1.36238623326; +CA_P_GAP_EXOG=0; +CA_P_TAR=1.54744635591; +CA_Q=1.00001954084; +CA_R=0.0752690064927; +CA_RCI=0.00398080928473; +CA_RL=8.04040065237; +CA_RLR=0.052; +CA_RS=7.01340064617; +CA_RSCON=4.34920694771; +CA_RSCON2=0; +CA_RSR=0.042; +CA_RS_EXOG=7.01340064617; +CA_SIGMA=2.46201848984; +CA_TAX=381.440563434; +CA_TAXH=255.565177501; +CA_TAXK=125.875385933; +CA_TAXK_ALPHA=0; +CA_TAXK_SHAR=0.33; +CA_TB=12.7513430893; +CA_TFP_FE=0.145718808234; +CA_TPREM=0.00959692898273; +CA_TRATE=0.19781931155; +CA_TRATEK=0.194611305933; +CA_TRATE_ALPHA=1; +CA_TRATE_EXOG=0.19781931155; +CA_UNR=8.61938697848; +CA_UNR_A=8.61938697848; +CA_UNR_FE=8.61938697849; +CA_UNR_GAP_EXOG=0; +CA_W=17287.6390819; +CA_WH=14607.985195; +CA_WH1=7183.72844482; +CA_WH2=5276.9364611; +CA_WH3=6467.8624197; +CA_WK=2439.64491168; +CA_XM=522.949752064; +CA_XMA=522.949752064; +CA_XOIL=15.4820032481; +CA_XT=538.431755312; +CA_X_RS1=1; +CA_X_RS2=0; +CA_YD=957.332488133; +DC_A=11536.0772211; +DC_BETA=0.393728; +DC_CTOT=8912.56873925; +DC_DEBT=4375.0594787; +DC_DELTA=0.09; +DC_GDP=11588.0236257; +DC_GDP_FE=11589.3955919; +DC_IM=2196.74507138; +DC_INFL=1.0270000062; +DC_INVEST=2623.5084819; +DC_INVESTC=66.9128177073; +DC_INVESTM=2556.59566419; +DC_IOIL=723.068926272; +DC_IT=2919.81399765; +DC_K=23256.8531664; +DC_KC=615.953408725; +DC_KCOMSHR=0.0267156084709; +DC_KM=22640.8997576; +DC_NFA=-3138.05919175; +DC_NNPCAP=9548.73512857; +DC_OILSHR=0.247642119277; +DC_P=1.5121496198; +DC_PGNP=1.60264450124; +DC_PIM=1.50779607912; +DC_PIMA=1.50779607912; +DC_PIT=1.47422355167; +DC_PROD=0.0219999885862; +DC_PXM=1.52500171841; +DC_PXT=1.47428483631; +DC_QNT=8616.26322349; +DC_XCOM=309.581102136; +DC_XM=1815.66020781; +DC_XMA=1815.66020781; +DC_XOIL=846.519092264; +DC_XOILSHR=0.909129264415; +DC_XSM=1815.66020781; +DC_XT=2971.76040221; +DC_XTNDHIST=4381.22129813; +FR_A=12428.3120854; +FR_ACT=2554.65167678; +FR_ALPHA1=0.078; +FR_ALPHA2=0.121; +FR_ALPHA3=0.0911709766895; +FR_B=8164.71454206; +FR_BCHI1=21.2121212121; +FR_BCHI2=5.91549295775; +FR_BETA=0.31; +FR_BT=8164.71454206; +FR_BT_GDP_RAT=0.42246434571; +FR_C=8559.94267961; +FR_COIL=115.462535562; +FR_CPI=1.55308652521; +FR_CPI_GAP_EXOG=0; +FR_CPI_TAR=1.55308652521; +FR_CU=100; +FR_CURBAL=25.8977049485; +FR_C_DI=5759.91516804; +FR_C_PI=2800.02751158; +FR_DELTA=0.0277164109602; +FR_DELTA_SS=0.0277164109602; +FR_DEM3=0.550387627392; +FR_DLGDP=0.0217614806135; +FR_DLLF=-0.00310730457315; +FR_DLLF_SS=0; +FR_ER=0.164628446102; +FR_FACT=3378.539512; +FR_G=2594.67863751; +FR_GDEF=421.959988213; +FR_GDP=12373.9712324; +FR_GDP_FE=12373.9712324; +FR_GDP_GAP_EXOG=0; +FR_GE=4594.93602206; +FR_GEXOG=0; +FR_GNP=12505.3276835; +FR_ICOM=87.5752466318; +FR_IM=3083.11857811; +FR_INFL=1.0270000062; +FR_INVEST=1273.69076828; +FR_IOIL=124.906863476; +FR_IT=3295.60068822; +FR_K=26180.57806; +FR_LAMBDA=0.752518355846; +FR_LAMBDA1=0.95979954587; +FR_LAMBDA2=0.990046224521; +FR_LAMBDA3=0.97378573951; +FR_LF=26401.37859; +FR_M=765.533425034; +FR_MGROW=1.04959399462; +FR_MPC=0.0537747019055; +FR_MPCINV=18.5961049446; +FR_MPK=0.146518196552; +FR_MT=765.533425034; +FR_NEER=0.944128414683; +FR_NEER_PAR=0.944128414683; +FR_NFA=548.092078464; +FR_NLIN=9.10357761383; +FR_P=1.54524876208; +FR_PAR=3.37022679523; +FR_PART=0.664648383729; +FR_PARUS=6.07428438813; +FR_PFM=1.58646640137; +FR_PGNP=1.5454532315; +FR_PGNPNO=1.54542290009; +FR_PGNPNO_GAP_EXOG=0; +FR_PGNPNO_TAR=1.54542290009; +FR_PGNP_GAP_EXOG=0; +FR_PGNP_TAR=1.5454532315; +FR_PHI=5.10357726511; +FR_PIM=1.48685752168; +FR_PIMA=1.48685752168; +FR_PIT=1.49868897023; +FR_POP=61585; +FR_PREM=0; +FR_PROB=0.021; +FR_PRODOIL=4.46861579712; +FR_PXM=1.49797486646; +FR_PXT=1.49868897023; +FR_P_GAP_EXOG=0; +FR_P_TAR=1.54524876208; +FR_Q=1.00005197187; +FR_R=0.0752690064927; +FR_RCI=-0.0573950470952; +FR_RL=8.04040065237; +FR_RLR=0.052; +FR_RS=7.01340064617; +FR_RSCON=4.34920694771; +FR_RSCON2=0; +FR_RSR=0.042; +FR_RS_EXOG=7.01340064617; +FR_SIGMA=2.46201848984; +FR_TAX=4172.97603385; +FR_TAXH=2879.35346336; +FR_TAXK=1293.62257049; +FR_TAXK_ALPHA=0; +FR_TAXK_SHAR=0.31; +FR_TB=-81.4400370019; +FR_TFP_FE=0.501898498749; +FR_TPREM=0.00959692898273; +FR_TRATE=0.215921031988; +FR_TRATEK=0.218213151465; +FR_TRATE_ALPHA=1; +FR_TRATE_EXOG=0.215921031988; +FR_UNR=9.1035772651; +FR_UNR_A=9.1035772651; +FR_UNR_FE=9.10357726511; +FR_UNR_GAP_EXOG=0; +FR_W=168360.064296; +FR_WH=134808.153404; +FR_WH1=66294.232454; +FR_WH2=48697.6164374; +FR_WH3=59687.9431099; +FR_WK=25618.2270584; +FR_XM=3223.65007818; +FR_XMA=3223.65007818; +FR_XOIL=17.6097570464; +FR_XT=3241.25983523; +FR_X_RS1=1; +FR_X_RS2=0; +FR_YD=8965.07961638; +GREAL=1.02199998859; +GREAL_SS=1.02199998859; +GR_A=5547.54704742; +GR_ACT=1244.30607441; +GR_ALPHA1=0.078; +GR_ALPHA2=0.121; +GR_ALPHA3=0.0911709766895; +GR_B=2836.64063958; +GR_BCHI1=21.2121212121; +GR_BCHI2=5.91549295775; +GR_BETA=0.31; +GR_BT=2836.64063958; +GR_BT_GDP_RAT=0.327321201968; +GR_C=3764.15898979; +GR_COIL=47.8884655943; +GR_CPI=1.57327094041; +GR_CPI_GAP_EXOG=0; +GR_CPI_TAR=1.57327094041; +GR_CU=100; +GR_CURBAL=32.7810545775; +GR_C_DI=2362.84340677; +GR_C_PI=1401.31558301; +GR_DELTA=0.027325658516; +GR_DELTA_SS=0.027325658516; +GR_DEM3=0.517911346568; +GR_DLGDP=0.0217614806135; +GR_DLLF=-0.00533289129889; +GR_DLLF_SS=0; +GR_ER=0.55483520031; +GR_FACT=1752.82324912; +GR_G=1147.43001864; +GR_GDEF=171.997485885; +GR_GDP=5527.29510412; +GR_GDP_FE=5527.29510412; +GR_GDP_GAP_EXOG=0; +GR_GE=1986.46344565; +GR_GEXOG=0; +GR_GNP=5576.35538713; +GR_ICOM=51.2036719786; +GR_IM=1545.57558691; +GR_INFL=1.0270000062; +GR_INVEST=635.958039002; +GR_IOIL=41.791347602; +GR_IT=1638.57060649; +GR_K=13176.1632314; +GR_LAMBDA=0.743550360203; +GR_LAMBDA1=0.946223644928; +GR_LAMBDA2=0.984891127527; +GR_LAMBDA3=0.963549035564; +GR_LF=35257.118086; +GR_M=803.468000031; +GR_MGROW=1.04959399462; +GR_MPC=0.0534792245595; +GR_MPCINV=18.6988500345; +GR_MPK=0.130042520891; +GR_MT=803.468000031; +GR_NEER=0.925708703761; +GR_NEER_PAR=0.925708703761; +GR_NFA=693.76944302; +GR_NLIN=8.52112674713; +GR_P=1.55394301397; +GR_PAR=1; +GR_PART=0.688368121295; +GR_PARUS=1.80233698122; +GR_PFM=1.61278488747; +GR_PGNP=1.554102787; +GR_PGNPNO=1.55407854318; +GR_PGNPNO_GAP_EXOG=0; +GR_PGNPNO_TAR=1.55407854318; +GR_PGNP_GAP_EXOG=0; +GR_PGNP_TAR=1.554102787; +GR_PHI=4.52112647046; +GR_PIM=1.49899942983; +GR_PIMA=1.49899942983; +GR_PIT=1.51033669586; +GR_POP=77745; +GR_PREM=0; +GR_PROB=0.021; +GR_PRODOIL=1.49721926483; +GR_PXM=1.5099118411; +GR_PXT=1.51033669586; +GR_P_GAP_EXOG=0; +GR_P_TAR=1.55394301397; +GR_Q=1.00002519661; +GR_R=0.0752690064927; +GR_RCI=-0.0659111627379; +GR_RL=8.04040065237; +GR_RLR=0.052; +GR_RS=7.01340064617; +GR_RSCON=4.34920694771; +GR_RSCON2=0; +GR_RSR=0.042; +GR_RS_EXOG=7.01340064617; +GR_SIGMA=2.46201848984; +GR_TAX=1814.46595976; +GR_TAXH=1251.98151224; +GR_TAXK=562.484447526; +GR_TAXK_ALPHA=0; +GR_TAXK_SHAR=0.31; +GR_TB=-30.5872531417; +GR_TFP_FE=0.22618636237; +GR_TPREM=0.00959692898273; +GR_TRATE=0.20937201935; +GR_TRATEK=0.211230405835; +GR_TRATE_ALPHA=1; +GR_TRATE_EXOG=0.20937201935; +GR_UNR=8.52112647046; +GR_UNR_A=8.52112647046; +GR_UNR_FE=8.52112647046; +GR_UNR_GAP_EXOG=0; +GR_W=75273.9837207; +GR_WH=59233.9926595; +GR_WH1=29129.3366121; +GR_WH2=21397.4762042; +GR_WH3=26226.5678653; +GR_WK=12892.8261271; +GR_XM=1613.17493703; +GR_XMA=1613.17493703; +GR_XOIL=5.14372615061; +GR_XT=1618.31866318; +GR_X_RS1=1; +GR_X_RS2=0; +GR_YD=4007.91448996; +HO_A=429.071306821; +HO_GDP=417.235790092; +HO_ICOM=9.8632080102; +HO_IM=183.858899853; +HO_IOIL=0.122354153306; +HO_IT=193.844462017; +HO_NFA=719.347820924; +HO_PIT=1.48676053562; +HO_PXT=1.48676053562; +HO_QNT=235.226844805; +HO_XM=97.3963213053; +HO_XOIL=84.6126239818; +HO_XT=182.008945287; +IT_A=2882.89903126; +IT_ACT=585.122270907; +IT_ALPHA1=0.078; +IT_ALPHA2=0.121; +IT_ALPHA3=0.0911709766895; +IT_B=4162.90203487; +IT_BCHI1=21.2121212121; +IT_BCHI2=5.91549295775; +IT_BETA=0.33; +IT_BT=4162.90203487; +IT_BT_GDP_RAT=0.893355068859; +IT_C=2085.39820473; +IT_COIL=32.313444431; +IT_CPI=1.57442961175; +IT_CPI_GAP_EXOG=0; +IT_CPI_TAR=1.57442961175; +IT_CU=100; +IT_CURBAL=22.5845089076; +IT_C_DI=1291.08423915; +IT_C_PI=794.313965584; +IT_DELTA=0.0228725129802; +IT_DELTA_SS=0.0228725129802; +IT_DEM3=0.549666865555; +IT_DLGDP=0.0217614806135; +IT_DLLF=-0.00734415718949; +IT_DLLF_SS=0; +IT_ER=0.56895200396; +IT_FACT=866.589830511; +IT_G=505.458099941; +IT_GDEF=217.885990105; +IT_GDP=2869.00970783; +IT_GDP_FE=2869.00970783; +IT_GDP_GAP_EXOG=0; +IT_GE=1110.16464714; +IT_GEXOG=0; +IT_GNP=2900.89911415; +IT_ICOM=27.9359136154; +IT_IM=746.307923056; +IT_INFL=1.0270000062; +IT_INVEST=292.042726587; +IT_IOIL=40.5418920294; +IT_IT=814.785728701; +IT_K=6651.22322272; +IT_LAMBDA=0.911613047123; +IT_LAMBDA1=0.96192072127; +IT_LAMBDA2=0.990790836676; +IT_LAMBDA3=0.975347367544; +IT_LF=21512.1047038; +IT_M=448.378594908; +IT_MGROW=1.04959399462; +IT_MPC=0.0560882113769; +IT_MPCINV=17.8290584679; +IT_MPK=0.142345726775; +IT_MT=448.378594908; +IT_NEER=0.993697877386; +IT_NEER_PAR=0.993697877386; +IT_NFA=477.972486476; +IT_NLIN=9.6763048172; +IT_P=1.60573655135; +IT_PAR=0.975188058832; +IT_PART=0.594839602944; +IT_PARUS=1.75761750208; +IT_PFM=1.5102439297; +IT_PGNP=1.60634734372; +IT_PGNPNO=1.60637099427; +IT_PGNPNO_GAP_EXOG=0; +IT_PGNPNO_TAR=1.60637099427; +IT_PGNP_GAP_EXOG=0; +IT_PGNP_TAR=1.60634734372; +IT_PHI=5.67630449384; +IT_PIM=1.46833347211; +IT_PIMA=1.46833347211; +IT_PIT=1.4795699128; +IT_POP=56043; +IT_PREM=0; +IT_PROB=0.021; +IT_PRODOIL=1.56977411787; +IT_PXM=1.4786793971; +IT_PXT=1.4795699128; +IT_P_GAP_EXOG=0; +IT_P_TAR=1.60573655135; +IT_Q=1.00002007572; +IT_R=0.0752690064927; +IT_RCI=-0.0211217904449; +IT_RL=8.04040065237; +IT_RLR=0.052; +IT_RS=7.01340064617; +IT_RSCON=4.34920694771; +IT_RSCON2=0; +IT_RSR=0.042; +IT_RS_EXOG=7.01340064617; +IT_SIGMA=2.46201848984; +IT_TAX=892.278657033; +IT_TAXH=597.826700212; +IT_TAXK=294.451956821; +IT_TAXK_ALPHA=0; +IT_TAXK_SHAR=0.33; +IT_TB=-20.5502250652; +IT_TFP_FE=0.210324484098; +IT_TPREM=0.00959692898273; +IT_TRATE=0.191482205062; +IT_TRATEK=0.193610554027; +IT_TRATE_ALPHA=1; +IT_TRATE_EXOG=0.191482205062; +IT_UNR=9.67630449384; +IT_UNR_A=9.67630449384; +IT_UNR_FE=9.67630449384; +IT_UNR_GAP_EXOG=0; +IT_W=42237.362887; +IT_WH=32334.2602264; +IT_WH1=15900.9296512; +IT_WH2=11680.3128189; +IT_WH3=14316.3854423; +IT_WK=6508.16627893; +IT_XM=792.45269194; +IT_XMA=792.45269194; +IT_XOIL=8.44371332531; +IT_XT=800.896405265; +IT_X_RS1=1; +IT_X_RS2=0; +IT_YD=2165.56404681; +JA_A=783.056146905; +JA_ACT=63.5182611397; +JA_ALPHA1=0.078; +JA_ALPHA2=0.121; +JA_ALPHA3=0.0911709766895; +JA_B=259.101105567; +JA_BCHI1=21.2121212121; +JA_BCHI2=5.91549295775; +JA_BETA=0.43; +JA_BT=259.101105567; +JA_BT_GDP_RAT=0.22710463859; +JA_C=543.440832231; +JA_COIL=6.60124352681; +JA_CPI=1.46659153746; +JA_CPI_GAP_EXOG=0; +JA_CPI_TAR=1.46659153746; +JA_CU=100; +JA_CURBAL=151.027332837; +JA_C_DI=163.365868119; +JA_C_PI=380.074964113; +JA_DELTA=0.0353191039248; +JA_DELTA_SS=0.0353191039248; +JA_DEM3=0.638269939189; +JA_DLGDP=0.0217614806135; +JA_DLLF=-0.0101586915738; +JA_DLLF_SS=0; +JA_ER=9.25925280899; +JA_FACT=99.1282294501; +JA_G=133.195640388; +JA_GDEF=18.4718577163; +JA_GDP=775.773443241; +JA_GDP_FE=775.773443241; +JA_GDP_GAP_EXOG=0; +JA_GE=210.49870329; +JA_GEXOG=0; +JA_GNP=790.355189354; +JA_ICOM=8.10471508424; +JA_IM=73.6209617483; +JA_INFL=1.0270000062; +JA_INVEST=106.419674286; +JA_IOIL=6.25649765204; +JA_IT=87.9821744845; +JA_K=1897.42378099; +JA_LAMBDA=1; +JA_LAMBDA1=0.781339016115; +JA_LAMBDA2=0.887019030794; +JA_LAMBDA3=0.82137824171; +JA_LF=62800.2277851; +JA_M=131.832334634; +JA_MGROW=1.04959399462; +JA_MPC=0.0606503031206; +JA_MPCINV=16.4879637619; +JA_MPK=0.175808158375; +JA_MT=131.832334634; +JA_NEER=1.06586189299; +JA_NEER_PAR=1.06586189299; +JA_NFA=3196.30194739; +JA_NLIN=2.62369418144; +JA_P=1.44087235439; +JA_PAR=0.059922243377; +JA_PART=0.808249735683; +JA_PARUS=0.108000075236; +JA_PFM=1.33811031428; +JA_PGNP=1.44351384028; +JA_PGNPNO=1.44351605851; +JA_PGNPNO_GAP_EXOG=0; +JA_PGNPNO_TAR=1.44351605851; +JA_PGNP_GAP_EXOG=0; +JA_PGNP_TAR=1.44351384028; +JA_PHI=0; +JA_PIM=1.11076764325; +JA_PIMA=1.11076764325; +JA_PIT=1.15949407771; +JA_POP=127292; +JA_PREM=0; +JA_PROB=0.021; +JA_PRODOIL=0.0212147508622; +JA_PXM=1.15875219126; +JA_PXT=1.15949407771; +JA_P_GAP_EXOG=0; +JA_P_TAR=1.44087235439; +JA_Q=1.00001538804; +JA_R=0.0752690064927; +JA_RCI=-0.143914676498; +JA_RL=8.04040065237; +JA_RLR=0.052; +JA_RS=7.01340064617; +JA_RSCON=4.34920694771; +JA_RSCON2=0; +JA_RSR=0.042; +JA_RS_EXOG=7.01340064617; +JA_SIGMA=2.46201848984; +JA_TAX=192.026845573; +JA_TAXH=109.455301977; +JA_TAXK=82.5715435966; +JA_TAXK_ALPHA=0; +JA_TAXK_SHAR=0.43; +JA_TB=-8.44425176742; +JA_TFP_FE=0.0564765253676; +JA_TPREM=0.00959692898273; +JA_TRATE=0.16831339746; +JA_TRATEK=0.171477083005; +JA_TRATE_ALPHA=1; +JA_TRATE_EXOG=0.16831339746; +JA_UNR=2.62369409684; +JA_UNR_A=2.62369409684; +JA_UNR_FE=2.62369409684; +JA_UNR_GAP_EXOG=0; +JA_W=10917.9054016; +JA_WH=8550.40523148; +JA_WH1=4204.80911339; +JA_WH2=3088.71788415; +JA_WH3=3785.79550374; +JA_WK=1856.60530237; +JA_XM=80.4054846447; +JA_XMA=80.4054846447; +JA_XOIL=0.29398617645; +JA_XT=80.6994708212; +JA_X_RS1=1; +JA_X_RS2=0; +JA_YD=578.351766744; +PCOM=1.45590188668; +POIL=1.37222734974; +RES_CA_COIL=-0.0109079988152; +RES_CA_CPI=1.45716771982e-016; +RES_CA_C_DI=6.37971312724; +RES_CA_ER=2.22044604925e-016; +RES_CA_GNP=1.07016091968; +RES_CA_ICOM=0.33019785665; +RES_CA_IM=0.00235525414693; +RES_CA_IOIL=0.526458158973; +RES_CA_K=1.71000399694e-008; +RES_CA_M=-0.550565119176; +RES_CA_MPC=0.0725757835938; +RES_CA_NFA=-1.35976046915e-015; +RES_CA_P=-3.22528117171e-016; +RES_CA_PGNP=1.35421873758e-009; +RES_CA_PIM=0.0236040516254; +RES_CA_PXM=0.00836005025292; +RES_CA_RL=4.02455846427e-016; +RES_CA_RS=-1.41372510865e-025; +RES_CA_TFP_FE=-1.92607648534; +RES_CA_TRATE=-2.51618067138e-017; +RES_CA_UNR_A=5.67903297341e-014; +RES_CA_WH1=-2.98068141344e-007; +RES_CA_WH2=-4.05773425957e-007; +RES_CA_WH3=-3.31058461917e-007; +RES_CA_WK=0.0702500610208; +RES_CA_XM=0.00527196299678; +RES_DC_CTOT=0.422387255093; +RES_DC_DEBT=32.1888401163; +RES_DC_GDP_FE=0.931068718221; +RES_DC_IT=-3.51105481552e-014; +RES_DC_NFA=11.720990544; +RES_DC_PGNP=0.0565622498116; +RES_DC_PIM=0.000335349354246; +RES_DC_PIMA=0.000335349354246; +RES_DC_PXM=0.0667624996576; +RES_DC_QNT=-0.296439016955; +RES_DC_XOIL=194.336977011; +RES_DC_XSM=2.77221679942; +RES_FR_COIL=-0.0167592386654; +RES_FR_CPI=-1.38777878078e-016; +RES_FR_C_DI=176.647308119; +RES_FR_ER=2.22044604925e-016; +RES_FR_GNP=-6.83765577133; +RES_FR_ICOM=-0.146270714655; +RES_FR_IM=0.0188358301561; +RES_FR_IOIL=-1.09289296157; +RES_FR_K=4.02123033244e-008; +RES_FR_M=-0.750716274859; +RES_FR_MPC=0.0192892161783; +RES_FR_NFA=-2.9084127087e-015; +RES_FR_P=1.42177072593e-016; +RES_FR_PGNP=-9.91177872979e-010; +RES_FR_PIM=-0.0589379247028; +RES_FR_PXM=0.00111629219566; +RES_FR_RL=1.80411241502e-016; +RES_FR_RS=-1.0504879353e-025; +RES_FR_TFP_FE=-0.689357373461; +RES_FR_TRATE=-1.02390673979e-017; +RES_FR_UNR_A=-1.22338250303e-014; +RES_FR_WH1=-1.05051439415e-006; +RES_FR_WH2=-1.43011199597e-006; +RES_FR_WH3=-1.16678581671e-006; +RES_FR_WK=0.0473543323484; +RES_FR_XM=0.00458843620038; +RES_GR_COIL=-0.0599808385464; +RES_GR_CPI=-2.01227923213e-016; +RES_GR_C_DI=56.1113704318; +RES_GR_ER=2.22044604925e-016; +RES_GR_GNP=-2.55379408086; +RES_GR_ICOM=0.0122241574252; +RES_GR_IM=0.0111511469269; +RES_GR_IOIL=-2.88051845816; +RES_GR_K=2.00019476797e-008; +RES_GR_M=-0.582712538577; +RES_GR_MPC=0.0185606904822; +RES_GR_NFA=-2.24957186463e-015; +RES_GR_P=1.41759807568e-016; +RES_GR_PGNP=-5.67002899152e-010; +RES_GR_PIM=-0.0621848991172; +RES_GR_PXM=0.0020074176271; +RES_GR_RL=1.80411241502e-016; +RES_GR_RS=2.83313491133e-025; +RES_GR_TFP_FE=-1.48639600726; +RES_GR_TRATE=-2.93586865643e-017; +RES_GR_UNR_A=-1.00673945799e-014; +RES_GR_WH1=-5.67239752245e-007; +RES_GR_WH2=-7.7220871869e-007; +RES_GR_WH3=-6.30022112363e-007; +RES_GR_WK=0.0355104120004; +RES_GR_XM=-0.0095654330276; +RES_HO_ICOM=-3.79494263097; +RES_HO_IM=0.021778181942; +RES_HO_PIT=-0.0112362204049; +RES_HO_PXT=0.0213732250159; +RES_IT_COIL=-0.027413074423; +RES_IT_CPI=-4.85722573274e-017; +RES_IT_C_DI=23.2453468402; +RES_IT_ER=4.4408920985e-016; +RES_IT_GNP=-1.6599777279; +RES_IT_ICOM=0.172465314805; +RES_IT_IM=0.0787416293833; +RES_IT_IOIL=0.400434794101; +RES_IT_K=2.04877417533e-008; +RES_IT_M=-0.599367064131; +RES_IT_MPC=0.024983903402; +RES_IT_NFA=5.20512673071e-017; +RES_IT_P=-4.03009782146e-017; +RES_IT_PGNP=-1.86335704269e-009; +RES_IT_PIM=-0.0394139247307; +RES_IT_PXM=-0.00346055065303; +RES_IT_RL=1.80411241502e-016; +RES_IT_RS=-9.56044004053e-026; +RES_IT_TFP_FE=-1.55910377843; +RES_IT_TRATE=5.12930108144e-017; +RES_IT_UNR_A=-2.49703172526e-015; +RES_IT_WH1=-2.80708934474e-007; +RES_IT_WH2=-3.82141564777e-007; +RES_IT_WH3=-3.11777929959e-007; +RES_IT_WK=0.0524795286111; +RES_IT_XM=0.00382575709651; +RES_JA_COIL=-0.098310587964; +RES_JA_CPI=-1.97758476261e-016; +RES_JA_C_DI=9.19437254995; +RES_JA_ER=2.22044604925e-016; +RES_JA_GNP=-0.759041216713; +RES_JA_ICOM=-0.386447875848; +RES_JA_IM=0.0322950153553; +RES_JA_IOIL=-0.182557313543; +RES_JA_K=5.87450491463e-009; +RES_JA_M=-0.427124000253; +RES_JA_MPC=0.0362152885381; +RES_JA_NFA=-8.09336819432e-016; +RES_JA_P=1.45181614284e-016; +RES_JA_PGNP=-2.93727895115e-009; +RES_JA_PIM=-0.221200305623; +RES_JA_PXM=-0.000788854755803; +RES_JA_RL=-2.63677968348e-016; +RES_JA_RS=-8.13538550497e-026; +RES_JA_TFP_FE=-2.87393020739; +RES_JA_TRATE=-5.14825168766e-017; +RES_JA_UNR_A=3.81337021603e-015; +RES_JA_WH1=-5.41207974696e-007; +RES_JA_WH2=-7.36770500828e-007; +RES_JA_WH3=-6.01109125171e-007; +RES_JA_WK=0.071815561682; +RES_JA_XM=-0.191635175395; +RES_PCOM=2.96142508204; +RES_RW_PIM=0.179918124325; +RES_RW_PXM=0.000701519557326; +RES_RW_XM=0.00757522099654; +RES_SI_COIL=-0.0561108572625; +RES_SI_CPI=4.57966997658e-016; +RES_SI_C_DI=55.784039885; +RES_SI_ER=2.22044604925e-016; +RES_SI_GNP=-1.95141273136; +RES_SI_ICOM=-0.0689147298982; +RES_SI_IM=-0.00718032410169; +RES_SI_IOIL=-4.22515210093; +RES_SI_K=9.31431864482e-009; +RES_SI_M=-0.478584774363; +RES_SI_MPC=0.0226014551092; +RES_SI_NFA=2.63739383605e-015; +RES_SI_P=-1.38492650462e-016; +RES_SI_PGNP=9.74854052457e-010; +RES_SI_PIM=-0.0771624065748; +RES_SI_PXM=0.00971162329178; +RES_SI_RL=1.80411241502e-016; +RES_SI_RS=2.15290279144e-025; +RES_SI_TFP_FE=-2.00372760211; +RES_SI_TRATE=3.43291264805e-017; +RES_SI_UNR_A=-6.51192381672e-017; +RES_SI_WH1=-2.63320724475e-007; +RES_SI_WH2=-3.58470220651e-007; +RES_SI_WH3=-2.92465184612e-007; +RES_SI_WK=0.0389567669552; +RES_SI_XM=0.00581089017958; +RES_UK_COIL=-0.0806931765756; +RES_UK_CPI=9.02056207508e-017; +RES_UK_C_DI=-8.62271098965; +RES_UK_ER=2.22044604925e-016; +RES_UK_GNP=-0.9114566915; +RES_UK_ICOM=0.0371063111646; +RES_UK_IM=-0.000837070829134; +RES_UK_IOIL=-2.41279576534; +RES_UK_K=3.50187874409e-008; +RES_UK_M=-0.529762438429; +RES_UK_MPC=0.0444559224021; +RES_UK_NFA=-5.57685810744e-015; +RES_UK_P=-1.79670262479e-016; +RES_UK_PGNP=6.81994717598e-010; +RES_UK_PIM=0.0587561474127; +RES_UK_PXM=-0.00424513169106; +RES_UK_RL=1.80411241502e-016; +RES_UK_RS=-6.88768018652e-026; +RES_UK_TFP_FE=-2.47600195449; +RES_UK_TRATE=-9.43272633968e-018; +RES_UK_UNR_A=2.95170244024e-014; +RES_UK_WH1=-5.27106184031e-007; +RES_UK_WH2=-7.17573106004e-007; +RES_UK_WH3=-5.85446541819e-007; +RES_UK_WK=0.0308395179277; +RES_UK_XM=0.0108137902997; +RES_US_COIL=-0.0349556083001; +RES_US_CPI=-7.97972798949e-017; +RES_US_C_DI=-93.8135046341; +RES_US_ER=0; +RES_US_GNP=7.18062984233; +RES_US_ICOM=-0.094132087951; +RES_US_IM=-0.0175610612422; +RES_US_IOIL=2.19014971638; +RES_US_K=-5.62109347086e-008; +RES_US_M=-0.613986121855; +RES_US_MPC=0.0876209985143; +RES_US_NFA=-1.53995030743e-014; +RES_US_P=-4.20291712167e-017; +RES_US_PGNP=7.35968716581e-010; +RES_US_PIM=-0.0442566864737; +RES_US_PXM=-0.00187707613244; +RES_US_RL=1.80411241502e-016; +RES_US_RS=-2.40604412419e-025; +RES_US_TFP_FE=-1.8369647179; +RES_US_TRATE=-8.38593190783e-017; +RES_US_UNR_A=-4.47527360645e-015; +RES_US_WH1=-1.46913990487e-006; +RES_US_WH2=-2.000005534e-006; +RES_US_WH3=-1.63174499393e-006; +RES_US_WK=0.100484836793; +RES_US_XM=-0.00368724829424; +RES_WTRADE=-4.55499885022e-014; +RES_WTRADER=-4.486587131; +RPOIL=1.37209440777; +RW_ER=1; +RW_FACT=2225.86319145; +RW_IM=2380.60397123; +RW_INFL=1.0270000062; +RW_NEER=1.07755126355; +RW_PFM=1.29321620968; +RW_PIM=1.5063051999; +RW_PIMA=1.5063051999; +RW_PXM=1.52812049863; +RW_RCI=0.166906246657; +RW_XCOM=299.717894126; +RW_XM=1913.05652912; +RW_XMA=1913.05652912; +RW_XOIL=931.131716246; +SI_A=5117.76377531; +SI_ACT=1401.01452561; +SI_ALPHA1=0.078; +SI_ALPHA2=0.121; +SI_ALPHA3=0.0911709766895; +SI_B=2898.55852703; +SI_BCHI1=21.2121212121; +SI_BCHI2=5.91549295775; +SI_BETA=0.31; +SI_BT=2898.55852703; +SI_BT_GDP_RAT=0.351078837384; +SI_C=3549.9723216; +SI_COIL=62.0827158115; +SI_CPI=1.60754202926; +SI_CPI_GAP_EXOG=0; +SI_CPI_TAR=1.60754202926; +SI_CU=100; +SI_CURBAL=39.9640389591; +SI_C_DI=2222.98337367; +SI_C_PI=1326.98894793; +SI_DELTA=0.0276156380992; +SI_DELTA_SS=0.0276156380992; +SI_DEM3=0.522070543645; +SI_DLGDP=0.0217614806135; +SI_DLLF=-0.00284483828482; +SI_DLLF_SS=0; +SI_ER=0.85627815444; +SI_FACT=1607.96515637; +SI_G=988.882067352; +SI_GDEF=163.945930821; +SI_GDP=5101.35487684; +SI_GDP_FE=5101.35487684; +SI_GDP_GAP_EXOG=0; +SI_GE=1796.19136277; +SI_GEXOG=0; +SI_GNP=5138.84296627; +SI_ICOM=60.7931978894; +SI_IM=1701.62918621; +SI_INFL=1.0270000062; +SI_INVEST=578.909386351; +SI_IOIL=84.7602832535; +SI_IT=1847.18266735; +SI_K=11924.3496871; +SI_LAMBDA=0.87110388279; +SI_LAMBDA1=0.945988405976; +SI_LAMBDA2=0.98479623869; +SI_LAMBDA3=0.963368318818; +SI_LF=69787.1739395; +SI_M=571.14916167; +SI_MGROW=1.04959399462; +SI_MPC=0.0551206864881; +SI_MPCINV=18.142009175; +SI_MPK=0.132621069771; +SI_MT=571.14916167; +SI_NEER=0.882725108922; +SI_NEER_PAR=0.882725108922; +SI_NFA=845.78819708; +SI_NLIN=8.92256450653; +SI_P=1.60618595958; +SI_PAR=0.647961410008; +SI_PART=0.684748986472; +SI_PARUS=1.16784481166; +SI_PFM=1.57681314987; +SI_PGNP=1.60661595608; +SI_PGNPNO=1.60664357831; +SI_PGNPNO_GAP_EXOG=0; +SI_PGNPNO_TAR=1.60664357831; +SI_PGNP_GAP_EXOG=0; +SI_PGNP_TAR=1.60661595608; +SI_PHI=4.92256465201; +SI_PIM=1.45788972496; +SI_PIMA=1.45788972496; +SI_PIT=1.47250454613; +SI_POP=155124; +SI_PREM=0; +SI_PROB=0.021; +SI_PRODOIL=34.410559154; +SI_PXM=1.46722854834; +SI_PXT=1.47250454613; +SI_P_GAP_EXOG=0; +SI_P_TAR=1.60618595958; +SI_Q=1.00001195585; +SI_R=0.0752690064927; +SI_RCI=-0.0720305363805; +SI_RL=8.04040065237; +SI_RLR=0.052; +SI_RS=7.01340064617; +SI_RSCON=4.34920694771; +SI_RSCON2=0; +SI_RSR=0.042; +SI_RS_EXOG=7.01340064617; +SI_SIGMA=2.46201848984; +SI_TAX=1632.24543195; +SI_TAXH=1126.24934805; +SI_TAXK=505.996083905; +SI_TAXK_ALPHA=0; +SI_TAXK_SHAR=0.31; +SI_TB=-24.1621775859; +SI_TFP_FE=0.134831746225; +SI_TPREM=0.00959692898273; +SI_TRATE=0.197700623683; +SI_TRATEK=0.199153457065; +SI_TRATE_ALPHA=1; +SI_TRATE_EXOG=0.197700623683; +SI_UNR=8.92256465201; +SI_UNR_A=8.92256465201; +SI_UNR_FE=8.92256465201; +SI_UNR_GAP_EXOG=0; +SI_W=70393.2746601; +SI_WH=55950.3040857; +SI_WH1=27514.5261713; +SI_WH2=20211.2882576; +SI_WH3=24772.6749676; +SI_WK=11667.7893945; +SI_XM=1759.39366752; +SI_XMA=1759.39366752; +SI_XOIL=71.3801013646; +SI_XT=1830.77376889; +SI_X_RS1=1; +SI_X_RS2=0; +SI_YD=3764.28653477; +TME=56; +UK_A=1155.31070583; +UK_ACT=319.829953313; +UK_ALPHA1=0.078; +UK_ALPHA2=0.121; +UK_ALPHA3=0.0911709766895; +UK_B=582.359396161; +UK_BCHI1=21.2121212121; +UK_BCHI2=5.91549295775; +UK_BETA=0.31; +UK_BT=582.359396161; +UK_BT_GDP_RAT=0.303201156422; +UK_C=787.282698991; +UK_COIL=13.2084645927; +UK_CPI=1.65344105214; +UK_CPI_GAP_EXOG=0; +UK_CPI_TAR=1.65344105214; +UK_CU=100; +UK_CURBAL=36.6047768844; +UK_C_DI=415.845695136; +UK_C_PI=371.437003854; +UK_DELTA=0.0223378842507; +UK_DELTA_SS=0.0223378842507; +UK_DEM3=0.554484700166; +UK_DLGDP=0.0217614806135; +UK_DLLF=-0.002770417422; +UK_DLLF_SS=0; +UK_ER=1.63522100449; +UK_FACT=374.750092695; +UK_G=237.429954234; +UK_GDEF=31.0530122626; +UK_GDP=1146.69203206; +UK_GDP_FE=1146.69203206; +UK_GDP_GAP_EXOG=0; +UK_GE=432.934454507; +UK_GEXOG=0; +UK_GNP=1164.20179276; +UK_ICOM=11.251733102; +UK_IM=387.212098441; +UK_INFL=1.0270000062; +UK_INVEST=130.598052604; +UK_IOIL=6.64851932886; +UK_IT=405.112350872; +UK_K=3010.13959234; +UK_LAMBDA=1; +UK_LAMBDA1=0.943609109433; +UK_LAMBDA2=0.983826472125; +UK_LAMBDA3=0.961534659433; +UK_LF=28680.2495054; +UK_M=74.8382229877; +UK_MGROW=1.04959399462; +UK_MPC=0.0639968766536; +UK_MPCINV=15.625762573; +UK_MPK=0.118092373803; +UK_MT=74.8382229877; +UK_NEER=1.18232335241; +UK_NEER_PAR=1.18232335241; +UK_NFA=774.693675913; +UK_NLIN=6.24795866013; +UK_P=1.64752593728; +UK_PAR=0.339302882477; +UK_PART=0.743682280824; +UK_PARUS=0.611538132923; +UK_PFM=1.26531412293; +UK_PGNP=1.64980254779; +UK_PGNPNO=1.65412657552; +UK_PGNPNO_GAP_EXOG=0; +UK_PGNPNO_TAR=1.65412657552; +UK_PGNP_GAP_EXOG=0; +UK_PGNP_TAR=1.64980254779; +UK_PHI=2.24795877554; +UK_PIM=1.34388143146; +UK_PIMA=1.34388143146; +UK_PIT=1.34462885652; +UK_POP=59949; +UK_PREM=0; +UK_PROB=0.021; +UK_PRODOIL=14.4321078551; +UK_PXM=1.3460644352; +UK_PXT=1.34462885652; +UK_P_GAP_EXOG=0; +UK_P_TAR=1.64752593728; +UK_Q=1.00003342951; +UK_R=0.0752690064927; +UK_RCI=0.0618646918253; +UK_RL=8.04040065237; +UK_RLR=0.052; +UK_RS=7.01340064617; +UK_RSCON=4.34920694771; +UK_RSCON2=0; +UK_RSR=0.042; +UK_RS_EXOG=7.01340064617; +UK_SIGMA=2.46201848984; +UK_TAX=401.881442244; +UK_TAXH=277.298195149; +UK_TAXK=124.583247096; +UK_TAXK_ALPHA=0; +UK_TAXK_SHAR=0.31; +UK_TB=-11.5889174594; +UK_TFP_FE=0.0840787050036; +UK_TPREM=0.00959692898273; +UK_TRATE=0.209236630913; +UK_TRATEK=0.212431632914; +UK_TRATE_ALPHA=1; +UK_TRATE_EXOG=0.209236630913; +UK_UNR=6.24795877554; +UK_UNR_A=6.24795877554; +UK_UNR_FE=6.24795877554; +UK_UNR_GAP_EXOG=0; +UK_W=15847.0975967; +UK_WH=12215.2101092; +UK_WH1=6007.04006404; +UK_WH2=4412.57892481; +UK_WH3=5408.43226219; +UK_WK=2945.43253236; +UK_XM=380.460005673; +UK_XMA=380.460005673; +UK_XOIL=16.0336714261; +UK_XT=396.493677099; +UK_X_RS1=1; +UK_X_RS2=0; +UK_YD=838.553773434; +US_A=11697.616118; +US_ACT=1151.05134833; +US_ALPHA1=0.078; +US_ALPHA2=0.121; +US_ALPHA3=0.0911709766895; +US_B=5527.77752688; +US_BCHI1=21.2121212121; +US_BCHI2=5.91549295775; +US_BETA=0.29; +US_BT=5527.77752688; +US_BT_GDP_RAT=0.288490863185; +US_C=8506.90300877; +US_COIL=188.736419346; +US_CPI=1.68517625161; +US_CPI_GAP_EXOG=0; +US_CPI_TAR=1.68517625161; +US_CU=100; +US_CURBAL=-176.153365647; +US_C_DI=2451.73706272; +US_C_PI=6055.16594605; +US_DELTA=0.0683597148338; +US_DELTA_SS=0.0683597148338; +US_DEM3=0.528818264493; +US_DLGDP=0.0217614806134; +US_DLLF=0.00299350231857; +US_DLLF_SS=0; +US_ER=1; + US_FACT=1386.00982925; +US_G=1982.34035843; +US_GDEF=318.199955986; +US_GDP=11765.3659437; +US_GDP_FE=11765.3659437; +US_GDP_GAP_EXOG=0; +US_GE=3666.60708292; +US_GEXOG=0; +US_GNP=11627.4207057; +US_ICOM=71.8306349189; +US_IM=1673.26974695; +US_INFL=1.0270000062; +US_INVEST=1208.37275081; +US_IOIL=101.663326142; +US_IT=1846.76370801; +US_K=13666.6579593; +US_LAMBDA=0.690045535564; +US_LAMBDA1=0.80851637383; +US_LAMBDA2=0.90660357866; +US_LAMBDA3=0.846316827896; +US_LF=156293.686043; +US_M=1206.52095982; +US_MGROW=1.04959399462; +US_MPC=0.0815299669132; +US_MPCINV=12.265428748; +US_MPK=0.249655485185; +US_MT=1206.52095982; +US_NEER=1.04811209443; +US_NEER_PAR=1.04811209443; +US_NFA=-3728.06256376; +US_NLIN=5.86949110031; +US_P=1.64966441717; +US_PAR=0.55483520031; +US_PART=0.779438419387; +US_PARUS=1; +US_PFM=1.31987785254; +US_PGNP=1.64791613615; +US_PGNPNO=1.65037395412; +US_PGNPNO_GAP_EXOG=0; +US_PGNPNO_TAR=1.65037395412; +US_PGNP_GAP_EXOG=0; +US_PGNP_TAR=1.64791613615; +US_PHI=1.86949133476; +US_PIM=1.33975449819; +US_PIMA=1.33975449819; +US_PIT=1.34605971131; +US_POP=306560; +US_PREM=0; +US_PROB=0.021; +US_PRODOIL=103.96361969; +US_PXM=1.34592946401; +US_PXT=1.34605971131; +US_P_GAP_EXOG=0; +US_P_TAR=1.64966441717; +US_Q=1.00004024078; +US_R=0.0752690064927; +US_RCI=0.0195456293399; +US_RL=8.04040065237; +US_RLR=0.052; +US_RR=0.0721880064741; +US_RRBAR=0.0721880064741; +US_RS=7.01340064617; +US_RSCON=4.34920694771; +US_RSCON2=0; +US_RSR=0.042; +US_RS_EXOG=7.01340064617; +US_SIGMA=2.46201848984; +US_TAX=3348.40712693; +US_TAXH=2377.36906012; +US_TAXK=971.038066811; +US_TAXK_ALPHA=0; +US_TAXK_SHAR=0.29; +US_TB=91.1953108477; +US_TFP_FE=0.159300214125; +US_TPREM=0.00959692898273; +US_TRATE=0.174751038306; +US_TRATEK=0.172702137006; +US_TRATE_ALPHA=1; +US_TRATE_EXOG=0.174751038306; +US_UNR=5.86949133476; +US_UNR_A=5.86949133476; +US_UNR_FE=5.86949133476; +US_UNR_GAP_EXOG=0; +US_W=156126.123679; +US_WH=140930.833736; +US_WH1=69305.1660137; +US_WH2=50909.3516395; +US_WH3=62398.834003; +US_WK=13372.9581449; +US_XM=1905.03139485; +US_XMA=1905.03139485; +US_XOIL=9.48213887322; +US_XT=1914.51353373; +US_X_RS1=1; +US_X_RS2=0; +US_YD=8809.01195636; +WTRADE=15038.166239; +WTRADER=3382.59414741; +end; + + +//steady(solve_algo=1); +//check; + + + +options_.slowc = 1.0; +options_.dynatol = 1e-4; +options_.maxit_ = 5; + + +simul(periods=80,datafile=mark3,markowitz=3); + + +//simul(periods=10,datafile=mark3, method=lu); +//simul(periods=10,datafile=mark3 /*, method=BICGSTAB*/); + +oo_.endo_simul_ss=oo_.endo_simul; + +shocks; +var US_G; +periods 1; +values 4330.714737; +end; +/*simul(periods=10); + +oo_.endo_simul_sim=oo_.endo_simul; + +oo_.endo_simul=(oo_.endo_simul_sim./oo_.endo_simul_ss-1)*100; + +rplot WTRADER; +rplot US_GDP; */ \ No newline at end of file diff --git a/tests/block_bytecode/ramst.mod b/tests/block_bytecode/ramst.mod index 78bc84c99..aa3965661 100644 --- a/tests/block_bytecode/ramst.mod +++ b/tests/block_bytecode/ramst.mod @@ -1,37 +1,37 @@ -options_.maxit_ = 100; -var c k; -varexo x; - -parameters alph gam delt bet aa; -alph=0.5; -gam=0.5; -delt=0.02; -bet=0.05; -aa=0.5; - - -model(block, bytecode); -c + k - aa*x*k(-1)^alph - (1-delt)*k(-1); -c^(-gam) - (1+bet)^(-1)*(aa*alph*x(+1)*k^(alph-1) + 1 - delt)*c(+1)^(-gam); -end; - -initval; -x = 1; -k = ((delt+bet)/(1.0*aa*alph))^(1/(alph-1)); -c = aa*k^alph-delt*k; -end; - -steady(solve_algo = 5); - -//check; -model_info; -shocks; -var x; -periods 1; -values 1.02; -end; - -simul(periods = 200, stack_solve_algo = 5, markowitz = 2); - -rplot c; -rplot k; +options_.maxit_ = 100; +var c k; +varexo x; + +parameters alph gam delt bet aa; +alph=0.5; +gam=0.5; +delt=0.02; +bet=0.05; +aa=0.5; + + +model(block, bytecode); +c + k - aa*x*k(-1)^alph - (1-delt)*k(-1); +c^(-gam) - (1+bet)^(-1)*(aa*alph*x(+1)*k^(alph-1) + 1 - delt)*c(+1)^(-gam); +end; + +initval; +x = 1; +k = ((delt+bet)/(1.0*aa*alph))^(1/(alph-1)); +c = aa*k^alph-delt*k; +end; + +steady(solve_algo = 5); + +//check; +model_info; +shocks; +var x; +periods 1; +values 1.02; +end; + +simul(periods = 200, stack_solve_algo = 5, markowitz = 2); + +rplot c; +rplot k; diff --git a/tests/block_bytecode/ramst_a.mod b/tests/block_bytecode/ramst_a.mod index 21ad4bd24..7161c3735 100644 --- a/tests/block_bytecode/ramst_a.mod +++ b/tests/block_bytecode/ramst_a.mod @@ -1,37 +1,37 @@ -// check shocks on several periods -var c k; -varexo x; - -parameters alph gam delt bet aa; -alph=0.5; -gam=0.5; -delt=0.02; -bet=0.05; -aa=0.5; - - -model(block); -c + k - aa*x*k(-1)^alph - (1-delt)*k(-1); -c^(-gam) - (1+bet)^(-1)*(aa*alph*x(+1)*k^(alph-1) + 1 - delt)*c(+1)^(-gam); -end; - -initval; -x = 1; -k = ((delt+bet)/(1.0*aa*alph))^(1/(alph-1)); -c = aa*k^alph-delt*k +1 ; -end; - -steady; - -//check; - -shocks; -var x; -periods 1 2 3 4; -values 1.1 1.2 1.3 1.4; -end; - -simul(periods=200, stack_solve_algo = 2); - -rplot c; -rplot k; +// check shocks on several periods +var c k; +varexo x; + +parameters alph gam delt bet aa; +alph=0.5; +gam=0.5; +delt=0.02; +bet=0.05; +aa=0.5; + + +model(block); +c + k - aa*x*k(-1)^alph - (1-delt)*k(-1); +c^(-gam) - (1+bet)^(-1)*(aa*alph*x(+1)*k^(alph-1) + 1 - delt)*c(+1)^(-gam); +end; + +initval; +x = 1; +k = ((delt+bet)/(1.0*aa*alph))^(1/(alph-1)); +c = aa*k^alph-delt*k +1 ; +end; + +steady; + +//check; + +shocks; +var x; +periods 1 2 3 4; +values 1.1 1.2 1.3 1.4; +end; + +simul(periods=200, stack_solve_algo = 2); + +rplot c; +rplot k; diff --git a/tests/bvar_a_la_sims/bvar_and_dsge.mod b/tests/bvar_a_la_sims/bvar_and_dsge.mod index b4f1f0651..34e22073b 100644 --- a/tests/bvar_a_la_sims/bvar_and_dsge.mod +++ b/tests/bvar_a_la_sims/bvar_and_dsge.mod @@ -1,30 +1,30 @@ -var dx dy; -varexo e_x e_y; - -parameters rho_x rho_y; - -rho_x = 0.5; -rho_y = -0.3; - -model; -dx = rho_x*dx(-1)+e_x; -dy = rho_y*dy(-1)+e_y; -end; - -estimated_params; -rho_x,NORMAL_PDF,0.5,0.1; -rho_y,NORMAL_PDF,-0.3,0.1; -stderr e_x,INV_GAMMA_PDF,0.01,inf; -stderr e_y,INV_GAMMA_PDF,0.01,inf; -end; - -varobs dx dy; - -check; - -estimation(datafile = bvar_sample, mh_replic = 1200, mh_jscale = 1.3, - first_obs = 9); - -bvar_density 8; - -bvar_forecast(forecast = 10, bvar_replic = 2000, nobs = 200) 8; +var dx dy; +varexo e_x e_y; + +parameters rho_x rho_y; + +rho_x = 0.5; +rho_y = -0.3; + +model; +dx = rho_x*dx(-1)+e_x; +dy = rho_y*dy(-1)+e_y; +end; + +estimated_params; +rho_x,NORMAL_PDF,0.5,0.1; +rho_y,NORMAL_PDF,-0.3,0.1; +stderr e_x,INV_GAMMA_PDF,0.01,inf; +stderr e_y,INV_GAMMA_PDF,0.01,inf; +end; + +varobs dx dy; + +check; + +estimation(datafile = bvar_sample, mh_replic = 1200, mh_jscale = 1.3, + first_obs = 9); + +bvar_density 8; + +bvar_forecast(forecast = 10, bvar_replic = 2000, nobs = 200) 8; diff --git a/tests/data/mod1a.mod b/tests/data/mod1a.mod index de402e0cb..8e74f3e1a 100644 --- a/tests/data/mod1a.mod +++ b/tests/data/mod1a.mod @@ -1,23 +1,23 @@ -var dx dy; -varexo e_x e_y; - -parameters rho_x rho_y; - -rho_x = 0.5; -rho_y = -0.3; - -model; -dx = rho_x*dx(-1)+e_x; -dy = rho_y*dy(-1)+e_y; -end; - -estimated_params; -rho_x,NORMAL_PDF,0.5,0.1; -rho_y,NORMAL_PDF,-0.3,0.1; -stderr e_x,INV_GAMMA_PDF,0.01,inf; -stderr e_y,INV_GAMMA_PDF,0.01,inf; -end; - -varobs dx dy; -check; +var dx dy; +varexo e_x e_y; + +parameters rho_x rho_y; + +rho_x = 0.5; +rho_y = -0.3; + +model; +dx = rho_x*dx(-1)+e_x; +dy = rho_y*dy(-1)+e_y; +end; + +estimated_params; +rho_x,NORMAL_PDF,0.5,0.1; +rho_y,NORMAL_PDF,-0.3,0.1; +stderr e_x,INV_GAMMA_PDF,0.01,inf; +stderr e_y,INV_GAMMA_PDF,0.01,inf; +end; + +varobs dx dy; +check; estimation(datafile=test,nobs=1000,mh_replic=2000,mh_jscale=1.3); \ No newline at end of file diff --git a/tests/example2.mod b/tests/example2.mod index e2c4eeb1b..3c01e7e2b 100644 --- a/tests/example2.mod +++ b/tests/example2.mod @@ -1,44 +1,44 @@ -// example 2 from Collard's guide to Dynare -var y, c, k, a, h, b; -varexo e,u; - -parameters beta, rho, beta, alpha, delta, theta, psi, tau ; - -alpha = 0.36; -rho = 0.95; -tau = 0.025; -beta = 0.99; -delta = 0.025; -psi = 0; -theta = 2.95; - -model; -exp(c)*theta*exp(h)^(1+psi)=(1-alpha)*exp(y); -exp(k) = beta*(((exp(b)*exp(c))/(exp(b(+1))*exp(c(+1)))) - *(exp(b(+1))*alpha*exp(y(+1))+(1-delta)*exp(k))); -exp(y) = exp(a)*(exp(k(-1))^alpha)*(exp(h)^(1-alpha)); -exp(k) = exp(b)*(exp(y)-exp(c))+(1-delta)*exp(k(-1)); -a = rho*a(-1)+tau*b(-1) + e; -b = tau*a(-1)+rho*b(-1) + u; -end; - -initval; -y = 0.1; -c = -0.2; -h = -1.2; -k = 2.4; -a = 0; -b = 0; -e = 0; -u = 0; -end; - -steady; - -shocks; -var e = 0.009^2; -var u = 0.009^2; -end; - -stoch_simul(dr_algo=1,drop=200); - +// example 2 from Collard's guide to Dynare +var y, c, k, a, h, b; +varexo e,u; + +parameters beta, rho, beta, alpha, delta, theta, psi, tau ; + +alpha = 0.36; +rho = 0.95; +tau = 0.025; +beta = 0.99; +delta = 0.025; +psi = 0; +theta = 2.95; + +model; +exp(c)*theta*exp(h)^(1+psi)=(1-alpha)*exp(y); +exp(k) = beta*(((exp(b)*exp(c))/(exp(b(+1))*exp(c(+1)))) + *(exp(b(+1))*alpha*exp(y(+1))+(1-delta)*exp(k))); +exp(y) = exp(a)*(exp(k(-1))^alpha)*(exp(h)^(1-alpha)); +exp(k) = exp(b)*(exp(y)-exp(c))+(1-delta)*exp(k(-1)); +a = rho*a(-1)+tau*b(-1) + e; +b = tau*a(-1)+rho*b(-1) + u; +end; + +initval; +y = 0.1; +c = -0.2; +h = -1.2; +k = 2.4; +a = 0; +b = 0; +e = 0; +u = 0; +end; + +steady; + +shocks; +var e = 0.009^2; +var u = 0.009^2; +end; + +stoch_simul(dr_algo=1,drop=200); + diff --git a/tests/fs2000/fs2000.mod b/tests/fs2000/fs2000.mod index 14947d7ad..ace92ed11 100644 --- a/tests/fs2000/fs2000.mod +++ b/tests/fs2000/fs2000.mod @@ -1,89 +1,89 @@ -// This file replicates the estimation of the CIA model from -// Frank Schorfheide (2000) "Loss function-based evaluation of DSGE models" -// Journal of Applied Econometrics, 15, 645-670. -// the data are the ones provided on Schorfheide's web site with the programs. -// http://www.econ.upenn.edu/~schorf/programs/dsgesel.ZIP -// You need to have fsdat.m in the same directory as this file. -// This file replicates: -// -the posterior mode as computed by Frank's Gauss programs -// -the parameter mean posterior estimates reported in the paper -// -the model probability (harmonic mean) reported in the paper -// This file was tested with dyn_mat_test_0218.zip -// the smooth shocks are probably stil buggy -// -// The equations are taken from J. Nason and T. Cogley (1994) -// "Testing the implications of long-run neutrality for monetary business -// cycle models" Journal of Applied Econometrics, 9, S37-S70. -// Note that there is an initial minus sign missing in equation (A1), p. S63. -// -// Michel Juillard, February 2004 - -var m P c e W R k d n l gy_obs gp_obs y dA; -varexo e_a e_m; - -parameters alp bet gam mst rho psi del; - -alp = 0.33; -bet = 0.99; -gam = 0.003; -mst = 1.011; -rho = 0.7; -psi = 0.787; -del = 0.02; - -model; -dA = exp(gam+e_a); -log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; --P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; -W = l/n; --(psi/(1-psi))*(c*P/(1-n))+l/n = 0; -R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; -1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; -c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); -P*c = m; -m-1+d = l; -e = exp(e_a); -y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); -gy_obs = dA*y/y(-1); -gp_obs = (P/P(-1))*m(-1)/dA; -end; - -initval; -k = 6; -m = mst; -P = 2.25; -c = 0.45; -e = 1; -W = 4; -R = 1.02; -d = 0.85; -n = 0.19; -l = 0.86; -y = 0.6; -gy_obs = exp(gam); -gp_obs = exp(-gam); -dA = exp(gam); -end; - -shocks; -var e_a; stderr 0.014; -var e_m; stderr 0.005; -end; - -steady; - -estimated_params; -alp, beta_pdf, 0.356, 0.02; -bet, beta_pdf, 0.993, 0.002; -gam, normal_pdf, 0.0085, 0.003; -mst, normal_pdf, 1.0002, 0.007; -rho, beta_pdf, 0.129, 0.223; -psi, beta_pdf, 0.65, 0.05; -del, beta_pdf, 0.01, 0.005; -stderr e_a, inv_gamma_pdf, 0.035449, inf; -stderr e_m, inv_gamma_pdf, 0.008862, inf; -end; - -varobs gp_obs gy_obs; - +// This file replicates the estimation of the CIA model from +// Frank Schorfheide (2000) "Loss function-based evaluation of DSGE models" +// Journal of Applied Econometrics, 15, 645-670. +// the data are the ones provided on Schorfheide's web site with the programs. +// http://www.econ.upenn.edu/~schorf/programs/dsgesel.ZIP +// You need to have fsdat.m in the same directory as this file. +// This file replicates: +// -the posterior mode as computed by Frank's Gauss programs +// -the parameter mean posterior estimates reported in the paper +// -the model probability (harmonic mean) reported in the paper +// This file was tested with dyn_mat_test_0218.zip +// the smooth shocks are probably stil buggy +// +// The equations are taken from J. Nason and T. Cogley (1994) +// "Testing the implications of long-run neutrality for monetary business +// cycle models" Journal of Applied Econometrics, 9, S37-S70. +// Note that there is an initial minus sign missing in equation (A1), p. S63. +// +// Michel Juillard, February 2004 + +var m P c e W R k d n l gy_obs gp_obs y dA; +varexo e_a e_m; + +parameters alp bet gam mst rho psi del; + +alp = 0.33; +bet = 0.99; +gam = 0.003; +mst = 1.011; +rho = 0.7; +psi = 0.787; +del = 0.02; + +model; +dA = exp(gam+e_a); +log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; +-P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; +W = l/n; +-(psi/(1-psi))*(c*P/(1-n))+l/n = 0; +R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; +1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; +c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); +P*c = m; +m-1+d = l; +e = exp(e_a); +y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); +gy_obs = dA*y/y(-1); +gp_obs = (P/P(-1))*m(-1)/dA; +end; + +initval; +k = 6; +m = mst; +P = 2.25; +c = 0.45; +e = 1; +W = 4; +R = 1.02; +d = 0.85; +n = 0.19; +l = 0.86; +y = 0.6; +gy_obs = exp(gam); +gp_obs = exp(-gam); +dA = exp(gam); +end; + +shocks; +var e_a; stderr 0.014; +var e_m; stderr 0.005; +end; + +steady; + +estimated_params; +alp, beta_pdf, 0.356, 0.02; +bet, beta_pdf, 0.993, 0.002; +gam, normal_pdf, 0.0085, 0.003; +mst, normal_pdf, 1.0002, 0.007; +rho, beta_pdf, 0.129, 0.223; +psi, beta_pdf, 0.65, 0.05; +del, beta_pdf, 0.01, 0.005; +stderr e_a, inv_gamma_pdf, 0.035449, inf; +stderr e_m, inv_gamma_pdf, 0.008862, inf; +end; + +varobs gp_obs gy_obs; + estimation(datafile=fsdat,nobs=192,loglinear,mh_replic=2000,mh_nblocks=5,mh_jscale=0.8); \ No newline at end of file diff --git a/tests/fs2000/fs2000b.mod b/tests/fs2000/fs2000b.mod index f6b2c2016..bead541ea 100644 --- a/tests/fs2000/fs2000b.mod +++ b/tests/fs2000/fs2000b.mod @@ -1,102 +1,102 @@ -// This file replicates the estimation of the CIA model from -// Frank Schorfheide (2000) "Loss function-based evaluation of DSGE models" -// Journal of Applied Econometrics, 15, 645-670. -// the data are the ones provided on Schorfheide's web site with the programs. -// http://www.econ.upenn.edu/~schorf/programs/dsgesel.ZIP -// You need to have fsdat.m in the same directory as this file. -// This file replicates: -// -the posterior mode as computed by Frank's Gauss programs -// -the parameter mean posterior estimates reported in the paper -// -the model probability (harmonic mean) reported in the paper -// This file was tested with dyn_mat_test_0218.zip -// the smooth shocks are probably stil buggy -// -// The equations are taken from J. Nason and T. Cogley (1994) -// "Testing the implications of long-run neutrality for monetary business -// cycle models" Journal of Applied Econometrics, 9, S37-S70. -// Note that there is an initial minus sign missing in equation (A1), p. S63. -// -// Michel Juillard, February 2004 - -var m P c e W R k d n l gy_obs gp_obs Y_obs P_obs y dA; -varexo e_a e_m; - -parameters alp bet gam mst rho psi del; - -alp = 0.33; -bet = 0.99; -gam = 0.003; -mst = 1.011; -rho = 0.7; -psi = 0.787; -del = 0.02; - -model; -dA = exp(gam+e_a); -log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; --P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; -W = l/n; --(psi/(1-psi))*(c*P/(1-n))+l/n = 0; -R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; -1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; -c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); -P*c = m; -m-1+d = l; -e = exp(e_a); -y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); -gy_obs = dA*y/y(-1); -gp_obs = (P/P(-1))*m(-1)/dA; -Y_obs/Y_obs(-1) = gy_obs; -P_obs/P_obs(-1) = gp_obs; -end; - -initval; -k = 6; -m = mst; -P = 2.25; -c = 0.45; -e = 1; -W = 4; -R = 1.02; -d = 0.85; -n = 0.19; -l = 0.86; -y = 0.6; -gy_obs = exp(gam); -gp_obs = exp(-gam); -dA = exp(gam); -end; - -shocks; -var e_a; stderr 0.014; -var e_m; stderr 0.005; -end; - -steady; - -check; - -estimated_params; -alp, beta_pdf, 0.356, 0.02; -bet, beta_pdf, 0.993, 0.002; -gam, normal_pdf, 0.0085, 0.003; -mst, normal_pdf, 1.0002, 0.007; -rho, beta_pdf, 0.129, 0.223; -psi, beta_pdf, 0.65, 0.05; -del, beta_pdf, 0.01, 0.005; -stderr e_a, inv_gamma_pdf, 0.035449, inf; -stderr e_m, inv_gamma_pdf, 0.008862, inf; -end; - -varobs P_obs Y_obs; - -observation_trends; -P_obs (log(mst)-gam); -Y_obs (gam); -end; - -unit_root_vars P_obs Y_obs; - -//stoch_simul(order=1,nomoments,irf=0); -estimation(datafile=fsdat,nobs=192,loglinear,mh_replic=0,mh_nblocks=2,mh_drop=0.45,mode_compute=0,mode_file=fs2000b_mode,load_mh_file); -stab_map_; +// This file replicates the estimation of the CIA model from +// Frank Schorfheide (2000) "Loss function-based evaluation of DSGE models" +// Journal of Applied Econometrics, 15, 645-670. +// the data are the ones provided on Schorfheide's web site with the programs. +// http://www.econ.upenn.edu/~schorf/programs/dsgesel.ZIP +// You need to have fsdat.m in the same directory as this file. +// This file replicates: +// -the posterior mode as computed by Frank's Gauss programs +// -the parameter mean posterior estimates reported in the paper +// -the model probability (harmonic mean) reported in the paper +// This file was tested with dyn_mat_test_0218.zip +// the smooth shocks are probably stil buggy +// +// The equations are taken from J. Nason and T. Cogley (1994) +// "Testing the implications of long-run neutrality for monetary business +// cycle models" Journal of Applied Econometrics, 9, S37-S70. +// Note that there is an initial minus sign missing in equation (A1), p. S63. +// +// Michel Juillard, February 2004 + +var m P c e W R k d n l gy_obs gp_obs Y_obs P_obs y dA; +varexo e_a e_m; + +parameters alp bet gam mst rho psi del; + +alp = 0.33; +bet = 0.99; +gam = 0.003; +mst = 1.011; +rho = 0.7; +psi = 0.787; +del = 0.02; + +model; +dA = exp(gam+e_a); +log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; +-P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; +W = l/n; +-(psi/(1-psi))*(c*P/(1-n))+l/n = 0; +R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; +1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; +c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); +P*c = m; +m-1+d = l; +e = exp(e_a); +y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); +gy_obs = dA*y/y(-1); +gp_obs = (P/P(-1))*m(-1)/dA; +Y_obs/Y_obs(-1) = gy_obs; +P_obs/P_obs(-1) = gp_obs; +end; + +initval; +k = 6; +m = mst; +P = 2.25; +c = 0.45; +e = 1; +W = 4; +R = 1.02; +d = 0.85; +n = 0.19; +l = 0.86; +y = 0.6; +gy_obs = exp(gam); +gp_obs = exp(-gam); +dA = exp(gam); +end; + +shocks; +var e_a; stderr 0.014; +var e_m; stderr 0.005; +end; + +steady; + +check; + +estimated_params; +alp, beta_pdf, 0.356, 0.02; +bet, beta_pdf, 0.993, 0.002; +gam, normal_pdf, 0.0085, 0.003; +mst, normal_pdf, 1.0002, 0.007; +rho, beta_pdf, 0.129, 0.223; +psi, beta_pdf, 0.65, 0.05; +del, beta_pdf, 0.01, 0.005; +stderr e_a, inv_gamma_pdf, 0.035449, inf; +stderr e_m, inv_gamma_pdf, 0.008862, inf; +end; + +varobs P_obs Y_obs; + +observation_trends; +P_obs (log(mst)-gam); +Y_obs (gam); +end; + +unit_root_vars P_obs Y_obs; + +//stoch_simul(order=1,nomoments,irf=0); +estimation(datafile=fsdat,nobs=192,loglinear,mh_replic=0,mh_nblocks=2,mh_drop=0.45,mode_compute=0,mode_file=fs2000b_mode,load_mh_file); +stab_map_; diff --git a/tests/k_order_perturbation/fs2000k++.mod b/tests/k_order_perturbation/fs2000k++.mod index 09889b70c..59079db16 100644 --- a/tests/k_order_perturbation/fs2000k++.mod +++ b/tests/k_order_perturbation/fs2000k++.mod @@ -1,59 +1,59 @@ -/* Used to check that Dynare++ and Dynare with k_order_solver=1 give the same result */ - -var m m_1 P P_1 c e W R k d n l gy_obs gp_obs y dA P2 c2; -varexo e_a e_m; - -parameters alp bet gam mst rho psi del; - -alp = 0.33; -bet = 0.99; -gam = 0.003; -mst = 1.011; -rho = 0.7; -psi = 0.787; -del = 0.02; - -model; -dA = exp(gam+e_a); -log(m) = (1-rho)*log(mst) + rho*log(m_1(-1))+e_m; --P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c2(+1)*P2(+1)*m(+1))=0; -W = l/n; --(psi/(1-psi))*(c*P/(1-n))+l/n = 0; -R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; -1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; -c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); -P*c = m; -m-1+d = l; -e = exp(e_a); -y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); -gy_obs = dA*y/y(-1); -gp_obs = (P/P_1(-1))*m_1(-1)/dA; -P2 = P(+1); -c2 = c(+1); -m_1 = m; -P_1 = P; -end; - -initval; -m = mst; -m_1=mst; -P = 2.25; -P_1 = 2.25; -c = 0.45; -e = 1; -W = 4; -R = 1.02; -k = 6; -d = 0.85; -n = 0.19; -l = 0.86; -y = 0.6; -gy_obs = exp(gam); -gp_obs = exp(-gam); -dA = exp(gam); - P2=P; - c2=c; -end; - -vcov = [0.014, 0;0, 0.005]; - +/* Used to check that Dynare++ and Dynare with k_order_solver=1 give the same result */ + +var m m_1 P P_1 c e W R k d n l gy_obs gp_obs y dA P2 c2; +varexo e_a e_m; + +parameters alp bet gam mst rho psi del; + +alp = 0.33; +bet = 0.99; +gam = 0.003; +mst = 1.011; +rho = 0.7; +psi = 0.787; +del = 0.02; + +model; +dA = exp(gam+e_a); +log(m) = (1-rho)*log(mst) + rho*log(m_1(-1))+e_m; +-P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c2(+1)*P2(+1)*m(+1))=0; +W = l/n; +-(psi/(1-psi))*(c*P/(1-n))+l/n = 0; +R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; +1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; +c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); +P*c = m; +m-1+d = l; +e = exp(e_a); +y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); +gy_obs = dA*y/y(-1); +gp_obs = (P/P_1(-1))*m_1(-1)/dA; +P2 = P(+1); +c2 = c(+1); +m_1 = m; +P_1 = P; +end; + +initval; +m = mst; +m_1=mst; +P = 2.25; +P_1 = 2.25; +c = 0.45; +e = 1; +W = 4; +R = 1.02; +k = 6; +d = 0.85; +n = 0.19; +l = 0.86; +y = 0.6; +gy_obs = exp(gam); +gp_obs = exp(-gam); +dA = exp(gam); + P2=P; + c2=c; +end; + +vcov = [0.014, 0;0, 0.005]; + diff --git a/tests/k_order_perturbation/fs2000k2.mod b/tests/k_order_perturbation/fs2000k2.mod index a1997539f..af7f2fb52 100644 --- a/tests/k_order_perturbation/fs2000k2.mod +++ b/tests/k_order_perturbation/fs2000k2.mod @@ -1,87 +1,87 @@ -/* Checks that, for order = 2, k_order_solver = 0 (fs2000k2a) - and k_order_solver = 1 (this file) give the same results */ - -var m P c e W R k d n l gy_obs gp_obs y dA ; -varexo e_a e_m; - -parameters alp bet gam mst rho psi del; - -alp = 0.33; -bet = 0.99; -gam = 0.003; -mst = 1.011; -rho = 0.7; -psi = 0.787; -del = 0.02; - -model (use_dll); -dA = exp(gam+e_a); -log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; --P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; -W = l/n; --(psi/(1-psi))*(c*P/(1-n))+l/n = 0; -R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; -1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; -c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); -P*c = m; -m-1+d = l; -e = exp(e_a); -y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); -gy_obs = dA*y/y(-1); -gp_obs = (P/P(-1))*m(-1)/dA; -end; - -initval; -m = mst; -P = 2.25; -c = 0.45; -e = 1; -W = 4; -R = 1.02; -k = 6; -d = 0.85; -n = 0.19; -l = 0.86; -y = 0.6; -gy_obs = exp(gam); -gp_obs = exp(-gam); -dA = exp(gam); -end; - -shocks; -var e_a; stderr 0.014; -var e_m; stderr 0.005; -end; - -steady; - -stoch_simul(order=2,k_order_solver,periods=1000); - -if ~exist('fs2000k2a_results.mat','file'); - error('fs2000k2a must be run first'); -end; - -oo1 = load('fs2000k2a_results','oo_'); - -dr0 = oo1.oo_.dr; -dr = oo_.dr; - -if max(max(abs(dr0.ghx - dr.ghx))) > 1e-12; - error('error in ghx'); -end; -if max(max(abs(dr0.ghu - dr.ghu))) > 1e-12; - error('error in ghu'); -end; -if max(max(abs(dr0.ghxx - dr.ghxx))) > 1e-12; - error('error in ghxx'); -end; -if max(max(abs(dr0.ghuu - dr.ghuu))) > 1e-12; - error('error in ghuu'); -end; -if max(max(abs(dr0.ghxu - dr.ghxu))) > 1e-12; - error('error in ghxu'); -end; -if max(max(abs(dr0.ghs2 - dr.ghs2))) > 1e-12; - error('error in ghs2'); -end; - +/* Checks that, for order = 2, k_order_solver = 0 (fs2000k2a) + and k_order_solver = 1 (this file) give the same results */ + +var m P c e W R k d n l gy_obs gp_obs y dA ; +varexo e_a e_m; + +parameters alp bet gam mst rho psi del; + +alp = 0.33; +bet = 0.99; +gam = 0.003; +mst = 1.011; +rho = 0.7; +psi = 0.787; +del = 0.02; + +model (use_dll); +dA = exp(gam+e_a); +log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; +-P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; +W = l/n; +-(psi/(1-psi))*(c*P/(1-n))+l/n = 0; +R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; +1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; +c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); +P*c = m; +m-1+d = l; +e = exp(e_a); +y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); +gy_obs = dA*y/y(-1); +gp_obs = (P/P(-1))*m(-1)/dA; +end; + +initval; +m = mst; +P = 2.25; +c = 0.45; +e = 1; +W = 4; +R = 1.02; +k = 6; +d = 0.85; +n = 0.19; +l = 0.86; +y = 0.6; +gy_obs = exp(gam); +gp_obs = exp(-gam); +dA = exp(gam); +end; + +shocks; +var e_a; stderr 0.014; +var e_m; stderr 0.005; +end; + +steady; + +stoch_simul(order=2,k_order_solver,periods=1000); + +if ~exist('fs2000k2a_results.mat','file'); + error('fs2000k2a must be run first'); +end; + +oo1 = load('fs2000k2a_results','oo_'); + +dr0 = oo1.oo_.dr; +dr = oo_.dr; + +if max(max(abs(dr0.ghx - dr.ghx))) > 1e-12; + error('error in ghx'); +end; +if max(max(abs(dr0.ghu - dr.ghu))) > 1e-12; + error('error in ghu'); +end; +if max(max(abs(dr0.ghxx - dr.ghxx))) > 1e-12; + error('error in ghxx'); +end; +if max(max(abs(dr0.ghuu - dr.ghuu))) > 1e-12; + error('error in ghuu'); +end; +if max(max(abs(dr0.ghxu - dr.ghxu))) > 1e-12; + error('error in ghxu'); +end; +if max(max(abs(dr0.ghs2 - dr.ghs2))) > 1e-12; + error('error in ghs2'); +end; + diff --git a/tests/k_order_perturbation/fs2000k2a.mod b/tests/k_order_perturbation/fs2000k2a.mod index d3c22a442..d98fd1f4b 100644 --- a/tests/k_order_perturbation/fs2000k2a.mod +++ b/tests/k_order_perturbation/fs2000k2a.mod @@ -1,60 +1,60 @@ -/* Checks that, for order = 2, k_order_solver = 0 (this file) - and k_order_solver = 1 (fs2000k2) give the same results */ - -var m P c e W R k d n l gy_obs gp_obs y dA ; -varexo e_a e_m; - -parameters alp bet gam mst rho psi del; - -alp = 0.33; -bet = 0.99; -gam = 0.003; -mst = 1.011; -rho = 0.7; -psi = 0.787; -del = 0.02; - -model; -dA = exp(gam+e_a); -log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; --P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; -W = l/n; --(psi/(1-psi))*(c*P/(1-n))+l/n = 0; -R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; -1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; -c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); -P*c = m; -m-1+d = l; -e = exp(e_a); -y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); -gy_obs = dA*y/y(-1); -gp_obs = (P/P(-1))*m(-1)/dA; -end; - -initval; -m = mst; -P = 2.25; -c = 0.45; -e = 1; -W = 4; -R = 1.02; -k = 6; -d = 0.85; -n = 0.19; -l = 0.86; -y = 0.6; -gy_obs = exp(gam); -gp_obs = exp(-gam); -dA = exp(gam); -end; - -shocks; -var e_a; stderr 0.014; -var e_m; stderr 0.005; -end; - -steady; - -stoch_simul(order=2); - - +/* Checks that, for order = 2, k_order_solver = 0 (this file) + and k_order_solver = 1 (fs2000k2) give the same results */ + +var m P c e W R k d n l gy_obs gp_obs y dA ; +varexo e_a e_m; + +parameters alp bet gam mst rho psi del; + +alp = 0.33; +bet = 0.99; +gam = 0.003; +mst = 1.011; +rho = 0.7; +psi = 0.787; +del = 0.02; + +model; +dA = exp(gam+e_a); +log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; +-P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; +W = l/n; +-(psi/(1-psi))*(c*P/(1-n))+l/n = 0; +R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; +1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; +c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); +P*c = m; +m-1+d = l; +e = exp(e_a); +y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); +gy_obs = dA*y/y(-1); +gp_obs = (P/P(-1))*m(-1)/dA; +end; + +initval; +m = mst; +P = 2.25; +c = 0.45; +e = 1; +W = 4; +R = 1.02; +k = 6; +d = 0.85; +n = 0.19; +l = 0.86; +y = 0.6; +gy_obs = exp(gam); +gp_obs = exp(-gam); +dA = exp(gam); +end; + +shocks; +var e_a; stderr 0.014; +var e_m; stderr 0.005; +end; + +steady; + +stoch_simul(order=2); + + diff --git a/tests/k_order_perturbation/fs2000k3.mod b/tests/k_order_perturbation/fs2000k3.mod index a5cab25a1..e7c201522 100644 --- a/tests/k_order_perturbation/fs2000k3.mod +++ b/tests/k_order_perturbation/fs2000k3.mod @@ -1,80 +1,80 @@ -// checks whether second order coefficients are the same with order=2 and order=3 with k_order_solver=1 - -var m P c e W R k d n l gy_obs gp_obs y dA ; -varexo e_a e_m; - -parameters alp bet gam mst rho psi del; - -alp = 0.33; -bet = 0.99; -gam = 0.003; -mst = 1.011; -rho = 0.7; -psi = 0.787; -del = 0.02; - -model (use_dll); -dA = exp(gam+e_a); -log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; --P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; -W = l/n; --(psi/(1-psi))*(c*P/(1-n))+l/n = 0; -R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; -1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; -c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); -P*c = m; -m-1+d = l; -e = exp(e_a); -y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); -gy_obs = dA*y/y(-1); -gp_obs = (P/P(-1))*m(-1)/dA; -end; - -initval; -m = mst; -P = 2.25; -c = 0.45; -e = 1; -W = 4; -R = 1.02; -k = 6; -d = 0.85; -n = 0.19; -l = 0.86; -y = 0.6; -gy_obs = exp(gam); -gp_obs = exp(-gam); -dA = exp(gam); -end; - -shocks; -var e_a; stderr 0.014; -var e_m; stderr 0.005; -end; - -steady; - -stoch_simul(order=3,periods=1000); - -if ~exist('fs2000k2a_results.mat','file'); - error('fs2000k2a must be run first'); -end; - -oo1 = load('fs2000k2a_results','oo_'); - -dr0 = oo1.oo_.dr; -dr = oo_.dr; - -if max(max(abs(dr0.ghxx - dr.ghxx))) > 1e-12; - error('error in ghxx'); -end; -if max(max(abs(dr0.ghuu - dr.ghuu))) > 1e-12; - error('error in ghuu'); -end; -if max(max(abs(dr0.ghxu - dr.ghxu))) > 1e-12; - error('error in ghxu'); -end; -if max(max(abs(dr0.ghs2 - dr.ghs2))) > 1e-12; - error('error in ghs2'); -end; - +// checks whether second order coefficients are the same with order=2 and order=3 with k_order_solver=1 + +var m P c e W R k d n l gy_obs gp_obs y dA ; +varexo e_a e_m; + +parameters alp bet gam mst rho psi del; + +alp = 0.33; +bet = 0.99; +gam = 0.003; +mst = 1.011; +rho = 0.7; +psi = 0.787; +del = 0.02; + +model (use_dll); +dA = exp(gam+e_a); +log(m) = (1-rho)*log(mst) + rho*log(m(-1))+e_m; +-P/(c(+1)*P(+1)*m)+bet*P(+1)*(alp*exp(-alp*(gam+log(e(+1))))*k^(alp-1)*n(+1)^(1-alp)+(1-del)*exp(-(gam+log(e(+1)))))/(c(+2)*P(+2)*m(+1))=0; +W = l/n; +-(psi/(1-psi))*(c*P/(1-n))+l/n = 0; +R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; +1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; +c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); +P*c = m; +m-1+d = l; +e = exp(e_a); +y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); +gy_obs = dA*y/y(-1); +gp_obs = (P/P(-1))*m(-1)/dA; +end; + +initval; +m = mst; +P = 2.25; +c = 0.45; +e = 1; +W = 4; +R = 1.02; +k = 6; +d = 0.85; +n = 0.19; +l = 0.86; +y = 0.6; +gy_obs = exp(gam); +gp_obs = exp(-gam); +dA = exp(gam); +end; + +shocks; +var e_a; stderr 0.014; +var e_m; stderr 0.005; +end; + +steady; + +stoch_simul(order=3,periods=1000); + +if ~exist('fs2000k2a_results.mat','file'); + error('fs2000k2a must be run first'); +end; + +oo1 = load('fs2000k2a_results','oo_'); + +dr0 = oo1.oo_.dr; +dr = oo_.dr; + +if max(max(abs(dr0.ghxx - dr.ghxx))) > 1e-12; + error('error in ghxx'); +end; +if max(max(abs(dr0.ghuu - dr.ghuu))) > 1e-12; + error('error in ghuu'); +end; +if max(max(abs(dr0.ghxu - dr.ghxu))) > 1e-12; + error('error in ghxu'); +end; +if max(max(abs(dr0.ghs2 - dr.ghs2))) > 1e-12; + error('error in ghs2'); +end; + diff --git a/tests/k_order_perturbation/fs2000k_1.mod b/tests/k_order_perturbation/fs2000k_1.mod index be201aebc..40fcd5ce8 100644 --- a/tests/k_order_perturbation/fs2000k_1.mod +++ b/tests/k_order_perturbation/fs2000k_1.mod @@ -1,98 +1,98 @@ -/* Checks that, for order = 2 and k_order_solver = 1, a model with 2 leads - and the same model with one lead (using auxiliary vars) give the same result */ - -var m m_1 P P_1 c e W R k d n l gy_obs gp_obs y dA AUXv; -varexo e_a e_m; - -parameters alp bet gam mst rho psi del; - -alp = 0.33; -bet = 0.99; -gam = 0.003; -mst = 1.011; -rho = 0.7; -psi = 0.787; -del = 0.02; - -model(use_dll); -dA = exp(gam+e_a); -log(m) = (1-rho)*log(mst) + rho*log(m_1(-1))+e_m; --P/(c(+1)*P(+1)*m)+AUXv(+1)=0; -W = l/n; --(psi/(1-psi))*(c*P/(1-n))+l/n = 0; -R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; -1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; -c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); -P*c = m; -m-1+d = l; -e = exp(e_a); -y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); -gy_obs = dA*y/y(-1); -gp_obs = (P/P_1(-1))*m_1(-1)/dA; -m_1 = m; -P_1 = P; -AUXv = bet*P*(alp*exp(-alp*(gam+log(e)))*k(-1)^(alp-1)*n^(1-alp)+(1-del)*exp(-(gam+log(e))))/(c(+1)*P(+1)*m); -end; - -initval; -m = mst; -m_1=mst; -P = 2.25; -P_1 = 2.25; -c = 0.45; -e = 1; -W = 4; -R = 1.02; -k = 6; -d = 0.85; -n = 0.19; -l = 0.86; -y = 0.6; -gy_obs = exp(gam); -gp_obs = exp(-gam); -dA = exp(gam); -AUXv = 1; -end; - -shocks; -var e_a; stderr 0.014; -var e_m; stderr 0.005; -end; - -steady; - -stoch_simul(order=2,k_order_solver,irf=0); - -if ~exist('fs2000k2_results.mat','file'); - error('fs2000k2 must be run first'); -end; - -oo1 = load('fs2000k2_results','oo_'); - -dr0 = oo1.oo_.dr; -dr = oo_.dr; - -ikr = [2:10 1 13:17]; -ikc = [1 3 4 2]; -ikc2 = [1 3 4 2 9 11 12 10 13 15 16 14 5 7 8 6]; -ikc2u = [1 2 5 6 7 8 3 4]; - -if max(max(abs(dr0.ghx - dr.ghx(ikr,ikc)))) > 1e-12; - error('error in ghx'); -end; -if max(max(abs(dr0.ghu - dr.ghu(ikr,:)))) > 1e-12; - error('error in ghu'); -end; -if max(max(abs(dr0.ghxx - dr.ghxx(ikr,ikc2)))) > 1e-12; - error('error in ghxx'); -end; -if max(max(abs(dr0.ghuu - dr.ghuu(ikr,:)))) > 1e-12; - error('error in ghuu'); -end; -if max(max(abs(dr0.ghxu - dr.ghxu(ikr,ikc2u)))) > 1e-12; - error('error in ghxu'); -end; -if max(max(abs(dr0.ghs2 - dr.ghs2(ikr,:)))) > 1e-12; - error('error in ghs2'); -end; - +/* Checks that, for order = 2 and k_order_solver = 1, a model with 2 leads + and the same model with one lead (using auxiliary vars) give the same result */ + +var m m_1 P P_1 c e W R k d n l gy_obs gp_obs y dA AUXv; +varexo e_a e_m; + +parameters alp bet gam mst rho psi del; + +alp = 0.33; +bet = 0.99; +gam = 0.003; +mst = 1.011; +rho = 0.7; +psi = 0.787; +del = 0.02; + +model(use_dll); +dA = exp(gam+e_a); +log(m) = (1-rho)*log(mst) + rho*log(m_1(-1))+e_m; +-P/(c(+1)*P(+1)*m)+AUXv(+1)=0; +W = l/n; +-(psi/(1-psi))*(c*P/(1-n))+l/n = 0; +R = P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(-alp)/W; +1/(c*P)-bet*P*(1-alp)*exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)/(m*l*c(+1)*P(+1)) = 0; +c+k = exp(-alp*(gam+e_a))*k(-1)^alp*n^(1-alp)+(1-del)*exp(-(gam+e_a))*k(-1); +P*c = m; +m-1+d = l; +e = exp(e_a); +y = k(-1)^alp*n^(1-alp)*exp(-alp*(gam+e_a)); +gy_obs = dA*y/y(-1); +gp_obs = (P/P_1(-1))*m_1(-1)/dA; +m_1 = m; +P_1 = P; +AUXv = bet*P*(alp*exp(-alp*(gam+log(e)))*k(-1)^(alp-1)*n^(1-alp)+(1-del)*exp(-(gam+log(e))))/(c(+1)*P(+1)*m); +end; + +initval; +m = mst; +m_1=mst; +P = 2.25; +P_1 = 2.25; +c = 0.45; +e = 1; +W = 4; +R = 1.02; +k = 6; +d = 0.85; +n = 0.19; +l = 0.86; +y = 0.6; +gy_obs = exp(gam); +gp_obs = exp(-gam); +dA = exp(gam); +AUXv = 1; +end; + +shocks; +var e_a; stderr 0.014; +var e_m; stderr 0.005; +end; + +steady; + +stoch_simul(order=2,k_order_solver,irf=0); + +if ~exist('fs2000k2_results.mat','file'); + error('fs2000k2 must be run first'); +end; + +oo1 = load('fs2000k2_results','oo_'); + +dr0 = oo1.oo_.dr; +dr = oo_.dr; + +ikr = [2:10 1 13:17]; +ikc = [1 3 4 2]; +ikc2 = [1 3 4 2 9 11 12 10 13 15 16 14 5 7 8 6]; +ikc2u = [1 2 5 6 7 8 3 4]; + +if max(max(abs(dr0.ghx - dr.ghx(ikr,ikc)))) > 1e-12; + error('error in ghx'); +end; +if max(max(abs(dr0.ghu - dr.ghu(ikr,:)))) > 1e-12; + error('error in ghu'); +end; +if max(max(abs(dr0.ghxx - dr.ghxx(ikr,ikc2)))) > 1e-12; + error('error in ghxx'); +end; +if max(max(abs(dr0.ghuu - dr.ghuu(ikr,:)))) > 1e-12; + error('error in ghuu'); +end; +if max(max(abs(dr0.ghxu - dr.ghxu(ikr,ikc2u)))) > 1e-12; + error('error in ghxu'); +end; +if max(max(abs(dr0.ghs2 - dr.ghs2(ikr,:)))) > 1e-12; + error('error in ghs2'); +end; + diff --git a/tests/kalman_filter_smoother/algo1.mod b/tests/kalman_filter_smoother/algo1.mod index 4759da0ee..c2a4bfb89 100644 --- a/tests/kalman_filter_smoother/algo1.mod +++ b/tests/kalman_filter_smoother/algo1.mod @@ -1,53 +1,53 @@ -var z dw dx dy dc1 dc2; -varexo e_w e_x e_y e_z; - -parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; - -model(linear); -dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; -dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; -dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; -z = rho_z*z(-1)+dw-dx+e_z; -dc1 = dc1(-1)+dx-b*dy-c*dw; -dc2 = dc2(-1)+dx-b*dy; -end; - -estimated_params; -rho_w, normal_pdf, 0.5,0.2; -rho_x, normal_pdf, 0.5,0.2; -rho_y, normal_pdf, 0.5,0.2; -rho_z, normal_pdf, 0.8,0.2; - -a1, normal_pdf, 0.1,0.2; -a2, normal_pdf, -0.1,0.2; -a3, normal_pdf, 0.1,0.2; -b , normal_pdf, 1,0.2; -c , normal_pdf, 1,0.2; - -stderr e_w, uniform_pdf,,, 0.01, 0.1; -stderr e_x, uniform_pdf,,, 0.01, 0.1; -stderr e_y, uniform_pdf,,, 0.01, 0.1; -stderr e_z, uniform_pdf,,, 0.01, 0.1; -end; - -varobs dw dx dy z; - -//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0); -estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algo1_mode); - -//checking smoother consistency -X = oo_.SmoothedVariables; -S = [X.z X.dw X.dx X.dy X.dc1 X.dc2]; -X = oo_.SmoothedShocks; -E = [X.e_w X.e_x X.e_y X.e_z]; -A = oo_.dr.ghx; -B = oo_.dr.ghu; -err = zeros(6,200); -for t=2:200; - err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; -end; -disp(max(max(abs(err)))); - -d=load('data'); -dat = [d.dw d.dx d.dy d.z]; +var z dw dx dy dc1 dc2; +varexo e_w e_x e_y e_z; + +parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; + +model(linear); +dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; +dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; +dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; +z = rho_z*z(-1)+dw-dx+e_z; +dc1 = dc1(-1)+dx-b*dy-c*dw; +dc2 = dc2(-1)+dx-b*dy; +end; + +estimated_params; +rho_w, normal_pdf, 0.5,0.2; +rho_x, normal_pdf, 0.5,0.2; +rho_y, normal_pdf, 0.5,0.2; +rho_z, normal_pdf, 0.8,0.2; + +a1, normal_pdf, 0.1,0.2; +a2, normal_pdf, -0.1,0.2; +a3, normal_pdf, 0.1,0.2; +b , normal_pdf, 1,0.2; +c , normal_pdf, 1,0.2; + +stderr e_w, uniform_pdf,,, 0.01, 0.1; +stderr e_x, uniform_pdf,,, 0.01, 0.1; +stderr e_y, uniform_pdf,,, 0.01, 0.1; +stderr e_z, uniform_pdf,,, 0.01, 0.1; +end; + +varobs dw dx dy z; + +//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0); +estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algo1_mode); + +//checking smoother consistency +X = oo_.SmoothedVariables; +S = [X.z X.dw X.dx X.dy X.dc1 X.dc2]; +X = oo_.SmoothedShocks; +E = [X.e_w X.e_x X.e_y X.e_z]; +A = oo_.dr.ghx; +B = oo_.dr.ghu; +err = zeros(6,200); +for t=2:200; + err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; +end; +disp(max(max(abs(err)))); + +d=load('data'); +dat = [d.dw d.dx d.dy d.z]; disp(max(max(abs(dat(1000:1199,:)-S(:,[2:4 1]))))); \ No newline at end of file diff --git a/tests/kalman_filter_smoother/algo2.mod b/tests/kalman_filter_smoother/algo2.mod index 523d50c6e..a6d7ce4aa 100644 --- a/tests/kalman_filter_smoother/algo2.mod +++ b/tests/kalman_filter_smoother/algo2.mod @@ -1,81 +1,81 @@ -var z dw dx dy dc1 dc2; -varexo e_w e_x e_y e_z; - -parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; - -model(linear); -dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; -dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; -dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; -z = rho_z*z(-1)+dw-dx+e_z; -dc1 = dc1(-1)+dx-b*dy-c*dw; -dc2 = dc2(-1)+dx-b*dy; -end; - -estimated_params; -rho_w, normal_pdf, 0.5,0.2; -rho_x, normal_pdf, 0.5,0.2; -rho_y, normal_pdf, 0.5,0.2; -rho_z, normal_pdf, 0.8,0.2; - -a1, normal_pdf, 0.1,0.2; -a2, normal_pdf, -0.1,0.2; -a3, normal_pdf, 0.1,0.2; -b , normal_pdf, 1,0.2; -c , normal_pdf, 1,0.2; - -stderr e_w, uniform_pdf,,, 0.01, 0.1; -stderr e_x, uniform_pdf,,, 0.01, 0.1; -stderr e_y, uniform_pdf,,, 0.01, 0.1; -stderr e_z, uniform_pdf,,, 0.01, 0.1; -end; - -varobs dw dx dy z; - -//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,kalman_algo=2); -estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algo1_mode,kalman_algo=2); - -//checking smoother consistency -X = oo_.SmoothedVariables; -S = [X.z X.dw X.dx X.dy X.dc1 X.dc2]; -X = oo_.SmoothedShocks; -E = [X.e_w X.e_x X.e_y X.e_z]; -A = oo_.dr.ghx; -B = oo_.dr.ghu; -err = zeros(6,200); -for t=2:200; - err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; -end; -disp(max(max(abs(err)))); - -d=load('data'); -dat = [d.dw d.dx d.dy d.z]; -disp(max(max(abs(dat(1000:1199,:)-S(:,[2:4 1]))))); - -o1 = load('algo1_results'); -obj_endo={'SmoothedVariables'; 'FilteredVariables'; 'UpdatedVariables'}; -obj_exo = {'SmoothedShocks';}; -nobj_endo = size(obj_endo,1); -nobj_exo = size(obj_exo,1); -for i=1:nobj_endo; - err_endo = zeros(eval(['size(oo_.' obj_endo{i} '.' M_.endo_names(1,:) ',1);']),M_.endo_nbr); - for j=1:M_.endo_nbr; - var1 = eval(['o1.oo_.' obj_endo{i} '.' M_.endo_names(j,:)]); - var2 = eval(['oo_.' obj_endo{i} '.' M_.endo_names(j,:)]); - err_endo(:,j) = var1-var2; - end; - disp(max(max(abs(err_endo)))); -end; - - -err_exo = zeros(200,M_.exo_nbr,nobj_exo); -for i=1:nobj_exo; - err_exo = zeros(size(eval(['oo_.' obj_exo{i} '.' M_.exo_names(1,:)]),1),M_.exo_nbr); - for j=1:M_.exo_nbr; - var1 = eval(['o1.oo_.' obj_exo{i} '.' M_.exo_names(j,:)]); - var2 = eval(['oo_.' obj_exo{i} '.' M_.exo_names(j,:)]); - err_exo(:,j,i) = var1 - var2; - end; - disp(max(max(abs(err_exo)))); -end; -disp(max(max(max(abs(err_exo))))); +var z dw dx dy dc1 dc2; +varexo e_w e_x e_y e_z; + +parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; + +model(linear); +dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; +dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; +dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; +z = rho_z*z(-1)+dw-dx+e_z; +dc1 = dc1(-1)+dx-b*dy-c*dw; +dc2 = dc2(-1)+dx-b*dy; +end; + +estimated_params; +rho_w, normal_pdf, 0.5,0.2; +rho_x, normal_pdf, 0.5,0.2; +rho_y, normal_pdf, 0.5,0.2; +rho_z, normal_pdf, 0.8,0.2; + +a1, normal_pdf, 0.1,0.2; +a2, normal_pdf, -0.1,0.2; +a3, normal_pdf, 0.1,0.2; +b , normal_pdf, 1,0.2; +c , normal_pdf, 1,0.2; + +stderr e_w, uniform_pdf,,, 0.01, 0.1; +stderr e_x, uniform_pdf,,, 0.01, 0.1; +stderr e_y, uniform_pdf,,, 0.01, 0.1; +stderr e_z, uniform_pdf,,, 0.01, 0.1; +end; + +varobs dw dx dy z; + +//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,kalman_algo=2); +estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algo1_mode,kalman_algo=2); + +//checking smoother consistency +X = oo_.SmoothedVariables; +S = [X.z X.dw X.dx X.dy X.dc1 X.dc2]; +X = oo_.SmoothedShocks; +E = [X.e_w X.e_x X.e_y X.e_z]; +A = oo_.dr.ghx; +B = oo_.dr.ghu; +err = zeros(6,200); +for t=2:200; + err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; +end; +disp(max(max(abs(err)))); + +d=load('data'); +dat = [d.dw d.dx d.dy d.z]; +disp(max(max(abs(dat(1000:1199,:)-S(:,[2:4 1]))))); + +o1 = load('algo1_results'); +obj_endo={'SmoothedVariables'; 'FilteredVariables'; 'UpdatedVariables'}; +obj_exo = {'SmoothedShocks';}; +nobj_endo = size(obj_endo,1); +nobj_exo = size(obj_exo,1); +for i=1:nobj_endo; + err_endo = zeros(eval(['size(oo_.' obj_endo{i} '.' M_.endo_names(1,:) ',1);']),M_.endo_nbr); + for j=1:M_.endo_nbr; + var1 = eval(['o1.oo_.' obj_endo{i} '.' M_.endo_names(j,:)]); + var2 = eval(['oo_.' obj_endo{i} '.' M_.endo_names(j,:)]); + err_endo(:,j) = var1-var2; + end; + disp(max(max(abs(err_endo)))); +end; + + +err_exo = zeros(200,M_.exo_nbr,nobj_exo); +for i=1:nobj_exo; + err_exo = zeros(size(eval(['oo_.' obj_exo{i} '.' M_.exo_names(1,:)]),1),M_.exo_nbr); + for j=1:M_.exo_nbr; + var1 = eval(['o1.oo_.' obj_exo{i} '.' M_.exo_names(j,:)]); + var2 = eval(['oo_.' obj_exo{i} '.' M_.exo_names(j,:)]); + err_exo(:,j,i) = var1 - var2; + end; + disp(max(max(abs(err_exo)))); +end; +disp(max(max(max(abs(err_exo))))); diff --git a/tests/kalman_filter_smoother/algo3.mod b/tests/kalman_filter_smoother/algo3.mod index 40dd0cd37..16ff3ff15 100644 --- a/tests/kalman_filter_smoother/algo3.mod +++ b/tests/kalman_filter_smoother/algo3.mod @@ -1,56 +1,56 @@ -var z dw dx dy dc1 dc2 w x y; -varexo e_w e_x e_y e_z; - -parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; - -model(linear); -dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; -dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; -dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; -z = rho_z*z(-1)+dw-dx+e_z; -dc1 = dc1(-1)+dx-b*dy-c*dw; -dc2 = dc2(-1)+dx-b*dy; -w = w(-1) + dw; -x = x(-1) + dx; -y = y(-1) + dy; -end; - -estimated_params; -rho_w, normal_pdf, 0.5,0.2; -rho_x, normal_pdf, 0.5,0.2; -rho_y, normal_pdf, 0.5,0.2; -rho_z, normal_pdf, 0.8,0.2; - -a1, normal_pdf, 0.1,0.2; -a2, normal_pdf, -0.1,0.2; -a3, normal_pdf, 0.1,0.2; -b , normal_pdf, 1,0.2; -c , normal_pdf, 1,0.2; - -stderr e_w, uniform_pdf,,, 0.01, 0.1; -stderr e_x, uniform_pdf,,, 0.01, 0.1; -stderr e_y, uniform_pdf,,, 0.01, 0.1; -stderr e_z, inv_gamma_pdf,0.01, inf; -end; - -varobs w x y; - -estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,diffuse_filter); -//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algo3_mode,diffuse_filter); - -//checking smoother consistency -X = oo_.SmoothedVariables; -S = [X.z X.dw X.dx X.dy X.dc1 X.dc2 X.w X.x X.y]; -X = oo_.SmoothedShocks; -E = [X.e_w X.e_x X.e_y X.e_z]; -A = oo_.dr.ghx; -B = oo_.dr.ghu; -err = zeros(M_.endo_nbr,200); -for t=2:200; - err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; -end; -disp(max(max(abs(err)))); - -d=load('data'); -dat = [d.w d.x d.y]; +var z dw dx dy dc1 dc2 w x y; +varexo e_w e_x e_y e_z; + +parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; + +model(linear); +dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; +dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; +dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; +z = rho_z*z(-1)+dw-dx+e_z; +dc1 = dc1(-1)+dx-b*dy-c*dw; +dc2 = dc2(-1)+dx-b*dy; +w = w(-1) + dw; +x = x(-1) + dx; +y = y(-1) + dy; +end; + +estimated_params; +rho_w, normal_pdf, 0.5,0.2; +rho_x, normal_pdf, 0.5,0.2; +rho_y, normal_pdf, 0.5,0.2; +rho_z, normal_pdf, 0.8,0.2; + +a1, normal_pdf, 0.1,0.2; +a2, normal_pdf, -0.1,0.2; +a3, normal_pdf, 0.1,0.2; +b , normal_pdf, 1,0.2; +c , normal_pdf, 1,0.2; + +stderr e_w, uniform_pdf,,, 0.01, 0.1; +stderr e_x, uniform_pdf,,, 0.01, 0.1; +stderr e_y, uniform_pdf,,, 0.01, 0.1; +stderr e_z, inv_gamma_pdf,0.01, inf; +end; + +varobs w x y; + +estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,diffuse_filter); +//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algo3_mode,diffuse_filter); + +//checking smoother consistency +X = oo_.SmoothedVariables; +S = [X.z X.dw X.dx X.dy X.dc1 X.dc2 X.w X.x X.y]; +X = oo_.SmoothedShocks; +E = [X.e_w X.e_x X.e_y X.e_z]; +A = oo_.dr.ghx; +B = oo_.dr.ghu; +err = zeros(M_.endo_nbr,200); +for t=2:200; + err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; +end; +disp(max(max(abs(err)))); + +d=load('data'); +dat = [d.w d.x d.y]; disp(max(max(abs(dat(1000:1199,:)-S(:,[7:9]))))); \ No newline at end of file diff --git a/tests/kalman_filter_smoother/algo4.mod b/tests/kalman_filter_smoother/algo4.mod index 85dd69f89..22820f730 100644 --- a/tests/kalman_filter_smoother/algo4.mod +++ b/tests/kalman_filter_smoother/algo4.mod @@ -1,84 +1,84 @@ -var z dw dx dy dc1 dc2 w x y; -varexo e_w e_x e_y e_z; - -parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; - -model(linear); -dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; -dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; -dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; -z = rho_z*z(-1)+dw-dx+e_z; -dc1 = dc1(-1)+dx-b*dy-c*dw; -dc2 = dc2(-1)+dx-b*dy; -w = w(-1) + dw; -x = x(-1) + dx; -y = y(-1) + dy; -end; - -estimated_params; -rho_w, normal_pdf, 0.5,0.2; -rho_x, normal_pdf, 0.5,0.2; -rho_y, normal_pdf, 0.5,0.2; -rho_z, normal_pdf, 0.8,0.2; - -a1, normal_pdf, 0.1,0.2; -a2, normal_pdf, -0.1,0.2; -a3, normal_pdf, 0.1,0.2; -b , normal_pdf, 1,0.2; -c , normal_pdf, 1,0.2; - -stderr e_w, uniform_pdf,,, 0.01, 0.1; -stderr e_x, uniform_pdf,,, 0.01, 0.1; -stderr e_y, uniform_pdf,,, 0.01, 0.1; -stderr e_z, inv_gamma_pdf,0.01, inf; -end; - -varobs w x y; - -//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,diffuse_filter); -estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algo3_mode,diffuse_filter,kalman_algo=4); - -//checking smoother consistency -X = oo_.SmoothedVariables; -S = [X.z X.dw X.dx X.dy X.dc1 X.dc2 X.w X.x X.y]; -X = oo_.SmoothedShocks; -E = [X.e_w X.e_x X.e_y X.e_z]; -A = oo_.dr.ghx; -B = oo_.dr.ghu; -err = zeros(M_.endo_nbr,200); -for t=2:200; - err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; -end; -disp(max(max(abs(err)))); - -d=load('data'); -dat = [d.w d.x d.y]; -disp(max(max(abs(dat(1000:1199,:)-S(:,[7:9]))))); - -o1 = load('algo3_results'); -obj_endo={'SmoothedVariables'; 'FilteredVariables'; 'UpdatedVariables'}; -obj_exo = {'SmoothedShocks';}; -nobj_endo = size(obj_endo,1); -nobj_exo = size(obj_exo,1); -for i=1:nobj_endo; - err_endo = zeros(eval(['size(oo_.' obj_endo{i} '.' M_.endo_names(1,:) ',1);']),M_.endo_nbr); - for j=1:M_.endo_nbr; - var1 = eval(['o1.oo_.' obj_endo{i} '.' M_.endo_names(j,:)]); - var2 = eval(['oo_.' obj_endo{i} '.' M_.endo_names(j,:)]); - err_endo(:,j) = var1-var2; - end; - disp(max(max(abs(err_endo)))); -end; - - -err_exo = zeros(200,M_.exo_nbr,nobj_exo); -for i=1:nobj_exo; - err_exo = zeros(size(eval(['oo_.' obj_exo{i} '.' M_.exo_names(1,:)]),1),M_.exo_nbr); - for j=1:M_.exo_nbr; - var1 = eval(['o1.oo_.' obj_exo{i} '.' M_.exo_names(j,:)]); - var2 = eval(['oo_.' obj_exo{i} '.' M_.exo_names(j,:)]); - err_exo(:,j,i) = var1 - var2; - end; - disp(max(max(abs(err_exo)))); -end; -disp(max(max(max(abs(err_exo))))); +var z dw dx dy dc1 dc2 w x y; +varexo e_w e_x e_y e_z; + +parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; + +model(linear); +dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; +dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; +dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; +z = rho_z*z(-1)+dw-dx+e_z; +dc1 = dc1(-1)+dx-b*dy-c*dw; +dc2 = dc2(-1)+dx-b*dy; +w = w(-1) + dw; +x = x(-1) + dx; +y = y(-1) + dy; +end; + +estimated_params; +rho_w, normal_pdf, 0.5,0.2; +rho_x, normal_pdf, 0.5,0.2; +rho_y, normal_pdf, 0.5,0.2; +rho_z, normal_pdf, 0.8,0.2; + +a1, normal_pdf, 0.1,0.2; +a2, normal_pdf, -0.1,0.2; +a3, normal_pdf, 0.1,0.2; +b , normal_pdf, 1,0.2; +c , normal_pdf, 1,0.2; + +stderr e_w, uniform_pdf,,, 0.01, 0.1; +stderr e_x, uniform_pdf,,, 0.01, 0.1; +stderr e_y, uniform_pdf,,, 0.01, 0.1; +stderr e_z, inv_gamma_pdf,0.01, inf; +end; + +varobs w x y; + +//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,diffuse_filter); +estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algo3_mode,diffuse_filter,kalman_algo=4); + +//checking smoother consistency +X = oo_.SmoothedVariables; +S = [X.z X.dw X.dx X.dy X.dc1 X.dc2 X.w X.x X.y]; +X = oo_.SmoothedShocks; +E = [X.e_w X.e_x X.e_y X.e_z]; +A = oo_.dr.ghx; +B = oo_.dr.ghu; +err = zeros(M_.endo_nbr,200); +for t=2:200; + err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; +end; +disp(max(max(abs(err)))); + +d=load('data'); +dat = [d.w d.x d.y]; +disp(max(max(abs(dat(1000:1199,:)-S(:,[7:9]))))); + +o1 = load('algo3_results'); +obj_endo={'SmoothedVariables'; 'FilteredVariables'; 'UpdatedVariables'}; +obj_exo = {'SmoothedShocks';}; +nobj_endo = size(obj_endo,1); +nobj_exo = size(obj_exo,1); +for i=1:nobj_endo; + err_endo = zeros(eval(['size(oo_.' obj_endo{i} '.' M_.endo_names(1,:) ',1);']),M_.endo_nbr); + for j=1:M_.endo_nbr; + var1 = eval(['o1.oo_.' obj_endo{i} '.' M_.endo_names(j,:)]); + var2 = eval(['oo_.' obj_endo{i} '.' M_.endo_names(j,:)]); + err_endo(:,j) = var1-var2; + end; + disp(max(max(abs(err_endo)))); +end; + + +err_exo = zeros(200,M_.exo_nbr,nobj_exo); +for i=1:nobj_exo; + err_exo = zeros(size(eval(['oo_.' obj_exo{i} '.' M_.exo_names(1,:)]),1),M_.exo_nbr); + for j=1:M_.exo_nbr; + var1 = eval(['o1.oo_.' obj_exo{i} '.' M_.exo_names(j,:)]); + var2 = eval(['oo_.' obj_exo{i} '.' M_.exo_names(j,:)]); + err_exo(:,j,i) = var1 - var2; + end; + disp(max(max(abs(err_exo)))); +end; +disp(max(max(max(abs(err_exo))))); diff --git a/tests/kalman_filter_smoother/algo4a.mod b/tests/kalman_filter_smoother/algo4a.mod index 236048786..eec1cbaf5 100644 --- a/tests/kalman_filter_smoother/algo4a.mod +++ b/tests/kalman_filter_smoother/algo4a.mod @@ -1,54 +1,54 @@ -var z dw dx dy dc1 dc2 y; -varexo e_w e_x e_y e_z; - -parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; - -model(linear); -dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; -dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; -dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; -z = rho_z*z(-1)+dw-dx+e_z; -dc1 = dc1(-1)+dx-b*dy-c*dw; -dc2 = dc2(-1)+dx-b*dy; -y = y(-1) + dy; -end; - -estimated_params; -rho_w, normal_pdf, 0.5,0.2; -rho_x, normal_pdf, 0.5,0.2; -rho_y, normal_pdf, 0.5,0.2; -rho_z, normal_pdf, 0.8,0.2; - -a1, normal_pdf, 0.1,0.2; -a2, normal_pdf, -0.1,0.2; -a3, normal_pdf, 0.1,0.2; -b , normal_pdf, 1,0.2; -c , normal_pdf, 1,0.2; - -stderr e_w, uniform_pdf,,, 0.01, 0.1; -stderr e_x, uniform_pdf,,, 0.01, 0.1; -stderr e_y, uniform_pdf,,, 0.01, 0.1; -stderr e_z, uniform_pdf,,, 0.01, 0.1; -end; - -varobs dw dx y z; - -estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,diffuse_filter); -//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algo3_mode,diffuse_filter); - -//checking smoother consistency -X = oo_.SmoothedVariables; -S = [X.z X.dw X.dx X.dy X.dc1 X.dc2 X.y]; -X = oo_.SmoothedShocks; -E = [X.e_w X.e_x X.e_y X.e_z]; -A = oo_.dr.ghx; -B = oo_.dr.ghu; -err = zeros(M_.endo_nbr,200); -for t=2:200; - err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; -end; -disp(max(max(abs(err)))); - -d=load('data'); -dat = [d.dw d.dx d.y d.z]; +var z dw dx dy dc1 dc2 y; +varexo e_w e_x e_y e_z; + +parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; + +model(linear); +dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; +dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; +dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; +z = rho_z*z(-1)+dw-dx+e_z; +dc1 = dc1(-1)+dx-b*dy-c*dw; +dc2 = dc2(-1)+dx-b*dy; +y = y(-1) + dy; +end; + +estimated_params; +rho_w, normal_pdf, 0.5,0.2; +rho_x, normal_pdf, 0.5,0.2; +rho_y, normal_pdf, 0.5,0.2; +rho_z, normal_pdf, 0.8,0.2; + +a1, normal_pdf, 0.1,0.2; +a2, normal_pdf, -0.1,0.2; +a3, normal_pdf, 0.1,0.2; +b , normal_pdf, 1,0.2; +c , normal_pdf, 1,0.2; + +stderr e_w, uniform_pdf,,, 0.01, 0.1; +stderr e_x, uniform_pdf,,, 0.01, 0.1; +stderr e_y, uniform_pdf,,, 0.01, 0.1; +stderr e_z, uniform_pdf,,, 0.01, 0.1; +end; + +varobs dw dx y z; + +estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,diffuse_filter); +//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algo3_mode,diffuse_filter); + +//checking smoother consistency +X = oo_.SmoothedVariables; +S = [X.z X.dw X.dx X.dy X.dc1 X.dc2 X.y]; +X = oo_.SmoothedShocks; +E = [X.e_w X.e_x X.e_y X.e_z]; +A = oo_.dr.ghx; +B = oo_.dr.ghu; +err = zeros(M_.endo_nbr,200); +for t=2:200; + err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; +end; +disp(max(max(abs(err)))); + +d=load('data'); +dat = [d.dw d.dx d.y d.z]; disp(max(max(abs(dat(1000:1199,:)-S(:,[2 3 7 1]))))); \ No newline at end of file diff --git a/tests/kalman_filter_smoother/algoH1.mod b/tests/kalman_filter_smoother/algoH1.mod index 831ebeff1..46f2a7a97 100644 --- a/tests/kalman_filter_smoother/algoH1.mod +++ b/tests/kalman_filter_smoother/algoH1.mod @@ -1,57 +1,57 @@ -var z dw dx dy dc1 dc2; -varexo e_w e_x e_y e_z; - -parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; - -model(linear); -dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; -dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; -dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; -z = rho_z*z(-1)+dw-dx+e_z; -dc1 = dc1(-1)+dx-b*dy-c*dw; -dc2 = dc2(-1)+dx-b*dy; -end; - -estimated_params; -rho_w, normal_pdf, 0.5,0.2; -rho_x, normal_pdf, 0.5,0.2; -rho_y, normal_pdf, 0.5,0.2; -rho_z, normal_pdf, 0.8,0.2; - -a1, normal_pdf, 0.1,0.2; -a2, normal_pdf, -0.1,0.2; -a3, normal_pdf, 0.1,0.2; -b , normal_pdf, 1,0.2; -c , normal_pdf, 1,0.2; - -stderr e_w, uniform_pdf,,, 0.01, 0.1; -stderr e_x, uniform_pdf,,, 0.01, 0.1; -stderr e_y, uniform_pdf,,, 0.01, 0.1; -stderr e_z, uniform_pdf,,, 0.01, 0.1; - -stderr z, normal_pdf, 0, 0.1; -end; - -varobs dw dx dy z; - -//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0); -estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algoH1_mode); - -//checking smoother consistency -X = oo_.SmoothedVariables; -S = [X.z X.dw X.dx X.dy X.dc1 X.dc2]; -X = oo_.SmoothedShocks; -E = [X.e_w X.e_x X.e_y X.e_z]; -A = oo_.dr.ghx; -B = oo_.dr.ghu; -err = zeros(6,200); -for t=2:200; - err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; -end; -disp(max(max(abs(err)))); - -d=load('data'); -dat = [d.dw d.dx d.dy d.z]; -X = oo_.SmoothedMeasurementErrors; -ME = [X.dw X.dx X.dy X.z]; +var z dw dx dy dc1 dc2; +varexo e_w e_x e_y e_z; + +parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; + +model(linear); +dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; +dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; +dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; +z = rho_z*z(-1)+dw-dx+e_z; +dc1 = dc1(-1)+dx-b*dy-c*dw; +dc2 = dc2(-1)+dx-b*dy; +end; + +estimated_params; +rho_w, normal_pdf, 0.5,0.2; +rho_x, normal_pdf, 0.5,0.2; +rho_y, normal_pdf, 0.5,0.2; +rho_z, normal_pdf, 0.8,0.2; + +a1, normal_pdf, 0.1,0.2; +a2, normal_pdf, -0.1,0.2; +a3, normal_pdf, 0.1,0.2; +b , normal_pdf, 1,0.2; +c , normal_pdf, 1,0.2; + +stderr e_w, uniform_pdf,,, 0.01, 0.1; +stderr e_x, uniform_pdf,,, 0.01, 0.1; +stderr e_y, uniform_pdf,,, 0.01, 0.1; +stderr e_z, uniform_pdf,,, 0.01, 0.1; + +stderr z, normal_pdf, 0, 0.1; +end; + +varobs dw dx dy z; + +//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0); +estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algoH1_mode); + +//checking smoother consistency +X = oo_.SmoothedVariables; +S = [X.z X.dw X.dx X.dy X.dc1 X.dc2]; +X = oo_.SmoothedShocks; +E = [X.e_w X.e_x X.e_y X.e_z]; +A = oo_.dr.ghx; +B = oo_.dr.ghu; +err = zeros(6,200); +for t=2:200; + err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; +end; +disp(max(max(abs(err)))); + +d=load('data'); +dat = [d.dw d.dx d.dy d.z]; +X = oo_.SmoothedMeasurementErrors; +ME = [X.dw X.dx X.dy X.z]; disp(max(max(abs(dat(1000:1199,:)-S(:,[2:4 1])-ME)))); \ No newline at end of file diff --git a/tests/kalman_filter_smoother/algoH2.mod b/tests/kalman_filter_smoother/algoH2.mod index fba23196b..96b730810 100644 --- a/tests/kalman_filter_smoother/algoH2.mod +++ b/tests/kalman_filter_smoother/algoH2.mod @@ -1,87 +1,87 @@ -var z dw dx dy dc1 dc2; -varexo e_w e_x e_y e_z; - -parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; - -model(linear); -dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; -dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; -dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; -z = rho_z*z(-1)+dw-dx+e_z; -dc1 = dc1(-1)+dx-b*dy-c*dw; -dc2 = dc2(-1)+dx-b*dy; -end; - -estimated_params; -rho_w, normal_pdf, 0.5,0.2; -rho_x, normal_pdf, 0.5,0.2; -rho_y, normal_pdf, 0.5,0.2; -rho_z, normal_pdf, 0.8,0.2; - -a1, normal_pdf, 0.1,0.2; -a2, normal_pdf, -0.1,0.2; -a3, normal_pdf, 0.1,0.2; -b , normal_pdf, 1,0.2; -c , normal_pdf, 1,0.2; - -stderr e_w, uniform_pdf,,, 0.01, 0.1; -stderr e_x, uniform_pdf,,, 0.01, 0.1; -stderr e_y, uniform_pdf,,, 0.01, 0.1; -stderr e_z, uniform_pdf,,, 0.01, 0.1; - -stderr z, normal_pdf, 0, 0.1; -end; - -varobs dw dx dy z; - -//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,kalman_algo=2); -estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algoH1_mode,kalman_algo=2); - -//checking smoother consistency -X = oo_.SmoothedVariables; -S = [X.z X.dw X.dx X.dy X.dc1 X.dc2]; -X = oo_.SmoothedShocks; -E = [X.e_w X.e_x X.e_y X.e_z]; -A = oo_.dr.ghx; -B = oo_.dr.ghu; -err = zeros(6,200); -for t=2:200; - err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; -end; -disp(max(max(abs(err)))); - -d=load('data'); -dat = [d.dw d.dx d.dy d.z]; -X = oo_.SmoothedMeasurementErrors; -ME = [X.dw X.dx X.dy X.z]; -disp(max(max(abs(dat(1000:1199,:)-S(:,[2:4 1])-ME)))); - -o1 = load('algoH1_results'); -obj_endo={'SmoothedVariables'; 'FilteredVariables'; 'UpdatedVariables'}; -obj_exo = {'SmoothedShocks';}; -nobj_endo = size(obj_endo,1); -nobj_exo = size(obj_exo,1); -for i=1:nobj_endo; - err_endo = zeros(eval(['size(oo_.' obj_endo{i} '.' M_.endo_names(1,:) ',1);']),M_.endo_nbr); - for j=1:M_.endo_nbr; - var1 = eval(['o1.oo_.' obj_endo{i} '.' M_.endo_names(j,:)]); - var2 = eval(['oo_.' obj_endo{i} '.' M_.endo_names(j,:)]); - err_endo(:,j) = var1-var2; - end; - disp(max(max(abs(err_endo)))); -end; - - -err_exo = zeros(200,M_.exo_nbr,nobj_exo); -for i=1:nobj_exo; - err_exo = zeros(size(eval(['oo_.' obj_exo{i} '.' M_.exo_names(1,:)]),1),M_.exo_nbr); - for j=1:M_.exo_nbr; - var1 = eval(['o1.oo_.' obj_exo{i} '.' M_.exo_names(j,:)]); - var2 = eval(['oo_.' obj_exo{i} '.' M_.exo_names(j,:)]); - err_exo(:,j,i) = var1 - var2; - end; - disp(max(max(abs(err_exo)))); -end; -disp(max(max(max(abs(err_exo))))); - +var z dw dx dy dc1 dc2; +varexo e_w e_x e_y e_z; + +parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; + +model(linear); +dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; +dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; +dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; +z = rho_z*z(-1)+dw-dx+e_z; +dc1 = dc1(-1)+dx-b*dy-c*dw; +dc2 = dc2(-1)+dx-b*dy; +end; + +estimated_params; +rho_w, normal_pdf, 0.5,0.2; +rho_x, normal_pdf, 0.5,0.2; +rho_y, normal_pdf, 0.5,0.2; +rho_z, normal_pdf, 0.8,0.2; + +a1, normal_pdf, 0.1,0.2; +a2, normal_pdf, -0.1,0.2; +a3, normal_pdf, 0.1,0.2; +b , normal_pdf, 1,0.2; +c , normal_pdf, 1,0.2; + +stderr e_w, uniform_pdf,,, 0.01, 0.1; +stderr e_x, uniform_pdf,,, 0.01, 0.1; +stderr e_y, uniform_pdf,,, 0.01, 0.1; +stderr e_z, uniform_pdf,,, 0.01, 0.1; + +stderr z, normal_pdf, 0, 0.1; +end; + +varobs dw dx dy z; + +//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,kalman_algo=2); +estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algoH1_mode,kalman_algo=2); + +//checking smoother consistency +X = oo_.SmoothedVariables; +S = [X.z X.dw X.dx X.dy X.dc1 X.dc2]; +X = oo_.SmoothedShocks; +E = [X.e_w X.e_x X.e_y X.e_z]; +A = oo_.dr.ghx; +B = oo_.dr.ghu; +err = zeros(6,200); +for t=2:200; + err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; +end; +disp(max(max(abs(err)))); + +d=load('data'); +dat = [d.dw d.dx d.dy d.z]; +X = oo_.SmoothedMeasurementErrors; +ME = [X.dw X.dx X.dy X.z]; +disp(max(max(abs(dat(1000:1199,:)-S(:,[2:4 1])-ME)))); + +o1 = load('algoH1_results'); +obj_endo={'SmoothedVariables'; 'FilteredVariables'; 'UpdatedVariables'}; +obj_exo = {'SmoothedShocks';}; +nobj_endo = size(obj_endo,1); +nobj_exo = size(obj_exo,1); +for i=1:nobj_endo; + err_endo = zeros(eval(['size(oo_.' obj_endo{i} '.' M_.endo_names(1,:) ',1);']),M_.endo_nbr); + for j=1:M_.endo_nbr; + var1 = eval(['o1.oo_.' obj_endo{i} '.' M_.endo_names(j,:)]); + var2 = eval(['oo_.' obj_endo{i} '.' M_.endo_names(j,:)]); + err_endo(:,j) = var1-var2; + end; + disp(max(max(abs(err_endo)))); +end; + + +err_exo = zeros(200,M_.exo_nbr,nobj_exo); +for i=1:nobj_exo; + err_exo = zeros(size(eval(['oo_.' obj_exo{i} '.' M_.exo_names(1,:)]),1),M_.exo_nbr); + for j=1:M_.exo_nbr; + var1 = eval(['o1.oo_.' obj_exo{i} '.' M_.exo_names(j,:)]); + var2 = eval(['oo_.' obj_exo{i} '.' M_.exo_names(j,:)]); + err_exo(:,j,i) = var1 - var2; + end; + disp(max(max(abs(err_exo)))); +end; +disp(max(max(max(abs(err_exo))))); + disp(max(max(abs(o1.oo_.SmoothedMeasurementErrors.z - oo_.SmoothedMeasurementErrors.z)))); \ No newline at end of file diff --git a/tests/kalman_filter_smoother/algoH3.mod b/tests/kalman_filter_smoother/algoH3.mod index ce74f8905..38f4d93e8 100644 --- a/tests/kalman_filter_smoother/algoH3.mod +++ b/tests/kalman_filter_smoother/algoH3.mod @@ -1,62 +1,62 @@ -var z dw dx dy dc1 dc2 w x y; -varexo e_w e_x e_y e_z; - -parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; - -model(linear); -dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; -dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; -dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; -z = rho_z*z(-1)+dw-dx+e_z; -dc1 = dc1(-1)+dx-b*dy-c*dw; -dc2 = dc2(-1)+dx-b*dy; -w = w(-1) + dw; -x = x(-1) + dx; -y = y(-1) + dy; -end; - -estimated_params; -rho_w, normal_pdf, 0.5,0.2; -rho_x, normal_pdf, 0.5,0.2; -rho_y, normal_pdf, 0.5,0.2; -rho_z, normal_pdf, 0.8,0.2; - -a1, normal_pdf, 0.1,0.2; -a2, normal_pdf, -0.1,0.2; -a3, normal_pdf, 0.1,0.2; -b , normal_pdf, 1,0.2; -c , normal_pdf, 1,0.2; - -stderr e_w, uniform_pdf,,, 0.01, 0.1; -stderr e_x, uniform_pdf,,, 0.01, 0.1; -stderr e_y, uniform_pdf,,, 0.01, 0.1; -stderr e_z, inv_gamma_pdf,0.01, inf; - -stderr w, inv_gamma_pdf, 0.01,inf; -end; - -varobs w x y; - -estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,diffuse_filter); -//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algo3_mode,diffuse_filter); - -stoch_simul(irf=0); - -//checking smoother consistency -X = oo_.SmoothedVariables; -S = [X.z X.dw X.dx X.dy X.dc1 X.dc2 X.w X.x X.y]; -X = oo_.SmoothedShocks; -E = [X.e_w X.e_x X.e_y X.e_z]; -A = oo_.dr.ghx; -B = oo_.dr.ghu; -err = zeros(M_.endo_nbr,200); -for t=2:200; - err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; -end; -disp(max(max(abs(err)))); - -d=load('data'); -dat = [d.w d.x d.y]; -X = oo_.SmoothedMeasurementErrors; -ME = [X.w X.x X.y]; +var z dw dx dy dc1 dc2 w x y; +varexo e_w e_x e_y e_z; + +parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; + +model(linear); +dw = rho_w*dw(-1)+a1*(dc1(-1))+e_w; +dx = rho_x*dx(-1)+a2*(dc1(-1))+e_x; +dy = rho_y*dy(-1)+a3*(dc2(-1))+e_y; +z = rho_z*z(-1)+dw-dx+e_z; +dc1 = dc1(-1)+dx-b*dy-c*dw; +dc2 = dc2(-1)+dx-b*dy; +w = w(-1) + dw; +x = x(-1) + dx; +y = y(-1) + dy; +end; + +estimated_params; +rho_w, normal_pdf, 0.5,0.2; +rho_x, normal_pdf, 0.5,0.2; +rho_y, normal_pdf, 0.5,0.2; +rho_z, normal_pdf, 0.8,0.2; + +a1, normal_pdf, 0.1,0.2; +a2, normal_pdf, -0.1,0.2; +a3, normal_pdf, 0.1,0.2; +b , normal_pdf, 1,0.2; +c , normal_pdf, 1,0.2; + +stderr e_w, uniform_pdf,,, 0.01, 0.1; +stderr e_x, uniform_pdf,,, 0.01, 0.1; +stderr e_y, uniform_pdf,,, 0.01, 0.1; +stderr e_z, inv_gamma_pdf,0.01, inf; + +stderr w, inv_gamma_pdf, 0.01,inf; +end; + +varobs w x y; + +estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,diffuse_filter); +//estimation(datafile=data,first_obs=1000,nobs=200,mh_replic=0,mode_compute=0,mode_file=algo3_mode,diffuse_filter); + +stoch_simul(irf=0); + +//checking smoother consistency +X = oo_.SmoothedVariables; +S = [X.z X.dw X.dx X.dy X.dc1 X.dc2 X.w X.x X.y]; +X = oo_.SmoothedShocks; +E = [X.e_w X.e_x X.e_y X.e_z]; +A = oo_.dr.ghx; +B = oo_.dr.ghu; +err = zeros(M_.endo_nbr,200); +for t=2:200; + err(:,t) = S(t,:)'-A*S(t-1,:)'-B*E(t,:)'; +end; +disp(max(max(abs(err)))); + +d=load('data'); +dat = [d.w d.x d.y]; +X = oo_.SmoothedMeasurementErrors; +ME = [X.w X.x X.y]; disp(max(max(abs(dat(1000:1199,:)-S(:,[7:9])-ME)))); \ No newline at end of file diff --git a/tests/kalman_filter_smoother/gen_data.mod b/tests/kalman_filter_smoother/gen_data.mod index 636c979ef..a6fb2f4f1 100644 --- a/tests/kalman_filter_smoother/gen_data.mod +++ b/tests/kalman_filter_smoother/gen_data.mod @@ -1,38 +1,38 @@ -var w x y z dw dx dy; -varexo e_w e_x e_y e_z; - -parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; - -rho_w = 0.5; -rho_x = 0.5; -rho_y = 0.5; -rho_z = 0.8; - -a1 = 0.1; -a2 = -0.1; -a3 = 0.1; -b = 1; -c = 1; - -model(linear); -dw = rho_w*dw(-1)+a1*(x(-1)-b*y(-1)-c*w(-1))+e_w; -dx = rho_x*dx(-1)+a2*(x(-1)-b*y(-1)-c*w(-1))+e_x; -dy = rho_y*dy(-1)+a3*(x(-1)-b*y(-1))+e_y; -z = rho_z*z(-1)+dw-dx+e_z; -w = w(-1)+dw; -x = x(-1)+dx; -y = y(-1)+dy; -end; - -shocks; -var e_w; stderr 0.05; -var e_x; stderr 0.05; -var e_y; stderr 0.05; -var e_z; stderr 0.05; -end; - -stoch_simul(periods=2000,irf=0,simul_seed=7); - -plot([w x y z]); - +var w x y z dw dx dy; +varexo e_w e_x e_y e_z; + +parameters rho_w rho_x rho_y rho_z a1 a2 a3 b c; + +rho_w = 0.5; +rho_x = 0.5; +rho_y = 0.5; +rho_z = 0.8; + +a1 = 0.1; +a2 = -0.1; +a3 = 0.1; +b = 1; +c = 1; + +model(linear); +dw = rho_w*dw(-1)+a1*(x(-1)-b*y(-1)-c*w(-1))+e_w; +dx = rho_x*dx(-1)+a2*(x(-1)-b*y(-1)-c*w(-1))+e_x; +dy = rho_y*dy(-1)+a3*(x(-1)-b*y(-1))+e_y; +z = rho_z*z(-1)+dw-dx+e_z; +w = w(-1)+dw; +x = x(-1)+dx; +y = y(-1)+dy; +end; + +shocks; +var e_w; stderr 0.05; +var e_x; stderr 0.05; +var e_y; stderr 0.05; +var e_z; stderr 0.05; +end; + +stoch_simul(periods=2000,irf=0,simul_seed=7); + +plot([w x y z]); + save data w x y z dw dx dy; \ No newline at end of file diff --git a/tests/ls2003/ls2003.mod b/tests/ls2003/ls2003.mod index 1d2ec9de4..4f65cb3f4 100644 --- a/tests/ls2003/ls2003.mod +++ b/tests/ls2003/ls2003.mod @@ -1,65 +1,65 @@ -var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; -varexo e_R e_q e_ys e_pies e_A; - -parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; - -psi1 = 1.54; -psi2 = 0.25; -psi3 = 0.25; -rho_R = 0.5; -alpha = 0.3; -rr = 2.51; -k = 0.5; -tau = 0.5; -rho_q = 0.4; -rho_A = 0.2; -rho_ys = 0.9; -rho_pies = 0.7; - - -model(linear); -y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); -pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; -pie = de+(1-alpha)*dq+pie_s; -R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; -dq = rho_q*dq(-1)+e_q; -y_s = rho_ys*y_s(-1)+e_ys; -pie_s = rho_pies*pie_s(-1)+e_pies; -A = rho_A*A(-1)+e_A; -y_obs = y-y(-1)+A; -pie_obs = 4*pie; -R_obs = 4*R; -end; - -shocks; -var e_R = 1.25^2; -var e_q = 2.5^2; -var e_A = 1.89; -var e_ys = 1.89; -var e_pies = 1.89; -end; - -varobs y_obs R_obs pie_obs dq de; - -estimated_params; -psi1 , gamma_pdf,1.5,0.5; -psi2 , gamma_pdf,0.25,0.125; -psi3 , gamma_pdf,0.25,0.125; -rho_R ,beta_pdf,0.5,0.2; -alpha ,beta_pdf,0.3,0.1; -rr ,gamma_pdf,2.5,1; -k , gamma_pdf,0.5,0.25; -tau ,gamma_pdf,0.5,0.2; -rho_q ,beta_pdf,0.4,0.2; -rho_A ,beta_pdf,0.5,0.2; -rho_ys ,beta_pdf,0.8,0.1; -rho_pies,beta_pdf,0.7,0.15; -stderr e_R,inv_gamma_pdf,1.2533,0.6551; -stderr e_q,inv_gamma_pdf,2.5066,1.3103; -stderr e_A,inv_gamma_pdf,1.2533,0.6551; -stderr e_ys,inv_gamma_pdf,1.2533,0.6551; -stderr e_pies,inv_gamma_pdf,1.88,0.9827; -end; - -estimation(datafile=data_ca1,first_obs=8,nobs=79,mh_nblocks=10,prefilter=1,mh_jscale=0.5,mh_replic=0); - +var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; +varexo e_R e_q e_ys e_pies e_A; + +parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; + +psi1 = 1.54; +psi2 = 0.25; +psi3 = 0.25; +rho_R = 0.5; +alpha = 0.3; +rr = 2.51; +k = 0.5; +tau = 0.5; +rho_q = 0.4; +rho_A = 0.2; +rho_ys = 0.9; +rho_pies = 0.7; + + +model(linear); +y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); +pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; +pie = de+(1-alpha)*dq+pie_s; +R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; +dq = rho_q*dq(-1)+e_q; +y_s = rho_ys*y_s(-1)+e_ys; +pie_s = rho_pies*pie_s(-1)+e_pies; +A = rho_A*A(-1)+e_A; +y_obs = y-y(-1)+A; +pie_obs = 4*pie; +R_obs = 4*R; +end; + +shocks; +var e_R = 1.25^2; +var e_q = 2.5^2; +var e_A = 1.89; +var e_ys = 1.89; +var e_pies = 1.89; +end; + +varobs y_obs R_obs pie_obs dq de; + +estimated_params; +psi1 , gamma_pdf,1.5,0.5; +psi2 , gamma_pdf,0.25,0.125; +psi3 , gamma_pdf,0.25,0.125; +rho_R ,beta_pdf,0.5,0.2; +alpha ,beta_pdf,0.3,0.1; +rr ,gamma_pdf,2.5,1; +k , gamma_pdf,0.5,0.25; +tau ,gamma_pdf,0.5,0.2; +rho_q ,beta_pdf,0.4,0.2; +rho_A ,beta_pdf,0.5,0.2; +rho_ys ,beta_pdf,0.8,0.1; +rho_pies,beta_pdf,0.7,0.15; +stderr e_R,inv_gamma_pdf,1.2533,0.6551; +stderr e_q,inv_gamma_pdf,2.5066,1.3103; +stderr e_A,inv_gamma_pdf,1.2533,0.6551; +stderr e_ys,inv_gamma_pdf,1.2533,0.6551; +stderr e_pies,inv_gamma_pdf,1.88,0.9827; +end; + +estimation(datafile=data_ca1,first_obs=8,nobs=79,mh_nblocks=10,prefilter=1,mh_jscale=0.5,mh_replic=0); + diff --git a/tests/ls2003/ls2003a.mod b/tests/ls2003/ls2003a.mod index 1d2ec9de4..4f65cb3f4 100644 --- a/tests/ls2003/ls2003a.mod +++ b/tests/ls2003/ls2003a.mod @@ -1,65 +1,65 @@ -var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; -varexo e_R e_q e_ys e_pies e_A; - -parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; - -psi1 = 1.54; -psi2 = 0.25; -psi3 = 0.25; -rho_R = 0.5; -alpha = 0.3; -rr = 2.51; -k = 0.5; -tau = 0.5; -rho_q = 0.4; -rho_A = 0.2; -rho_ys = 0.9; -rho_pies = 0.7; - - -model(linear); -y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); -pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; -pie = de+(1-alpha)*dq+pie_s; -R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; -dq = rho_q*dq(-1)+e_q; -y_s = rho_ys*y_s(-1)+e_ys; -pie_s = rho_pies*pie_s(-1)+e_pies; -A = rho_A*A(-1)+e_A; -y_obs = y-y(-1)+A; -pie_obs = 4*pie; -R_obs = 4*R; -end; - -shocks; -var e_R = 1.25^2; -var e_q = 2.5^2; -var e_A = 1.89; -var e_ys = 1.89; -var e_pies = 1.89; -end; - -varobs y_obs R_obs pie_obs dq de; - -estimated_params; -psi1 , gamma_pdf,1.5,0.5; -psi2 , gamma_pdf,0.25,0.125; -psi3 , gamma_pdf,0.25,0.125; -rho_R ,beta_pdf,0.5,0.2; -alpha ,beta_pdf,0.3,0.1; -rr ,gamma_pdf,2.5,1; -k , gamma_pdf,0.5,0.25; -tau ,gamma_pdf,0.5,0.2; -rho_q ,beta_pdf,0.4,0.2; -rho_A ,beta_pdf,0.5,0.2; -rho_ys ,beta_pdf,0.8,0.1; -rho_pies,beta_pdf,0.7,0.15; -stderr e_R,inv_gamma_pdf,1.2533,0.6551; -stderr e_q,inv_gamma_pdf,2.5066,1.3103; -stderr e_A,inv_gamma_pdf,1.2533,0.6551; -stderr e_ys,inv_gamma_pdf,1.2533,0.6551; -stderr e_pies,inv_gamma_pdf,1.88,0.9827; -end; - -estimation(datafile=data_ca1,first_obs=8,nobs=79,mh_nblocks=10,prefilter=1,mh_jscale=0.5,mh_replic=0); - +var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; +varexo e_R e_q e_ys e_pies e_A; + +parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; + +psi1 = 1.54; +psi2 = 0.25; +psi3 = 0.25; +rho_R = 0.5; +alpha = 0.3; +rr = 2.51; +k = 0.5; +tau = 0.5; +rho_q = 0.4; +rho_A = 0.2; +rho_ys = 0.9; +rho_pies = 0.7; + + +model(linear); +y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); +pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; +pie = de+(1-alpha)*dq+pie_s; +R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; +dq = rho_q*dq(-1)+e_q; +y_s = rho_ys*y_s(-1)+e_ys; +pie_s = rho_pies*pie_s(-1)+e_pies; +A = rho_A*A(-1)+e_A; +y_obs = y-y(-1)+A; +pie_obs = 4*pie; +R_obs = 4*R; +end; + +shocks; +var e_R = 1.25^2; +var e_q = 2.5^2; +var e_A = 1.89; +var e_ys = 1.89; +var e_pies = 1.89; +end; + +varobs y_obs R_obs pie_obs dq de; + +estimated_params; +psi1 , gamma_pdf,1.5,0.5; +psi2 , gamma_pdf,0.25,0.125; +psi3 , gamma_pdf,0.25,0.125; +rho_R ,beta_pdf,0.5,0.2; +alpha ,beta_pdf,0.3,0.1; +rr ,gamma_pdf,2.5,1; +k , gamma_pdf,0.5,0.25; +tau ,gamma_pdf,0.5,0.2; +rho_q ,beta_pdf,0.4,0.2; +rho_A ,beta_pdf,0.5,0.2; +rho_ys ,beta_pdf,0.8,0.1; +rho_pies,beta_pdf,0.7,0.15; +stderr e_R,inv_gamma_pdf,1.2533,0.6551; +stderr e_q,inv_gamma_pdf,2.5066,1.3103; +stderr e_A,inv_gamma_pdf,1.2533,0.6551; +stderr e_ys,inv_gamma_pdf,1.2533,0.6551; +stderr e_pies,inv_gamma_pdf,1.88,0.9827; +end; + +estimation(datafile=data_ca1,first_obs=8,nobs=79,mh_nblocks=10,prefilter=1,mh_jscale=0.5,mh_replic=0); + diff --git a/tests/objectives/sgu_ex1.mod b/tests/objectives/sgu_ex1.mod index 36e550030..a0d92abd6 100644 --- a/tests/objectives/sgu_ex1.mod +++ b/tests/objectives/sgu_ex1.mod @@ -1,33 +1,33 @@ -periods 20000; -var c k a; -varexo e; -parameters alpha beta delta gamma rho; - -beta = 0.95; -delta = 1; -alpha = 0.3; -rho = 0; -gamma = 2; - -model; -exp(c) + exp(k) = (1-delta) * exp(k(-1)) + exp(a) * exp(k(-1))^alpha; -exp(c)^(-gamma) = beta * exp(c(+1))^(-gamma) * (exp(a(+1)) * alpha * exp(k)^(alpha-1) + 1 - delta); -a = rho * a(-1) + e; -end; - -initval; -k=0; -c=0; -a=0; -e=0; -end; - -Sigma_e_ = 1; - -stoch_simul(nomoments,irf=0,nocorr,ar=0); - -global dr_ -dr_obj_ = dr_; - -save sgu_ex1 dr_obj_; - +periods 20000; +var c k a; +varexo e; +parameters alpha beta delta gamma rho; + +beta = 0.95; +delta = 1; +alpha = 0.3; +rho = 0; +gamma = 2; + +model; +exp(c) + exp(k) = (1-delta) * exp(k(-1)) + exp(a) * exp(k(-1))^alpha; +exp(c)^(-gamma) = beta * exp(c(+1))^(-gamma) * (exp(a(+1)) * alpha * exp(k)^(alpha-1) + 1 - delta); +a = rho * a(-1) + e; +end; + +initval; +k=0; +c=0; +a=0; +e=0; +end; + +Sigma_e_ = 1; + +stoch_simul(nomoments,irf=0,nocorr,ar=0); + +global dr_ +dr_obj_ = dr_; + +save sgu_ex1 dr_obj_; + diff --git a/tests/parallel/ls2003.mod b/tests/parallel/ls2003.mod index 17397c77e..3a51040fb 100644 --- a/tests/parallel/ls2003.mod +++ b/tests/parallel/ls2003.mod @@ -1,97 +1,97 @@ -var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; -varexo e_R e_q e_ys e_pies e_A; - -parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; - -psi1 = 1.54; -psi2 = 0.25; -psi3 = 0.25; -rho_R = 0.5; -alpha = 0.3; -rr = 2.51; -k = 0.5; -tau = 0.5; -rho_q = 0.4; -rho_A = 0.2; -rho_ys = 0.9; -rho_pies = 0.7; - - -model(linear); -y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); -pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; -pie = de+(1-alpha)*dq+pie_s; -R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; -dq = rho_q*dq(-1)+e_q; -y_s = rho_ys*y_s(-1)+e_ys; -pie_s = rho_pies*pie_s(-1)+e_pies; -A = rho_A*A(-1)+e_A; -y_obs = y-y(-1)+A; -pie_obs = 4*pie; -R_obs = 4*R; -end; - -shocks; -var e_R = 1.25^2; -var e_q = 2.5^2; -var e_A = 1.89; -var e_ys = 1.89; -var e_pies = 1.89; -end; - -varobs y_obs R_obs pie_obs dq de; - -estimated_params; -psi1 , gamma_pdf,1.5,0.5; -psi2 , gamma_pdf,0.25,0.125; -psi3 , gamma_pdf,0.25,0.125; -rho_R ,beta_pdf,0.5,0.2; -alpha ,beta_pdf,0.3,0.1; -rr ,gamma_pdf,2.5,1; -k , gamma_pdf,0.5,0.25; -tau ,gamma_pdf,0.5,0.2; -rho_q ,beta_pdf,0.4,0.2; -rho_A ,beta_pdf,0.5,0.2; -rho_ys ,beta_pdf,0.8,0.1; -rho_pies,beta_pdf,0.7,0.15; -stderr e_R,inv_gamma_pdf,1.2533,0.6551; -stderr e_q,inv_gamma_pdf,2.5066,1.3103; -stderr e_A,inv_gamma_pdf,1.2533,0.6551; -stderr e_ys,inv_gamma_pdf,1.2533,0.6551; -stderr e_pies,inv_gamma_pdf,1.88,0.9827; -end; - -// common syntax for win and unix, for local parallel runs (assuming quad-core): -// all empty fields, except Local and NumCPU -options_.parallel=struct('Local', 1, 'PcName','','NumCPU', [0:3], 'user','','passwd','','RemoteDrive', '', 'RemoteFolder',''); - - -// windows syntax for remote runs (Local=0): -// win passwd has to be typed explicitly! -// RemoteDrive has to be yped explicitly! -// for user, ALSO the group has to be specified, like ISIS\rattoma, i.e. user rattoma in group ISIS -// PcName is the name of the computed in the windows network, i.e. the output of hostname, or the full IP adress -//options_.parallel=struct('Local', 0, 'PcName','iazz9000','NumCPU', [4:6], 'user','ISIS\rattoma','passwd','****', 'RemoteDrive', 'C', 'RemoteFolder','dynare_calcs\Remote'); - -// example to use several remote PC's to build a grid on windows: -//options_.parallel=struct('Local', 0, 'PcName','iazz9000','NumCPU', [0:3], 'user','ISIS\azziniv','passwd','****', 'RemoteDrive', 'C', 'RemoteFolder','dynare_calcs\Remote'); -//options_.parallel(2)=struct('Local', 0, 'PcName','paperino','NumCPU', [0:3], 'user','ISIS\azziniv','passwd','****', 'RemoteDrive', 'D', 'RemoteFolder','dynare_calcs\Remote'); -//options_.parallel(3)=struct('Local', 0, 'PcName','didietro','NumCPU', [0:3], 'user','','passwd','','RemoteDrive', ppp(1), 'RemoteFolder',ppp(4:end)); -//options_.parallel(4)=struct('Local', 0, 'PcName','uasalap29','NumCPU', [0:1], 'user','ISIS\rattoma','passwd','****', 'RemoteDrive', 'C', 'RemoteFolder','dynare_calcs\Remote'); -//options_.parallel(5)=struct('Local', 0, 'PcName','brigitta','NumCPU', [0:3], 'user','ISIS\azziniv','passwd','****', 'RemoteDrive', 'C', 'RemoteFolder','dynare_calcs\Remote'); - -// unix syntax for remote runs (Local=0): -// no passwd and RemoteDrive needed! -// PcName: full IP address or address -//options_.parallel=struct('Local', 0, 'PcName','paperino.jrc.it','NumCPU', [0:3], 'user','rattoma','passwd','', 'RemoteDrive', '', 'RemoteFolder','/home/rattoma/Remote'); - -// example to combine local and remote runs (on unix): -//options_.parallel=struct('Local', 1, 'PcName','','NumCPU', [0:3], 'user','','passwd','','RemoteDrive', '', 'RemoteFolder',''); -//options_.parallel(2)=struct('Local', 0, 'PcName','paperino.jrc.it','NumCPU', [0:3], 'user','rattoma','passwd','', 'RemoteDrive', '', 'RemoteFolder','/home/rattoma/Remote'); - -// example to combine local and remote runs (on win): -//options_.parallel=struct('Local', 1, 'PcName','','NumCPU', [0:3], 'user','','passwd','','RemoteDrive', '', 'RemoteFolder',''); -//options_.parallel(2)=struct('Local', 0, 'PcName','uasalap29','NumCPU', [0:1], 'user','ISIS\rattoma','passwd','****', 'RemoteDrive', 'C', 'RemoteFolder','dynare_calcs\Remote'); - -estimation(datafile=data_ca1,first_obs=8,nobs=79,mode_compute=0, mode_file=ls2003_mode, mh_nblocks=4,prefilter=1,mh_jscale=0.5,mh_replic=2000);//, load_mh_file); - +var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; +varexo e_R e_q e_ys e_pies e_A; + +parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; + +psi1 = 1.54; +psi2 = 0.25; +psi3 = 0.25; +rho_R = 0.5; +alpha = 0.3; +rr = 2.51; +k = 0.5; +tau = 0.5; +rho_q = 0.4; +rho_A = 0.2; +rho_ys = 0.9; +rho_pies = 0.7; + + +model(linear); +y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); +pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; +pie = de+(1-alpha)*dq+pie_s; +R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; +dq = rho_q*dq(-1)+e_q; +y_s = rho_ys*y_s(-1)+e_ys; +pie_s = rho_pies*pie_s(-1)+e_pies; +A = rho_A*A(-1)+e_A; +y_obs = y-y(-1)+A; +pie_obs = 4*pie; +R_obs = 4*R; +end; + +shocks; +var e_R = 1.25^2; +var e_q = 2.5^2; +var e_A = 1.89; +var e_ys = 1.89; +var e_pies = 1.89; +end; + +varobs y_obs R_obs pie_obs dq de; + +estimated_params; +psi1 , gamma_pdf,1.5,0.5; +psi2 , gamma_pdf,0.25,0.125; +psi3 , gamma_pdf,0.25,0.125; +rho_R ,beta_pdf,0.5,0.2; +alpha ,beta_pdf,0.3,0.1; +rr ,gamma_pdf,2.5,1; +k , gamma_pdf,0.5,0.25; +tau ,gamma_pdf,0.5,0.2; +rho_q ,beta_pdf,0.4,0.2; +rho_A ,beta_pdf,0.5,0.2; +rho_ys ,beta_pdf,0.8,0.1; +rho_pies,beta_pdf,0.7,0.15; +stderr e_R,inv_gamma_pdf,1.2533,0.6551; +stderr e_q,inv_gamma_pdf,2.5066,1.3103; +stderr e_A,inv_gamma_pdf,1.2533,0.6551; +stderr e_ys,inv_gamma_pdf,1.2533,0.6551; +stderr e_pies,inv_gamma_pdf,1.88,0.9827; +end; + +// common syntax for win and unix, for local parallel runs (assuming quad-core): +// all empty fields, except Local and NumCPU +options_.parallel=struct('Local', 1, 'PcName','','NumCPU', [0:3], 'user','','passwd','','RemoteDrive', '', 'RemoteFolder',''); + + +// windows syntax for remote runs (Local=0): +// win passwd has to be typed explicitly! +// RemoteDrive has to be yped explicitly! +// for user, ALSO the group has to be specified, like ISIS\rattoma, i.e. user rattoma in group ISIS +// PcName is the name of the computed in the windows network, i.e. the output of hostname, or the full IP adress +//options_.parallel=struct('Local', 0, 'PcName','iazz9000','NumCPU', [4:6], 'user','ISIS\rattoma','passwd','****', 'RemoteDrive', 'C', 'RemoteFolder','dynare_calcs\Remote'); + +// example to use several remote PC's to build a grid on windows: +//options_.parallel=struct('Local', 0, 'PcName','iazz9000','NumCPU', [0:3], 'user','ISIS\azziniv','passwd','****', 'RemoteDrive', 'C', 'RemoteFolder','dynare_calcs\Remote'); +//options_.parallel(2)=struct('Local', 0, 'PcName','paperino','NumCPU', [0:3], 'user','ISIS\azziniv','passwd','****', 'RemoteDrive', 'D', 'RemoteFolder','dynare_calcs\Remote'); +//options_.parallel(3)=struct('Local', 0, 'PcName','didietro','NumCPU', [0:3], 'user','','passwd','','RemoteDrive', ppp(1), 'RemoteFolder',ppp(4:end)); +//options_.parallel(4)=struct('Local', 0, 'PcName','uasalap29','NumCPU', [0:1], 'user','ISIS\rattoma','passwd','****', 'RemoteDrive', 'C', 'RemoteFolder','dynare_calcs\Remote'); +//options_.parallel(5)=struct('Local', 0, 'PcName','brigitta','NumCPU', [0:3], 'user','ISIS\azziniv','passwd','****', 'RemoteDrive', 'C', 'RemoteFolder','dynare_calcs\Remote'); + +// unix syntax for remote runs (Local=0): +// no passwd and RemoteDrive needed! +// PcName: full IP address or address +//options_.parallel=struct('Local', 0, 'PcName','paperino.jrc.it','NumCPU', [0:3], 'user','rattoma','passwd','', 'RemoteDrive', '', 'RemoteFolder','/home/rattoma/Remote'); + +// example to combine local and remote runs (on unix): +//options_.parallel=struct('Local', 1, 'PcName','','NumCPU', [0:3], 'user','','passwd','','RemoteDrive', '', 'RemoteFolder',''); +//options_.parallel(2)=struct('Local', 0, 'PcName','paperino.jrc.it','NumCPU', [0:3], 'user','rattoma','passwd','', 'RemoteDrive', '', 'RemoteFolder','/home/rattoma/Remote'); + +// example to combine local and remote runs (on win): +//options_.parallel=struct('Local', 1, 'PcName','','NumCPU', [0:3], 'user','','passwd','','RemoteDrive', '', 'RemoteFolder',''); +//options_.parallel(2)=struct('Local', 0, 'PcName','uasalap29','NumCPU', [0:1], 'user','ISIS\rattoma','passwd','****', 'RemoteDrive', 'C', 'RemoteFolder','dynare_calcs\Remote'); + +estimation(datafile=data_ca1,first_obs=8,nobs=79,mode_compute=0, mode_file=ls2003_mode, mh_nblocks=4,prefilter=1,mh_jscale=0.5,mh_replic=2000);//, load_mh_file); + diff --git a/tests/parser/t_normcdf.mod b/tests/parser/t_normcdf.mod index 11c2dc218..3c708dcbb 100644 --- a/tests/parser/t_normcdf.mod +++ b/tests/parser/t_normcdf.mod @@ -1,51 +1,51 @@ -var y1, y2, y3, x1, x2, x3; - -model; -x1 = 1.96; -x2 = 1; -x3 = 0.5; -y1 = normcdf(x1(-1),0,1); -y2 = normcdf(-x1,-x2,1); -y3 = normcdf(x1/2,0,x3(+1)); -end; - -initval; -y1 = 0; -y2 = 0; -y3 = 0; -x1 = 0; -x2 = 0; -x3 = 1; -end; - -steady; - -if abs(oo_.steady_state(1) - pnorm(1.96,0,1)) > 1e-12; - error('Error 1 in t_normcdf') -end; -if abs(oo_.steady_state(2) - pnorm(-1.96,-1,1)) > 1e-12; - error('Error 2 in t_normcdf') -end; -if abs(oo_.steady_state(3) - pnorm(1.96/2,0,1/2)) > 1e-12; - error('Error 3 in t_normcdf') -end; - -z = [oo_.steady_state(4); oo_.steady_state; oo_.steady_state(6)]; -[junk,JJ] = t_normcdf_dynamic(z,[]); - -if abs(JJ(4,1) + dnorm(1.96,0,1)) > 1e-12; - error('Error 4 in t_normcdf') -end; -if abs(JJ(5,5) - dnorm(-1.96,-1,1)) > 1e-12; - error('Error 5 in t_normcdf') -end; -if abs(JJ(5,6) + dnorm(-1.96,-1,1)) > 1e-12; - error('Error 6 in t_normcdf') -end; -if abs(JJ(6,5) + dnorm(1.96/2,0,1/2)/2) > 1e-12; - error('Error 7 in t_normcdf') -end; -if abs(JJ(6,8) - (1/2)*((1.96/2)/(1/2)^2)*dnorm(1.96/2,0,1/2)) > 1e-12; - error('Error 8 in t_normcdf') -end; - +var y1, y2, y3, x1, x2, x3; + +model; +x1 = 1.96; +x2 = 1; +x3 = 0.5; +y1 = normcdf(x1(-1),0,1); +y2 = normcdf(-x1,-x2,1); +y3 = normcdf(x1/2,0,x3(+1)); +end; + +initval; +y1 = 0; +y2 = 0; +y3 = 0; +x1 = 0; +x2 = 0; +x3 = 1; +end; + +steady; + +if abs(oo_.steady_state(1) - pnorm(1.96,0,1)) > 1e-12; + error('Error 1 in t_normcdf') +end; +if abs(oo_.steady_state(2) - pnorm(-1.96,-1,1)) > 1e-12; + error('Error 2 in t_normcdf') +end; +if abs(oo_.steady_state(3) - pnorm(1.96/2,0,1/2)) > 1e-12; + error('Error 3 in t_normcdf') +end; + +z = [oo_.steady_state(4); oo_.steady_state; oo_.steady_state(6)]; +[junk,JJ] = t_normcdf_dynamic(z,[]); + +if abs(JJ(4,1) + dnorm(1.96,0,1)) > 1e-12; + error('Error 4 in t_normcdf') +end; +if abs(JJ(5,5) - dnorm(-1.96,-1,1)) > 1e-12; + error('Error 5 in t_normcdf') +end; +if abs(JJ(5,6) + dnorm(-1.96,-1,1)) > 1e-12; + error('Error 6 in t_normcdf') +end; +if abs(JJ(6,5) + dnorm(1.96/2,0,1/2)/2) > 1e-12; + error('Error 7 in t_normcdf') +end; +if abs(JJ(6,8) - (1/2)*((1.96/2)/(1/2)^2)*dnorm(1.96/2,0,1/2)) > 1e-12; + error('Error 8 in t_normcdf') +end; + diff --git a/tests/pi2004/ireland.mod b/tests/pi2004/ireland.mod index 51ef3508f..ea17baad3 100644 --- a/tests/pi2004/ireland.mod +++ b/tests/pi2004/ireland.mod @@ -1,90 +1,90 @@ -var y a k c i h eoy eoc eoh oy oc oh; -varexo e eeoy eeoc eeoh; - -parameters theta rho eta gam bet delta aa r11 r12 r13 r21 r22 r23 r31 r32 r33 scy shc shy; - -bet = 0.99; -delta = 0.025; -theta = 0.2; -rho = 0.9959; -eta = 1.0051; -gam = 0.0045; -aa = 1.8; -r11 = 0.99; -r12 = 0; -r13 = 0; -r21 = 0; -r22 = 0.99; -r23 = 0; -r31 = 0; -r32 = 0; -r33 = 0.99; -scy = 0.0040; -shy = 0.0015; -shc = 0.0010; - -model; -exp(y) = exp(a)*exp(k(-1))^theta*exp(h)^(1-theta); -a = (1-rho)*aa+rho*a(-1)+e; -exp(y) = exp(c) + exp(i); -eta*exp(k) = (1-delta)*exp(k(-1))+exp(i); -gam*exp(c)*exp(h) = (1-theta)*exp(y); -eta/exp(c) = bet*(1/exp(c(+1)))*(theta*(exp(y(+1))/exp(k))+1-delta); -eoy = r11*eoy(-1) + r12*eoc(-1) + r13*eoh(-1) + eeoy; -eoc = r21*eoy(-1) + r22*eoc(-1) + r23*eoh(-1) + scy*eeoy+eeoc; -eoh = r31*eoy(-1) + r32*eoc(-1) + r33*eoh(-1) + shy*eeoy+shc*eeoc+eeoh; -oy = y + eoy; -oc = c + eoc; -oh = h + eoh; -end; - -initval; -a = 1.7; -y = 8; -c = 8; -k = 10; -i = 5; -h = 4; -eoy = 0; -eoc = 0; -eoh = 0; -oy = y; -oc = c; -oh = h; -end; - -steady; -check; - -estimated_params; -theta , 0.22, 0.1, 0.5; -rho , 0.99, 0.7, 0.9999; -eta , 1.0051, 1, 1.03; -gam , 0.0045, 0.001, 0.01; -aa , 1.8, 0.1, 4; -r11 , 1.4187, -2, 2; -r12 , 0.2251, -2, 2; -r13 , -0.4441, -2, 2; -r21 , 0.0935, -2, 2; -r22 , 1.0236, -2, 2; -r23 , -0.0908, -2, 2; -r31 , 0.7775, -2, 2; -r32 , 0.3706, -2, 2; -r33 , 0.2398, -2, 2; -scy , 0.0040, -2, 2; -shy , 0.0015, -2, 2; -shc , 0.0010, -2, 2; -stderr e , 0.0056, 0, 0.2; -stderr eeoy , 0.0070, 0, 0.1; -stderr eeoc , 0.0069, 0, 0.1; -stderr eeoh , 0.0018, 0, 0.1; -end; - -varobs oy oc oh; - -observation_trends; -oy (log(eta)); -oc (log(eta)); -end; - +var y a k c i h eoy eoc eoh oy oc oh; +varexo e eeoy eeoc eeoh; + +parameters theta rho eta gam bet delta aa r11 r12 r13 r21 r22 r23 r31 r32 r33 scy shc shy; + +bet = 0.99; +delta = 0.025; +theta = 0.2; +rho = 0.9959; +eta = 1.0051; +gam = 0.0045; +aa = 1.8; +r11 = 0.99; +r12 = 0; +r13 = 0; +r21 = 0; +r22 = 0.99; +r23 = 0; +r31 = 0; +r32 = 0; +r33 = 0.99; +scy = 0.0040; +shy = 0.0015; +shc = 0.0010; + +model; +exp(y) = exp(a)*exp(k(-1))^theta*exp(h)^(1-theta); +a = (1-rho)*aa+rho*a(-1)+e; +exp(y) = exp(c) + exp(i); +eta*exp(k) = (1-delta)*exp(k(-1))+exp(i); +gam*exp(c)*exp(h) = (1-theta)*exp(y); +eta/exp(c) = bet*(1/exp(c(+1)))*(theta*(exp(y(+1))/exp(k))+1-delta); +eoy = r11*eoy(-1) + r12*eoc(-1) + r13*eoh(-1) + eeoy; +eoc = r21*eoy(-1) + r22*eoc(-1) + r23*eoh(-1) + scy*eeoy+eeoc; +eoh = r31*eoy(-1) + r32*eoc(-1) + r33*eoh(-1) + shy*eeoy+shc*eeoc+eeoh; +oy = y + eoy; +oc = c + eoc; +oh = h + eoh; +end; + +initval; +a = 1.7; +y = 8; +c = 8; +k = 10; +i = 5; +h = 4; +eoy = 0; +eoc = 0; +eoh = 0; +oy = y; +oc = c; +oh = h; +end; + +steady; +check; + +estimated_params; +theta , 0.22, 0.1, 0.5; +rho , 0.99, 0.7, 0.9999; +eta , 1.0051, 1, 1.03; +gam , 0.0045, 0.001, 0.01; +aa , 1.8, 0.1, 4; +r11 , 1.4187, -2, 2; +r12 , 0.2251, -2, 2; +r13 , -0.4441, -2, 2; +r21 , 0.0935, -2, 2; +r22 , 1.0236, -2, 2; +r23 , -0.0908, -2, 2; +r31 , 0.7775, -2, 2; +r32 , 0.3706, -2, 2; +r33 , 0.2398, -2, 2; +scy , 0.0040, -2, 2; +shy , 0.0015, -2, 2; +shc , 0.0010, -2, 2; +stderr e , 0.0056, 0, 0.2; +stderr eeoy , 0.0070, 0, 0.1; +stderr eeoc , 0.0069, 0, 0.1; +stderr eeoh , 0.0018, 0, 0.1; +end; + +varobs oy oc oh; + +observation_trends; +oy (log(eta)); +oc (log(eta)); +end; + estimation(datafile=idata,mode_compute=1,nograph); \ No newline at end of file diff --git a/tests/pi2004/ireland1.mod b/tests/pi2004/ireland1.mod index 3d402a5b2..12b05f530 100644 --- a/tests/pi2004/ireland1.mod +++ b/tests/pi2004/ireland1.mod @@ -1,90 +1,90 @@ -var y a k c i h eoy eoc eoh oy oc oh; -varexo e eeoy eeoc eeoh; - -parameters theta rho eta gam bet delta aa r11 r12 r13 r21 r22 r23 r31 r32 r33 scy shc shy; - -bet = 0.99; -delta = 0.025; -theta = 0.2; -rho = 0.9959; -eta = 1.0051; -gam = 0.0045; -aa = 1.8; -r11 = 0.99; -r12 = 0; -r13 = 0; -r21 = 0; -r22 = 0.99; -r23 = 0; -r31 = 0; -r32 = 0; -r33 = 0.99; -scy = 0.0040; -shy = 0.0015; -shc = 0.0010; - -model; -exp(y) = exp(a)*exp(k(-1))^theta*exp(h)^(1-theta); -a = (1-rho)*aa+rho*a(-1)+e; -exp(y) = exp(c) + exp(i); -eta*exp(k) = (1-delta)*exp(k(-1))+exp(i); -gam*exp(c)*exp(h) = (1-theta)*exp(y); -eta/exp(c) = bet*(1/exp(c(+1)))*(theta*(exp(y(+1))/exp(k))+1-delta); -eoy = r11*eoy(-1) + r12*eoc(-1) + r13*eoh(-1) + eeoy; -eoc = r21*eoy(-1) + r22*eoc(-1) + r23*eoh(-1) + scy*eeoy+eeoc; -eoh = r31*eoy(-1) + r32*eoc(-1) + r33*eoh(-1) + shy*eeoy+shc*eeoc+eeoh; -oy = y + eoy; -oc = c + eoc; -oh = h + eoh; -end; - -initval; -a = 6; -y = 8; -c = 7; -k = 10; -i = 5; -h = 4; -eoy = 0; -eoc = 0; -eoh = 0; -oy = y; -oc = c; -oh = h; -end; - -steady; -check; - -estimated_params; -theta , 0.22; -rho , 0.99; -eta , 1.0051; -gam , 0.0045; -aa , 1.8; -r11 , 1.4187; -r12 , 0.2251; -r13 , -0.4441; -r21 , 0.0935; -r22 , 1.0236; -r23 , -0.0908; -r31 , 0.7775; -r32 , 0.3706; -r33 , 0.2398; -scy , 0.0040; -shy , 0.0015; -shc , 0.0010; -stderr e , 0.0055; -stderr eeoy , 0.0072; -stderr eeoc , 0.0057; -stderr eeoh , 0; -end; - -varobs oy oc oh; - -observation_trends; -oy (log(eta)); -oc (log(eta)); -end; - +var y a k c i h eoy eoc eoh oy oc oh; +varexo e eeoy eeoc eeoh; + +parameters theta rho eta gam bet delta aa r11 r12 r13 r21 r22 r23 r31 r32 r33 scy shc shy; + +bet = 0.99; +delta = 0.025; +theta = 0.2; +rho = 0.9959; +eta = 1.0051; +gam = 0.0045; +aa = 1.8; +r11 = 0.99; +r12 = 0; +r13 = 0; +r21 = 0; +r22 = 0.99; +r23 = 0; +r31 = 0; +r32 = 0; +r33 = 0.99; +scy = 0.0040; +shy = 0.0015; +shc = 0.0010; + +model; +exp(y) = exp(a)*exp(k(-1))^theta*exp(h)^(1-theta); +a = (1-rho)*aa+rho*a(-1)+e; +exp(y) = exp(c) + exp(i); +eta*exp(k) = (1-delta)*exp(k(-1))+exp(i); +gam*exp(c)*exp(h) = (1-theta)*exp(y); +eta/exp(c) = bet*(1/exp(c(+1)))*(theta*(exp(y(+1))/exp(k))+1-delta); +eoy = r11*eoy(-1) + r12*eoc(-1) + r13*eoh(-1) + eeoy; +eoc = r21*eoy(-1) + r22*eoc(-1) + r23*eoh(-1) + scy*eeoy+eeoc; +eoh = r31*eoy(-1) + r32*eoc(-1) + r33*eoh(-1) + shy*eeoy+shc*eeoc+eeoh; +oy = y + eoy; +oc = c + eoc; +oh = h + eoh; +end; + +initval; +a = 6; +y = 8; +c = 7; +k = 10; +i = 5; +h = 4; +eoy = 0; +eoc = 0; +eoh = 0; +oy = y; +oc = c; +oh = h; +end; + +steady; +check; + +estimated_params; +theta , 0.22; +rho , 0.99; +eta , 1.0051; +gam , 0.0045; +aa , 1.8; +r11 , 1.4187; +r12 , 0.2251; +r13 , -0.4441; +r21 , 0.0935; +r22 , 1.0236; +r23 , -0.0908; +r31 , 0.7775; +r32 , 0.3706; +r33 , 0.2398; +scy , 0.0040; +shy , 0.0015; +shc , 0.0010; +stderr e , 0.0055; +stderr eeoy , 0.0072; +stderr eeoc , 0.0057; +stderr eeoh , 0; +end; + +varobs oy oc oh; + +observation_trends; +oy (log(eta)); +oc (log(eta)); +end; + estimation(datafile=idata,nograph); \ No newline at end of file diff --git a/tests/practicing/AssetPricingApproximation.mod b/tests/practicing/AssetPricingApproximation.mod index ae762083b..57679f38c 100644 --- a/tests/practicing/AssetPricingApproximation.mod +++ b/tests/practicing/AssetPricingApproximation.mod @@ -1,47 +1,47 @@ -periods 500; -var dc, dd, v_c, v_d, x; -varexo e_c, e_x, e_d; - -parameters DELTA THETA PSI MU_C MU_D RHO_X LAMBDA_DX; - -DELTA=.99; -PSI=1.5; -THETA=(1-7.5)/(1-1/PSI); -MU_C=0.0015; -MU_D=0.0015; -RHO_X=.979; -LAMBDA_DX=3; - -model; -v_c = DELTA^THETA * exp((-THETA/PSI)*dc(+1) + (THETA-1)*log((1+v_c(+1))*exp(dc(+1))/v_c) ) * (1+v_c(+1))*exp(dc(+1)); -v_d = DELTA^THETA * exp((-THETA/PSI)*dc(+1) + (THETA-1)*log((1+v_c(+1))*exp(dc(+1))/v_c) ) * (1+v_d(+1))*exp(dd(+1)); -dc = MU_C + x(-1) + e_c; -dd = MU_D + LAMBDA_DX*x(-1) + e_d; -x = RHO_X * x(-1) + e_x; -end; - -initval; -v_c=15; -v_d=15; -dc=MU_C; -dd=MU_D; -x=0; -e_c=0; -e_x=0; -e_d=0; -end; - -shocks; -var e_c; -stderr .0078; -var e_x; -stderr .0078*.044; -var e_d; -stderr .0078*4.5; -end; - -steady(solve_algo=0); -check; - -stoch_simul(dr_algo=1, order=1, periods=1000, irf=30); +periods 500; +var dc, dd, v_c, v_d, x; +varexo e_c, e_x, e_d; + +parameters DELTA THETA PSI MU_C MU_D RHO_X LAMBDA_DX; + +DELTA=.99; +PSI=1.5; +THETA=(1-7.5)/(1-1/PSI); +MU_C=0.0015; +MU_D=0.0015; +RHO_X=.979; +LAMBDA_DX=3; + +model; +v_c = DELTA^THETA * exp((-THETA/PSI)*dc(+1) + (THETA-1)*log((1+v_c(+1))*exp(dc(+1))/v_c) ) * (1+v_c(+1))*exp(dc(+1)); +v_d = DELTA^THETA * exp((-THETA/PSI)*dc(+1) + (THETA-1)*log((1+v_c(+1))*exp(dc(+1))/v_c) ) * (1+v_d(+1))*exp(dd(+1)); +dc = MU_C + x(-1) + e_c; +dd = MU_D + LAMBDA_DX*x(-1) + e_d; +x = RHO_X * x(-1) + e_x; +end; + +initval; +v_c=15; +v_d=15; +dc=MU_C; +dd=MU_D; +x=0; +e_c=0; +e_x=0; +e_d=0; +end; + +shocks; +var e_c; +stderr .0078; +var e_x; +stderr .0078*.044; +var e_d; +stderr .0078*4.5; +end; + +steady(solve_algo=0); +check; + +stoch_simul(dr_algo=1, order=1, periods=1000, irf=30); datasaver('simudata',[]); \ No newline at end of file diff --git a/tests/practicing/AssetPricingEstimate.mod b/tests/practicing/AssetPricingEstimate.mod index 99db53dc8..482b54457 100644 --- a/tests/practicing/AssetPricingEstimate.mod +++ b/tests/practicing/AssetPricingEstimate.mod @@ -1,58 +1,58 @@ -var dc, dd, v_c, v_d, x; -varexo e_c, e_x, e_d; - -parameters DELTA THETA PSI MU_C MU_D RHO_X LAMBDA_DX; - -DELTA=.99; -PSI=1.5; -THETA=(1-7.5)/(1-1/PSI); -MU_C=0.0015; -MU_D=0.0015; -RHO_X=.979; -LAMBDA_DX=3; - - -model; -v_c = DELTA^THETA * exp((-THETA/PSI)*dc(+1) + (THETA-1)*log((1+v_c(+1))*exp(dc(+1))/v_c) ) * (1+v_c(+1))*exp(dc(+1)); -v_d = DELTA^THETA * exp((-THETA/PSI)*dc(+1) + (THETA-1)*log((1+v_c(+1))*exp(dc(+1))/v_c) ) * (1+v_d(+1))*exp(dd(+1)); -dc = MU_C + x(-1) + e_c; -dd = MU_D + LAMBDA_DX*x(-1) + e_d; -x = RHO_X * x(-1) + e_x; -end; - -initval; -v_c=15; -v_d=15; -dc=MU_C; -dd=MU_D; -x=0; -e_c=0; -e_x=0; -e_d=0; -end; - -shocks; -var e_d; stderr .001; -var e_c; stderr .001; -var e_x; stderr .001; -end; - -steady; - -estimated_params; -DELTA, beta_pdf, 0.98,.005; -THETA,normal_pdf,-19.5, 0.0025; -PSI,normal_pdf,1.6, 0.1; -MU_C,normal_pdf,0.001, 0.001; -MU_D,normal_pdf,0.001, 0.001; -RHO_X,normal_pdf,.98, 0.005; -LAMBDA_DX,normal_pdf,3, 0.05; -stderr e_d,inv_gamma_pdf,.0025, 30; -stderr e_x,inv_gamma_pdf,.0003, 30; -stderr e_c,inv_gamma_pdf,.01, 30; -end; - - -varobs v_d dd dc; - +var dc, dd, v_c, v_d, x; +varexo e_c, e_x, e_d; + +parameters DELTA THETA PSI MU_C MU_D RHO_X LAMBDA_DX; + +DELTA=.99; +PSI=1.5; +THETA=(1-7.5)/(1-1/PSI); +MU_C=0.0015; +MU_D=0.0015; +RHO_X=.979; +LAMBDA_DX=3; + + +model; +v_c = DELTA^THETA * exp((-THETA/PSI)*dc(+1) + (THETA-1)*log((1+v_c(+1))*exp(dc(+1))/v_c) ) * (1+v_c(+1))*exp(dc(+1)); +v_d = DELTA^THETA * exp((-THETA/PSI)*dc(+1) + (THETA-1)*log((1+v_c(+1))*exp(dc(+1))/v_c) ) * (1+v_d(+1))*exp(dd(+1)); +dc = MU_C + x(-1) + e_c; +dd = MU_D + LAMBDA_DX*x(-1) + e_d; +x = RHO_X * x(-1) + e_x; +end; + +initval; +v_c=15; +v_d=15; +dc=MU_C; +dd=MU_D; +x=0; +e_c=0; +e_x=0; +e_d=0; +end; + +shocks; +var e_d; stderr .001; +var e_c; stderr .001; +var e_x; stderr .001; +end; + +steady; + +estimated_params; +DELTA, beta_pdf, 0.98,.005; +THETA,normal_pdf,-19.5, 0.0025; +PSI,normal_pdf,1.6, 0.1; +MU_C,normal_pdf,0.001, 0.001; +MU_D,normal_pdf,0.001, 0.001; +RHO_X,normal_pdf,.98, 0.005; +LAMBDA_DX,normal_pdf,3, 0.05; +stderr e_d,inv_gamma_pdf,.0025, 30; +stderr e_x,inv_gamma_pdf,.0003, 30; +stderr e_c,inv_gamma_pdf,.01, 30; +end; + + +varobs v_d dd dc; + estimation(datafile=simudata,mh_replic=1000,mh_jscale=.4,nodiagnostic); \ No newline at end of file diff --git a/tests/practicing/BansalYaronBayes.mod b/tests/practicing/BansalYaronBayes.mod index 2c55da483..4d8530610 100644 --- a/tests/practicing/BansalYaronBayes.mod +++ b/tests/practicing/BansalYaronBayes.mod @@ -1,42 +1,42 @@ -var x y; -varexo e_x e_u; - -parameters rho sig_x sig_u mu_y; - -rho = .98; -mu_y=.015; -sig_x=0.00025; -sig_u=.0078; - -model(linear); -x=rho*x(-1) + sig_x*e_x; -y=mu_y + x(-1) + sig_u*e_u; -end; - -initval; -x=0; -y=mu_y; -end; - -steady; - -shocks; -var e_x; -stderr 1; -var e_u; -stderr 1; -end; - -estimated_params; - -rho, beta_pdf, .98, .01; -mu_y, uniform_pdf, .005, .0025; -sig_u, inv_gamma_pdf, .003, inf; -sig_x, inv_gamma_pdf, .003, inf; -// The syntax for to input the priors is the following: -// variable name, prior distribution, parameters of distribution. - -end; - -varobs y; +var x y; +varexo e_x e_u; + +parameters rho sig_x sig_u mu_y; + +rho = .98; +mu_y=.015; +sig_x=0.00025; +sig_u=.0078; + +model(linear); +x=rho*x(-1) + sig_x*e_x; +y=mu_y + x(-1) + sig_u*e_u; +end; + +initval; +x=0; +y=mu_y; +end; + +steady; + +shocks; +var e_x; +stderr 1; +var e_u; +stderr 1; +end; + +estimated_params; + +rho, beta_pdf, .98, .01; +mu_y, uniform_pdf, .005, .0025; +sig_u, inv_gamma_pdf, .003, inf; +sig_x, inv_gamma_pdf, .003, inf; +// The syntax for to input the priors is the following: +// variable name, prior distribution, parameters of distribution. + +end; + +varobs y; estimation(datafile=data_consRicardoypg,first_obs=1,nobs=227,mh_replic=5000,mh_nblocks=1,mh_jscale=1); \ No newline at end of file diff --git a/tests/practicing/BansalYaronML.mod b/tests/practicing/BansalYaronML.mod index 3e49ab1ce..331e6b9be 100644 --- a/tests/practicing/BansalYaronML.mod +++ b/tests/practicing/BansalYaronML.mod @@ -1,44 +1,44 @@ - -var x y; -varexo e_x e_u; - -parameters rho sig_x sig_u mu_y; - -rho = .98; -mu_y=.015; -sig_x=0.00025; -sig_u=.0078; - -model(linear); -x=rho*x(-1) + sig_x*e_x; -y=mu_y + x(-1) + sig_u*e_u; -end; - -initval; -x=0; -y=mu_y; -end; - -steady; - -shocks; -var e_x; -stderr 1; -var e_u; -stderr 1; -end; - -estimated_params; -// ML estimation setup -// parameter name, initial value, boundaries_low, ..._up; - rho, 0, -0.99, 0.999; // use this for unconstrained max likelihood -// rho, .98, .975, .999 ; // use this for long run risk model -// sig_x, .0004,.0001,.05 ; // use this for the long run risk model - sig_x, .0005, .00000000001, .01; // use this for unconstrained max likelihood -sig_u, .007,.001, .1; -mu_y, .014, .0001, .04; - -end; - -varobs y; + +var x y; +varexo e_x e_u; + +parameters rho sig_x sig_u mu_y; + +rho = .98; +mu_y=.015; +sig_x=0.00025; +sig_u=.0078; + +model(linear); +x=rho*x(-1) + sig_x*e_x; +y=mu_y + x(-1) + sig_u*e_u; +end; + +initval; +x=0; +y=mu_y; +end; + +steady; + +shocks; +var e_x; +stderr 1; +var e_u; +stderr 1; +end; + +estimated_params; +// ML estimation setup +// parameter name, initial value, boundaries_low, ..._up; + rho, 0, -0.99, 0.999; // use this for unconstrained max likelihood +// rho, .98, .975, .999 ; // use this for long run risk model +// sig_x, .0004,.0001,.05 ; // use this for the long run risk model + sig_x, .0005, .00000000001, .01; // use this for unconstrained max likelihood +sig_u, .007,.001, .1; +mu_y, .014, .0001, .04; + +end; + +varobs y; estimation(datafile=data_consRicardoypg,first_obs=1,nobs=227,mh_replic=0,mode_compute=4,mode_check); \ No newline at end of file diff --git a/tests/practicing/Fig1131.mod b/tests/practicing/Fig1131.mod index 161a1a69f..41bf69a33 100644 --- a/tests/practicing/Fig1131.mod +++ b/tests/practicing/Fig1131.mod @@ -1,79 +1,79 @@ -// This program replicates figure 11.3.1 from chapter 11 of RMT2 by Ljungqvist and Sargent - -var c k; -varexo taui tauc tauk g; -parameters bet gam del alpha A; -bet=.95; -gam=2; -del=.2; -alpha=.33; -A=1; - -model; -k=A*k(-1)^alpha+(1-del)*k(-1)-c-g; -c^(-gam)= bet*(c(+1)^(-gam))*((1+tauc(-1))/(1+tauc))*((1-taui)*(1-del)/(1-taui(-1))+ - ((1-tauk)/(1-taui(-1)))*alpha*A*k(-1)^(alpha-1)); -end; - -initval; -k=1.5; -c=0.6; -g = 0.2; -tauc = 0; -taui = 0; -tauk = 0; -end; -steady; - -endval; -k=1.5; -c=0.4; -g =.4; -tauc =0; -taui =0; -tauk =0; -end; -steady; - -shocks; -var g; -periods 1:9; -values 0.2; -end; - -simul(periods=100); - -co=ys0_(var_index('c')); -ko = ys0_(var_index('k')); -go = ex_(1,1); - -rbig0=1/bet; -rbig=y_(var_index('c'),2:101).^(-gam)./(bet*y_(var_index('c'),3:102).^(-gam)); -rq0=alpha*A*ko^(alpha-1); -rq=alpha*A*y_(var_index('k'),1:100).^(alpha-1); -wq0=A*ko^alpha-ko*alpha*A*ko^(alpha-1); -wq=A*y_(var_index('k'),1:100).^alpha-y_(var_index('k'),1:100).*alpha*A.*y_(var_index('k'),1:100).^(alpha-1); -sq0=(1-ex_(1,4))*A*alpha*ko^(alpha-1)+(1-del); -sq=(1-ex_(1:100,4)')*A*alpha.*y_(var_index('k'),1:100).^(alpha-1)+(1-del); - -figure -subplot(2,3,1) -plot([ko*ones(100,1) y_(var_index('k'),1:100)' ]) -title('k') -subplot(2,3,2) -plot([co*ones(100,1) y_(var_index('c'),2:101)' ]) -title('c') -subplot(2,3,3) -plot([rbig0*ones(100,1) rbig' ]) -title('R') -subplot(2,3,4) -plot([wq0*ones(100,1) wq' ]) -title('w/q') -subplot(2,3,5) -plot([sq0*ones(100,1) sq' ]) -title('s/q') -subplot(2,3,6) -plot([rq0*ones(100,1) rq' ]) -title('r/q') - -print -depsc fig1131.ps +// This program replicates figure 11.3.1 from chapter 11 of RMT2 by Ljungqvist and Sargent + +var c k; +varexo taui tauc tauk g; +parameters bet gam del alpha A; +bet=.95; +gam=2; +del=.2; +alpha=.33; +A=1; + +model; +k=A*k(-1)^alpha+(1-del)*k(-1)-c-g; +c^(-gam)= bet*(c(+1)^(-gam))*((1+tauc(-1))/(1+tauc))*((1-taui)*(1-del)/(1-taui(-1))+ + ((1-tauk)/(1-taui(-1)))*alpha*A*k(-1)^(alpha-1)); +end; + +initval; +k=1.5; +c=0.6; +g = 0.2; +tauc = 0; +taui = 0; +tauk = 0; +end; +steady; + +endval; +k=1.5; +c=0.4; +g =.4; +tauc =0; +taui =0; +tauk =0; +end; +steady; + +shocks; +var g; +periods 1:9; +values 0.2; +end; + +simul(periods=100); + +co=ys0_(var_index('c')); +ko = ys0_(var_index('k')); +go = ex_(1,1); + +rbig0=1/bet; +rbig=y_(var_index('c'),2:101).^(-gam)./(bet*y_(var_index('c'),3:102).^(-gam)); +rq0=alpha*A*ko^(alpha-1); +rq=alpha*A*y_(var_index('k'),1:100).^(alpha-1); +wq0=A*ko^alpha-ko*alpha*A*ko^(alpha-1); +wq=A*y_(var_index('k'),1:100).^alpha-y_(var_index('k'),1:100).*alpha*A.*y_(var_index('k'),1:100).^(alpha-1); +sq0=(1-ex_(1,4))*A*alpha*ko^(alpha-1)+(1-del); +sq=(1-ex_(1:100,4)')*A*alpha.*y_(var_index('k'),1:100).^(alpha-1)+(1-del); + +figure +subplot(2,3,1) +plot([ko*ones(100,1) y_(var_index('k'),1:100)' ]) +title('k') +subplot(2,3,2) +plot([co*ones(100,1) y_(var_index('c'),2:101)' ]) +title('c') +subplot(2,3,3) +plot([rbig0*ones(100,1) rbig' ]) +title('R') +subplot(2,3,4) +plot([wq0*ones(100,1) wq' ]) +title('w/q') +subplot(2,3,5) +plot([sq0*ones(100,1) sq' ]) +title('s/q') +subplot(2,3,6) +plot([rq0*ones(100,1) rq' ]) +title('r/q') + +print -depsc fig1131.ps diff --git a/tests/practicing/Fig1131commented.mod b/tests/practicing/Fig1131commented.mod index dafb29f57..57311cd6e 100644 --- a/tests/practicing/Fig1131commented.mod +++ b/tests/practicing/Fig1131commented.mod @@ -1,130 +1,130 @@ -// This program replicates figure 11.3.1 from chapter 11 of RMT2 by Ljungqvist and Sargent -// This is a commented version of the program given in the handout. - -// Note: y_ records the simulated endogenous variables in alphabetical order -// ys0_ records the initial steady state -// ys_ records the terminal steady state -// We check that these line up at the end points -// Note: y_ has ys0_ in first column, ys_ in last column, explaining why it is 102 long; -// The sample of size 100 is in between. - -// Warning: we align c, k, and the taxes to exploit the dynare syntax. See comments below. -// So k in the program corresponds to k_{t+1} and the same timing holds for the taxes. - -//Declares the endogenous variables; -var c k; -//declares the exogenous variables // investment tax credit, consumption tax, capital tax, government spending -varexo taui tauc tauk g; - -parameters bet gam del alpha A; - -bet=.95; // discount factor -gam=2; // CRRA parameter -del=.2; // depreciation rate -alpha=.33; // capital's share -A=1; // productivity - -// Alignment convention: -// g tauc taui tauk are now columns of ex_. Because of a bad design decision -// the date of ex_(1,:) doesn't necessarily match the date in y_. Whether they match depends -// on the number of lag periods in endogenous versus exogenous variables. -// In this example they match because tauc(-1) and taui(-1) enter the model. - -// These decisions and the timing conventions mean that -// y_(:,1) records the initial steady state, while y_(:,102) records the terminal steady state values. -// For j > 2, y_(:,j) records [c(j-1) .. k(j-1) .. G(j-1)] where k(j-1) means -// end of period capital in period j-1, which equals k(j) in chapter 11 notation. -// Note that the jump in G occurs in y_(;,11), which confirms this timing. -// the jump occurs now in ex_(11,1) - -model; -// equation 11.3.8.a -k=A*k(-1)^alpha+(1-del)*k(-1)-c-g; -// equation 11.3.8e + 11.3.8.g -c^(-gam)= bet*(c(+1)^(-gam))*((1+tauc(-1))/(1+tauc))*((1-taui)*(1-del)/(1-taui(-1))+ - ((1-tauk)/(1-taui(-1)))*alpha*A*k(-1)^(alpha-1)); -end; - -initval; -k=1.5; -c=0.6; -g = 0.2; -tauc = 0; -taui = 0; -tauk = 0; -end; -steady; // put this in if you want to start from the initial steady state, comment it out to start from the indicated values - -endval; // The following values determine the new steady state after the shocks. -k=1.5; -c=0.4; -g =.4; -tauc =0; -taui =0; -tauk =0; -end; - -steady; // We use steady again and the enval provided are initial guesses for dynare to compute the ss. - -// The following lines produce a g sequence with a once and for all jump in g -shocks; -// we use shocks to undo that for the first 9 periods and leave g at -// it's initial value of 0 - -var g; -periods 1:9; -values 0.2; -end; - - -// now solve the model -simul(periods=100); - -// Note: y_ records the simulated endogenous variables in alphabetical order -// ys0_ records the initial steady state -// ys_ records the terminal steady state -// check that these line up at the end points -y_(:,1) -ys0_(:) -y_(:,102) - ys_(:) - -// Compute the initial steady state for consumption to later do the plots. -co=ys0_(var_index('c')); -ko = ys0_(var_index('k')); -// g is in ex_(:,1) since it is stored in alphabetical order -go = ex_(1,1) - -// The following equation compute the other endogenous variables use in the plots below -// Since they are function of capital and consumption, so we can compute them from the solved -// model above. - -// These equations were taken from page 333 of RMT2 -rbig0=1/bet; -rbig=y_(var_index('c'),2:101).^(-gam)./(bet*y_(var_index('c'),3:102).^(-gam)); -rq0=alpha*A*ko^(alpha-1); -rq=alpha*A*y_(var_index('k'),1:100).^(alpha-1); -wq0=A*ko^alpha-ko*alpha*A*ko^(alpha-1); -wq=A*y_(var_index('k'),1:100).^alpha-y_(var_index('k'),1:100).*alpha*A.*y_(var_index('k'),1:100).^(alpha-1); -sq0=(1-ex_(1,4))*A*alpha*ko^(alpha-1)+(1-del); -sq=(1-ex_(1:100,4)')*A*alpha.*y_(var_index('k'),1:100).^(alpha-1)+(1-del); - -//Now we plot the responses of the endogenous variables to the shock. - -figure -subplot(2,3,1) -plot([ko*ones(100,1) y_(var_index('k'),1:100)' ]) // note the timing: we lag capital to correct for syntax -title('k') -subplot(2,3,2) -plot([co*ones(100,1) y_(var_index('c'),2:101)' ]) -title('c') -subplot(2,3,3) -plot([rbig0*ones(100,1) rbig' ]) -title('R') -subplot(2,3,4) -plot([wq0*ones(100,1) wq' ]) -title('w/q') -subplot(2,3,5) -plot([sq0*ones(100,1) sq' ]) -title('s/q') -subplot(2,3,6) -plot([rq0*ones(100,1) rq' ]) -title('r/q') +// This program replicates figure 11.3.1 from chapter 11 of RMT2 by Ljungqvist and Sargent +// This is a commented version of the program given in the handout. + +// Note: y_ records the simulated endogenous variables in alphabetical order +// ys0_ records the initial steady state +// ys_ records the terminal steady state +// We check that these line up at the end points +// Note: y_ has ys0_ in first column, ys_ in last column, explaining why it is 102 long; +// The sample of size 100 is in between. + +// Warning: we align c, k, and the taxes to exploit the dynare syntax. See comments below. +// So k in the program corresponds to k_{t+1} and the same timing holds for the taxes. + +//Declares the endogenous variables; +var c k; +//declares the exogenous variables // investment tax credit, consumption tax, capital tax, government spending +varexo taui tauc tauk g; + +parameters bet gam del alpha A; + +bet=.95; // discount factor +gam=2; // CRRA parameter +del=.2; // depreciation rate +alpha=.33; // capital's share +A=1; // productivity + +// Alignment convention: +// g tauc taui tauk are now columns of ex_. Because of a bad design decision +// the date of ex_(1,:) doesn't necessarily match the date in y_. Whether they match depends +// on the number of lag periods in endogenous versus exogenous variables. +// In this example they match because tauc(-1) and taui(-1) enter the model. + +// These decisions and the timing conventions mean that +// y_(:,1) records the initial steady state, while y_(:,102) records the terminal steady state values. +// For j > 2, y_(:,j) records [c(j-1) .. k(j-1) .. G(j-1)] where k(j-1) means +// end of period capital in period j-1, which equals k(j) in chapter 11 notation. +// Note that the jump in G occurs in y_(;,11), which confirms this timing. +// the jump occurs now in ex_(11,1) + +model; +// equation 11.3.8.a +k=A*k(-1)^alpha+(1-del)*k(-1)-c-g; +// equation 11.3.8e + 11.3.8.g +c^(-gam)= bet*(c(+1)^(-gam))*((1+tauc(-1))/(1+tauc))*((1-taui)*(1-del)/(1-taui(-1))+ + ((1-tauk)/(1-taui(-1)))*alpha*A*k(-1)^(alpha-1)); +end; + +initval; +k=1.5; +c=0.6; +g = 0.2; +tauc = 0; +taui = 0; +tauk = 0; +end; +steady; // put this in if you want to start from the initial steady state, comment it out to start from the indicated values + +endval; // The following values determine the new steady state after the shocks. +k=1.5; +c=0.4; +g =.4; +tauc =0; +taui =0; +tauk =0; +end; + +steady; // We use steady again and the enval provided are initial guesses for dynare to compute the ss. + +// The following lines produce a g sequence with a once and for all jump in g +shocks; +// we use shocks to undo that for the first 9 periods and leave g at +// it's initial value of 0 + +var g; +periods 1:9; +values 0.2; +end; + + +// now solve the model +simul(periods=100); + +// Note: y_ records the simulated endogenous variables in alphabetical order +// ys0_ records the initial steady state +// ys_ records the terminal steady state +// check that these line up at the end points +y_(:,1) -ys0_(:) +y_(:,102) - ys_(:) + +// Compute the initial steady state for consumption to later do the plots. +co=ys0_(var_index('c')); +ko = ys0_(var_index('k')); +// g is in ex_(:,1) since it is stored in alphabetical order +go = ex_(1,1) + +// The following equation compute the other endogenous variables use in the plots below +// Since they are function of capital and consumption, so we can compute them from the solved +// model above. + +// These equations were taken from page 333 of RMT2 +rbig0=1/bet; +rbig=y_(var_index('c'),2:101).^(-gam)./(bet*y_(var_index('c'),3:102).^(-gam)); +rq0=alpha*A*ko^(alpha-1); +rq=alpha*A*y_(var_index('k'),1:100).^(alpha-1); +wq0=A*ko^alpha-ko*alpha*A*ko^(alpha-1); +wq=A*y_(var_index('k'),1:100).^alpha-y_(var_index('k'),1:100).*alpha*A.*y_(var_index('k'),1:100).^(alpha-1); +sq0=(1-ex_(1,4))*A*alpha*ko^(alpha-1)+(1-del); +sq=(1-ex_(1:100,4)')*A*alpha.*y_(var_index('k'),1:100).^(alpha-1)+(1-del); + +//Now we plot the responses of the endogenous variables to the shock. + +figure +subplot(2,3,1) +plot([ko*ones(100,1) y_(var_index('k'),1:100)' ]) // note the timing: we lag capital to correct for syntax +title('k') +subplot(2,3,2) +plot([co*ones(100,1) y_(var_index('c'),2:101)' ]) +title('c') +subplot(2,3,3) +plot([rbig0*ones(100,1) rbig' ]) +title('R') +subplot(2,3,4) +plot([wq0*ones(100,1) wq' ]) +title('w/q') +subplot(2,3,5) +plot([sq0*ones(100,1) sq' ]) +title('s/q') +subplot(2,3,6) +plot([rq0*ones(100,1) rq' ]) +title('r/q') diff --git a/tests/practicing/Fig1132.mod b/tests/practicing/Fig1132.mod index c291403b5..646602f26 100644 --- a/tests/practicing/Fig1132.mod +++ b/tests/practicing/Fig1132.mod @@ -1,79 +1,79 @@ -// This program replicates figure 11.3.1 from chapter 11 of RMT2 by Ljungqvist and Sargent - -var c k; -varexo taui tauc tauk g; -parameters bet gam del alpha A; -bet=.95; -gam=2; -del=.2; -alpha=.33; -A=1; - -model; -k=A*k(-1)^alpha+(1-del)*k(-1)-c-g; -c^(-gam)= bet*(c(+1)^(-gam))*((1+tauc(-1))/(1+tauc))*((1-taui)*(1-del)/(1-taui(-1))+ - ((1-tauk)/(1-taui(-1)))*alpha*A*k(-1)^(alpha-1)); -end; - -initval; -k=1.5; -c=0.6; -g = 0.2; -tauc = 0; -taui = 0; -tauk = 0; -end; -steady; - -endval; -k=1.5; -c=0.6; -g = 0.2; -tauc =0.2; -taui =0; -tauk =0; -end; -steady; - -shocks; -var tauc; -periods 1:9; -values 0; -end; - -simul(periods=100); - -co=ys0_(var_index('c')); -ko = ys0_(var_index('k')); -go = ex_(1,1); - -rbig0=1/bet; -rbig=y_(var_index('c'),2:101).^(-gam)./(bet*y_(var_index('c'),3:102).^(-gam)); -rq0=alpha*A*ko^(alpha-1); -rq=alpha*A*y_(var_index('k'),1:100).^(alpha-1); -wq0=A*ko^alpha-ko*alpha*A*ko^(alpha-1); -wq=A*y_(var_index('k'),1:100).^alpha-y_(var_index('k'),1:100).*alpha*A.*y_(var_index('k'),1:100).^(alpha-1); -sq0=(1-ex_(1,4))*A*alpha*ko^(alpha-1)+(1-del); -sq=(1-ex_(1:100,4)')*A*alpha.*y_(var_index('k'),1:100).^(alpha-1)+(1-del); - -figure -subplot(2,3,1) -plot([ko*ones(100,1) y_(var_index('k'),1:100)' ]) -title('k') -subplot(2,3,2) -plot([co*ones(100,1) y_(var_index('c'),2:101)' ]) -title('c') -subplot(2,3,3) -plot([rbig0*ones(100,1) rbig' ]) -title('R') -subplot(2,3,4) -plot([wq0*ones(100,1) wq' ]) -title('w/q') -subplot(2,3,5) -plot([sq0*ones(100,1) sq' ]) -title('s/q') -subplot(2,3,6) -plot([rq0*ones(100,1) rq' ]) -title('r/q') - -print -depsc fig1132.ps +// This program replicates figure 11.3.1 from chapter 11 of RMT2 by Ljungqvist and Sargent + +var c k; +varexo taui tauc tauk g; +parameters bet gam del alpha A; +bet=.95; +gam=2; +del=.2; +alpha=.33; +A=1; + +model; +k=A*k(-1)^alpha+(1-del)*k(-1)-c-g; +c^(-gam)= bet*(c(+1)^(-gam))*((1+tauc(-1))/(1+tauc))*((1-taui)*(1-del)/(1-taui(-1))+ + ((1-tauk)/(1-taui(-1)))*alpha*A*k(-1)^(alpha-1)); +end; + +initval; +k=1.5; +c=0.6; +g = 0.2; +tauc = 0; +taui = 0; +tauk = 0; +end; +steady; + +endval; +k=1.5; +c=0.6; +g = 0.2; +tauc =0.2; +taui =0; +tauk =0; +end; +steady; + +shocks; +var tauc; +periods 1:9; +values 0; +end; + +simul(periods=100); + +co=ys0_(var_index('c')); +ko = ys0_(var_index('k')); +go = ex_(1,1); + +rbig0=1/bet; +rbig=y_(var_index('c'),2:101).^(-gam)./(bet*y_(var_index('c'),3:102).^(-gam)); +rq0=alpha*A*ko^(alpha-1); +rq=alpha*A*y_(var_index('k'),1:100).^(alpha-1); +wq0=A*ko^alpha-ko*alpha*A*ko^(alpha-1); +wq=A*y_(var_index('k'),1:100).^alpha-y_(var_index('k'),1:100).*alpha*A.*y_(var_index('k'),1:100).^(alpha-1); +sq0=(1-ex_(1,4))*A*alpha*ko^(alpha-1)+(1-del); +sq=(1-ex_(1:100,4)')*A*alpha.*y_(var_index('k'),1:100).^(alpha-1)+(1-del); + +figure +subplot(2,3,1) +plot([ko*ones(100,1) y_(var_index('k'),1:100)' ]) +title('k') +subplot(2,3,2) +plot([co*ones(100,1) y_(var_index('c'),2:101)' ]) +title('c') +subplot(2,3,3) +plot([rbig0*ones(100,1) rbig' ]) +title('R') +subplot(2,3,4) +plot([wq0*ones(100,1) wq' ]) +title('w/q') +subplot(2,3,5) +plot([sq0*ones(100,1) sq' ]) +title('s/q') +subplot(2,3,6) +plot([rq0*ones(100,1) rq' ]) +title('r/q') + +print -depsc fig1132.ps diff --git a/tests/practicing/Fig1151.mod b/tests/practicing/Fig1151.mod index bfcc6fd49..0922b1e46 100644 --- a/tests/practicing/Fig1151.mod +++ b/tests/practicing/Fig1151.mod @@ -1,80 +1,80 @@ -// This program replicates figure 11.3.1 from chapter 11 of RMT2 by Ljungqvist and Sargent - -var c k; -varexo taui tauc tauk g; -parameters bet gam del alpha A; -bet=.95; -gam=2; -del=.2; -alpha=.33; -A=1; - -model; -k=A*k(-1)^alpha+(1-del)*k(-1)-c-g; -c^(-gam)= bet*(c(+1)^(-gam))*((1+tauc(-1))/(1+tauc))*((1-taui)*(1-del)/(1-taui(-1))+ - ((1-tauk)/(1-taui(-1)))*alpha*A*k(-1)^(alpha-1)); -end; - -initval; -k=1.5; -c=0.6; -g = 0.2; -tauc = 0; -taui = 0; -tauk = 0; -end; -steady; - -endval; -k=1.5; -c=0.6; -g =0.2; -tauc =0; -taui =0.20; -tauk =0; -end; -steady; - -shocks; -var taui; -periods 1:9; -values 0; -end; - -simul(periods=100); - -co=ys0_(var_index('c')); -ko = ys0_(var_index('k')); -go = ex_(1,1); - -rbig0=1/bet; -rbig=y_(var_index('c'),2:101).^(-gam)./(bet*y_(var_index('c'),3:102).^(-gam)); -rq0=alpha*A*ko^(alpha-1); -rq=alpha*A*y_(var_index('k'),1:100).^(alpha-1); -wq0=A*ko^alpha-ko*alpha*A*ko^(alpha-1); -wq=A*y_(var_index('k'),1:100).^alpha-y_(var_index('k'),1:100).*alpha*A.*y_(var_index('k'),1:100).^(alpha-1); -sq0=(1-ex_(1,4))*A*alpha*ko^(alpha-1)+(1-del); -sq=(1-ex_(1:100,4)')*A*alpha.*y_(var_index('k'),1:100).^(alpha-1)+(1-del); - -figure -subplot(2,3,1) -plot([ko*ones(100,1) y_(var_index('k'),1:100)' ]) -title('k') -subplot(2,3,2) -plot([co*ones(100,1) y_(var_index('c'),2:101)' ]) -title('c') -subplot(2,3,3) -plot([rbig0*ones(100,1) rbig' ]) -title('R') -subplot(2,3,4) -plot([wq0*ones(100,1) wq' ]) -title('w/q') -subplot(2,3,5) -plot([sq0*ones(100,1) sq' ]) -title('s/q') -subplot(2,3,6) -plot([rq0*ones(100,1) rq' ]) -title('r/q') - -print -depsc fig1151.ps - +// This program replicates figure 11.3.1 from chapter 11 of RMT2 by Ljungqvist and Sargent + +var c k; +varexo taui tauc tauk g; +parameters bet gam del alpha A; +bet=.95; +gam=2; +del=.2; +alpha=.33; +A=1; + +model; +k=A*k(-1)^alpha+(1-del)*k(-1)-c-g; +c^(-gam)= bet*(c(+1)^(-gam))*((1+tauc(-1))/(1+tauc))*((1-taui)*(1-del)/(1-taui(-1))+ + ((1-tauk)/(1-taui(-1)))*alpha*A*k(-1)^(alpha-1)); +end; + +initval; +k=1.5; +c=0.6; +g = 0.2; +tauc = 0; +taui = 0; +tauk = 0; +end; +steady; + +endval; +k=1.5; +c=0.6; +g =0.2; +tauc =0; +taui =0.20; +tauk =0; +end; +steady; + +shocks; +var taui; +periods 1:9; +values 0; +end; + +simul(periods=100); + +co=ys0_(var_index('c')); +ko = ys0_(var_index('k')); +go = ex_(1,1); + +rbig0=1/bet; +rbig=y_(var_index('c'),2:101).^(-gam)./(bet*y_(var_index('c'),3:102).^(-gam)); +rq0=alpha*A*ko^(alpha-1); +rq=alpha*A*y_(var_index('k'),1:100).^(alpha-1); +wq0=A*ko^alpha-ko*alpha*A*ko^(alpha-1); +wq=A*y_(var_index('k'),1:100).^alpha-y_(var_index('k'),1:100).*alpha*A.*y_(var_index('k'),1:100).^(alpha-1); +sq0=(1-ex_(1,4))*A*alpha*ko^(alpha-1)+(1-del); +sq=(1-ex_(1:100,4)')*A*alpha.*y_(var_index('k'),1:100).^(alpha-1)+(1-del); + +figure +subplot(2,3,1) +plot([ko*ones(100,1) y_(var_index('k'),1:100)' ]) +title('k') +subplot(2,3,2) +plot([co*ones(100,1) y_(var_index('c'),2:101)' ]) +title('c') +subplot(2,3,3) +plot([rbig0*ones(100,1) rbig' ]) +title('R') +subplot(2,3,4) +plot([wq0*ones(100,1) wq' ]) +title('w/q') +subplot(2,3,5) +plot([sq0*ones(100,1) sq' ]) +title('s/q') +subplot(2,3,6) +plot([rq0*ones(100,1) rq' ]) +title('r/q') + +print -depsc fig1151.ps + diff --git a/tests/practicing/Fig1152.mod b/tests/practicing/Fig1152.mod index da14b0779..0296a090a 100644 --- a/tests/practicing/Fig1152.mod +++ b/tests/practicing/Fig1152.mod @@ -1,80 +1,80 @@ -// This program replicates figure 11.3.1 from chapter 11 of RMT2 by Ljungqvist and Sargent - -var c k; -varexo taui tauc tauk g; -parameters bet gam del alpha A; -bet=.95; -gam=2; -del=.2; -alpha=.33; -A=1; - -model; -k=A*k(-1)^alpha+(1-del)*k(-1)-c-g; -c^(-gam)= bet*(c(+1)^(-gam))*((1+tauc(-1))/(1+tauc))*((1-taui)*(1-del)/(1-taui(-1))+ - ((1-tauk)/(1-taui(-1)))*alpha*A*k(-1)^(alpha-1)); -end; - -initval; -k=1.5; -c=0.6; -g = 0.2; -tauc = 0; -taui = 0; -tauk = 0; -end; -steady; - -endval; -k=1.5; -c=0.6; -g =0.2; -tauc =0; -taui =0; -tauk = 0.2; -end; -steady; - -shocks; -var tauk; -periods 1:9; -values 0; -end; - -simul(periods=100); - -co=ys0_(var_index('c')); -ko = ys0_(var_index('k')); -go = ex_(1,1); - -rbig0=1/bet; -rbig=y_(var_index('c'),2:101).^(-gam)./(bet*y_(var_index('c'),3:102).^(-gam)); -rq0=alpha*A*ko^(alpha-1); -rq=alpha*A*y_(var_index('k'),1:100).^(alpha-1); -wq0=A*ko^alpha-ko*alpha*A*ko^(alpha-1); -wq=A*y_(var_index('k'),1:100).^alpha-y_(var_index('k'),1:100).*alpha*A.*y_(var_index('k'),1:100).^(alpha-1); -sq0=(1-ex_(1,4))*A*alpha*ko^(alpha-1)+(1-del); -sq=(1-ex_(1:100,4)')*A*alpha.*y_(var_index('k'),1:100).^(alpha-1)+(1-del); - -figure -subplot(2,3,1) -plot([ko*ones(100,1) y_(var_index('k'),1:100)' ]) -title('k') -subplot(2,3,2) -plot([co*ones(100,1) y_(var_index('c'),2:101)' ]) -title('c') -subplot(2,3,3) -plot([rbig0*ones(100,1) rbig' ]) -title('R') -subplot(2,3,4) -plot([wq0*ones(100,1) wq' ]) -title('w/q') -subplot(2,3,5) -plot([sq0*ones(100,1) sq' ]) -title('s/q') -subplot(2,3,6) -plot([rq0*ones(100,1) rq' ]) -title('r/q') - -print -depsc fig1152.ps - +// This program replicates figure 11.3.1 from chapter 11 of RMT2 by Ljungqvist and Sargent + +var c k; +varexo taui tauc tauk g; +parameters bet gam del alpha A; +bet=.95; +gam=2; +del=.2; +alpha=.33; +A=1; + +model; +k=A*k(-1)^alpha+(1-del)*k(-1)-c-g; +c^(-gam)= bet*(c(+1)^(-gam))*((1+tauc(-1))/(1+tauc))*((1-taui)*(1-del)/(1-taui(-1))+ + ((1-tauk)/(1-taui(-1)))*alpha*A*k(-1)^(alpha-1)); +end; + +initval; +k=1.5; +c=0.6; +g = 0.2; +tauc = 0; +taui = 0; +tauk = 0; +end; +steady; + +endval; +k=1.5; +c=0.6; +g =0.2; +tauc =0; +taui =0; +tauk = 0.2; +end; +steady; + +shocks; +var tauk; +periods 1:9; +values 0; +end; + +simul(periods=100); + +co=ys0_(var_index('c')); +ko = ys0_(var_index('k')); +go = ex_(1,1); + +rbig0=1/bet; +rbig=y_(var_index('c'),2:101).^(-gam)./(bet*y_(var_index('c'),3:102).^(-gam)); +rq0=alpha*A*ko^(alpha-1); +rq=alpha*A*y_(var_index('k'),1:100).^(alpha-1); +wq0=A*ko^alpha-ko*alpha*A*ko^(alpha-1); +wq=A*y_(var_index('k'),1:100).^alpha-y_(var_index('k'),1:100).*alpha*A.*y_(var_index('k'),1:100).^(alpha-1); +sq0=(1-ex_(1,4))*A*alpha*ko^(alpha-1)+(1-del); +sq=(1-ex_(1:100,4)')*A*alpha.*y_(var_index('k'),1:100).^(alpha-1)+(1-del); + +figure +subplot(2,3,1) +plot([ko*ones(100,1) y_(var_index('k'),1:100)' ]) +title('k') +subplot(2,3,2) +plot([co*ones(100,1) y_(var_index('c'),2:101)' ]) +title('c') +subplot(2,3,3) +plot([rbig0*ones(100,1) rbig' ]) +title('R') +subplot(2,3,4) +plot([wq0*ones(100,1) wq' ]) +title('w/q') +subplot(2,3,5) +plot([sq0*ones(100,1) sq' ]) +title('s/q') +subplot(2,3,6) +plot([rq0*ones(100,1) rq' ]) +title('r/q') + +print -depsc fig1152.ps + diff --git a/tests/practicing/Fig1171.mod b/tests/practicing/Fig1171.mod index 353ddcee0..3870a8587 100644 --- a/tests/practicing/Fig1171.mod +++ b/tests/practicing/Fig1171.mod @@ -1,80 +1,80 @@ -// This program replicates figure 11.3.1 from chapter 11 of RMT2 by Ljungqvist and Sargent - -var c k; -varexo taui tauc tauk g; -parameters bet gam del alpha A; -bet=.95; -gam=2; -del=.2; -alpha=.33; -A=1; - -model; -k=A*k(-1)^alpha+(1-del)*k(-1)-c-g; -c^(-gam)= bet*(c(+1)^(-gam))*((1+tauc(-1))/(1+tauc))*((1-taui)*(1-del)/(1-taui(-1))+ - ((1-tauk)/(1-taui(-1)))*alpha*A*k(-1)^(alpha-1)); -end; - -initval; -k=1.5; -c=0.6; -g = 0.2; -tauc = 0; -taui = 0; -tauk = 0; -end; -steady; - -endval; -k=1.5; -c=0.6; -g = 0.2; -tauc =0; -taui =0; -tauk =0; -end; -steady; - -shocks; -var g; -periods 10; -values 0.4; -end; - -simul(periods=100); - -co=ys0_(var_index('c')); -ko = ys0_(var_index('k')); -go = ex_(1,1); - -rbig0=1/bet; -rbig=y_(var_index('c'),2:101).^(-gam)./(bet*y_(var_index('c'),3:102).^(-gam)); -rq0=alpha*A*ko^(alpha-1); -rq=alpha*A*y_(var_index('k'),1:100).^(alpha-1); -wq0=A*ko^alpha-ko*alpha*A*ko^(alpha-1); -wq=A*y_(var_index('k'),1:100).^alpha-y_(var_index('k'),1:100).*alpha*A.*y_(var_index('k'),1:100).^(alpha-1); -sq0=(1-ex_(1,4))*A*alpha*ko^(alpha-1)+(1-del); -sq=(1-ex_(1:100,4)')*A*alpha.*y_(var_index('k'),1:100).^(alpha-1)+(1-del); - -figure -subplot(2,3,1) -plot([ko*ones(100,1) y_(var_index('k'),1:100)' ]) -title('k') -subplot(2,3,2) -plot([co*ones(100,1) y_(var_index('c'),2:101)' ]) -title('c') -subplot(2,3,3) -plot([rbig0*ones(100,1) rbig' ]) -title('R') -subplot(2,3,4) -plot([wq0*ones(100,1) wq' ]) -title('w/q') -subplot(2,3,5) -plot([sq0*ones(100,1) sq' ]) -title('s/q') -subplot(2,3,6) -plot([rq0*ones(100,1) rq' ]) -title('r/q') - -print -depsc fig1171.ps - +// This program replicates figure 11.3.1 from chapter 11 of RMT2 by Ljungqvist and Sargent + +var c k; +varexo taui tauc tauk g; +parameters bet gam del alpha A; +bet=.95; +gam=2; +del=.2; +alpha=.33; +A=1; + +model; +k=A*k(-1)^alpha+(1-del)*k(-1)-c-g; +c^(-gam)= bet*(c(+1)^(-gam))*((1+tauc(-1))/(1+tauc))*((1-taui)*(1-del)/(1-taui(-1))+ + ((1-tauk)/(1-taui(-1)))*alpha*A*k(-1)^(alpha-1)); +end; + +initval; +k=1.5; +c=0.6; +g = 0.2; +tauc = 0; +taui = 0; +tauk = 0; +end; +steady; + +endval; +k=1.5; +c=0.6; +g = 0.2; +tauc =0; +taui =0; +tauk =0; +end; +steady; + +shocks; +var g; +periods 10; +values 0.4; +end; + +simul(periods=100); + +co=ys0_(var_index('c')); +ko = ys0_(var_index('k')); +go = ex_(1,1); + +rbig0=1/bet; +rbig=y_(var_index('c'),2:101).^(-gam)./(bet*y_(var_index('c'),3:102).^(-gam)); +rq0=alpha*A*ko^(alpha-1); +rq=alpha*A*y_(var_index('k'),1:100).^(alpha-1); +wq0=A*ko^alpha-ko*alpha*A*ko^(alpha-1); +wq=A*y_(var_index('k'),1:100).^alpha-y_(var_index('k'),1:100).*alpha*A.*y_(var_index('k'),1:100).^(alpha-1); +sq0=(1-ex_(1,4))*A*alpha*ko^(alpha-1)+(1-del); +sq=(1-ex_(1:100,4)')*A*alpha.*y_(var_index('k'),1:100).^(alpha-1)+(1-del); + +figure +subplot(2,3,1) +plot([ko*ones(100,1) y_(var_index('k'),1:100)' ]) +title('k') +subplot(2,3,2) +plot([co*ones(100,1) y_(var_index('c'),2:101)' ]) +title('c') +subplot(2,3,3) +plot([rbig0*ones(100,1) rbig' ]) +title('R') +subplot(2,3,4) +plot([wq0*ones(100,1) wq' ]) +title('w/q') +subplot(2,3,5) +plot([sq0*ones(100,1) sq' ]) +title('s/q') +subplot(2,3,6) +plot([rq0*ones(100,1) rq' ]) +title('r/q') + +print -depsc fig1171.ps + diff --git a/tests/practicing/Fig1172.mod b/tests/practicing/Fig1172.mod index 969b71f74..e1c74ee5c 100644 --- a/tests/practicing/Fig1172.mod +++ b/tests/practicing/Fig1172.mod @@ -1,80 +1,80 @@ -// This program replicates figure 11.3.1 from chapter 11 of RMT2 by Ljungqvist and Sargent - -var c k; -varexo taui tauc tauk g; -parameters bet gam del alpha A; -bet=.95; -gam=2; -del=.2; -alpha=.33; -A=1; - -model; -k=A*k(-1)^alpha+(1-del)*k(-1)-c-g; -c^(-gam)= bet*(c(+1)^(-gam))*((1+tauc(-1))/(1+tauc))*((1-taui)*(1-del)/(1-taui(-1))+ - ((1-tauk)/(1-taui(-1)))*alpha*A*k(-1)^(alpha-1)); -end; - -initval; -k=1.5; -c=0.6; -g = 0.2; -tauc = 0; -taui = 0; -tauk = 0; -end; -steady; - -endval; -k=1.5; -c=0.6; -g =0.2; -tauc =0; -taui =0; -tauk =0; -end; -steady; - -shocks; -var taui; -periods 10; -values 0.2; -end; - -simul(periods=100); - -co=ys0_(var_index('c')); -ko = ys0_(var_index('k')); -go = ex_(1,1); - -rbig0=1/bet; -rbig=y_(var_index('c'),2:101).^(-gam)./(bet*y_(var_index('c'),3:102).^(-gam)); -rq0=alpha*A*ko^(alpha-1); -rq=alpha*A*y_(var_index('k'),1:100).^(alpha-1); -wq0=A*ko^alpha-ko*alpha*A*ko^(alpha-1); -wq=A*y_(var_index('k'),1:100).^alpha-y_(var_index('k'),1:100).*alpha*A.*y_(var_index('k'),1:100).^(alpha-1); -sq0=(1-ex_(1,4))*A*alpha*ko^(alpha-1)+(1-del); -sq=(1-ex_(1:100,4)')*A*alpha.*y_(var_index('k'),1:100).^(alpha-1)+(1-del); - -figure -subplot(2,3,1) -plot([ko*ones(100,1) y_(var_index('k'),1:100)' ]) -title('k') -subplot(2,3,2) -plot([co*ones(100,1) y_(var_index('c'),2:101)' ]) -title('c') -subplot(2,3,3) -plot([rbig0*ones(100,1) rbig' ]) -title('R') -subplot(2,3,4) -plot([wq0*ones(100,1) wq' ]) -title('w/q') -subplot(2,3,5) -plot([sq0*ones(100,1) sq' ]) -title('s/q') -subplot(2,3,6) -plot([rq0*ones(100,1) rq' ]) -title('r/q') - -print -depsc fig1172.ps - +// This program replicates figure 11.3.1 from chapter 11 of RMT2 by Ljungqvist and Sargent + +var c k; +varexo taui tauc tauk g; +parameters bet gam del alpha A; +bet=.95; +gam=2; +del=.2; +alpha=.33; +A=1; + +model; +k=A*k(-1)^alpha+(1-del)*k(-1)-c-g; +c^(-gam)= bet*(c(+1)^(-gam))*((1+tauc(-1))/(1+tauc))*((1-taui)*(1-del)/(1-taui(-1))+ + ((1-tauk)/(1-taui(-1)))*alpha*A*k(-1)^(alpha-1)); +end; + +initval; +k=1.5; +c=0.6; +g = 0.2; +tauc = 0; +taui = 0; +tauk = 0; +end; +steady; + +endval; +k=1.5; +c=0.6; +g =0.2; +tauc =0; +taui =0; +tauk =0; +end; +steady; + +shocks; +var taui; +periods 10; +values 0.2; +end; + +simul(periods=100); + +co=ys0_(var_index('c')); +ko = ys0_(var_index('k')); +go = ex_(1,1); + +rbig0=1/bet; +rbig=y_(var_index('c'),2:101).^(-gam)./(bet*y_(var_index('c'),3:102).^(-gam)); +rq0=alpha*A*ko^(alpha-1); +rq=alpha*A*y_(var_index('k'),1:100).^(alpha-1); +wq0=A*ko^alpha-ko*alpha*A*ko^(alpha-1); +wq=A*y_(var_index('k'),1:100).^alpha-y_(var_index('k'),1:100).*alpha*A.*y_(var_index('k'),1:100).^(alpha-1); +sq0=(1-ex_(1,4))*A*alpha*ko^(alpha-1)+(1-del); +sq=(1-ex_(1:100,4)')*A*alpha.*y_(var_index('k'),1:100).^(alpha-1)+(1-del); + +figure +subplot(2,3,1) +plot([ko*ones(100,1) y_(var_index('k'),1:100)' ]) +title('k') +subplot(2,3,2) +plot([co*ones(100,1) y_(var_index('c'),2:101)' ]) +title('c') +subplot(2,3,3) +plot([rbig0*ones(100,1) rbig' ]) +title('R') +subplot(2,3,4) +plot([wq0*ones(100,1) wq' ]) +title('w/q') +subplot(2,3,5) +plot([sq0*ones(100,1) sq' ]) +title('s/q') +subplot(2,3,6) +plot([rq0*ones(100,1) rq' ]) +title('r/q') + +print -depsc fig1172.ps + diff --git a/tests/practicing/GrowthApproximate.mod b/tests/practicing/GrowthApproximate.mod index a33f62bcd..03b936a59 100644 --- a/tests/practicing/GrowthApproximate.mod +++ b/tests/practicing/GrowthApproximate.mod @@ -1,41 +1,41 @@ - - -periods 1000; - -var c k lab z; -varexo e; - -parameters bet the del alp tau rho s; - -bet = 0.987; -the = 0.357; -del = 0.012; -alp = 0.4; -tau = 2; -rho = 0.95; -s = 0.007; - -model; - (c^the*(1-lab)^(1-the))^(1-tau)/c=bet*((c(+1)^the*(1-lab(+1))^(1-the))^(1-tau)/c(+1))*(1+alp*exp(z(+1))*k^(alp-1)*lab(+1)^(1-alp)-del); - c=the/(1-the)*(1-alp)*exp(z)*k(-1)^alp*lab^(-alp)*(1-lab); - k=exp(z)*k(-1)^alp*lab^(1-alp)-c+(1-del)*k(-1); - z=rho*z(-1)+s*e; -end; - -initval; -k = 1; -c = 1; -lab = 0.3; -z = 0; -e = 0; -end; - -shocks; -var e; -stderr 1; -end; - -steady; - -stoch_simul(dr_algo=0,periods=1000,irf=40); -datasaver('simudata',[]); + + +periods 1000; + +var c k lab z; +varexo e; + +parameters bet the del alp tau rho s; + +bet = 0.987; +the = 0.357; +del = 0.012; +alp = 0.4; +tau = 2; +rho = 0.95; +s = 0.007; + +model; + (c^the*(1-lab)^(1-the))^(1-tau)/c=bet*((c(+1)^the*(1-lab(+1))^(1-the))^(1-tau)/c(+1))*(1+alp*exp(z(+1))*k^(alp-1)*lab(+1)^(1-alp)-del); + c=the/(1-the)*(1-alp)*exp(z)*k(-1)^alp*lab^(-alp)*(1-lab); + k=exp(z)*k(-1)^alp*lab^(1-alp)-c+(1-del)*k(-1); + z=rho*z(-1)+s*e; +end; + +initval; +k = 1; +c = 1; +lab = 0.3; +z = 0; +e = 0; +end; + +shocks; +var e; +stderr 1; +end; + +steady; + +stoch_simul(dr_algo=0,periods=1000,irf=40); +datasaver('simudata',[]); diff --git a/tests/practicing/GrowthEstimate.mod b/tests/practicing/GrowthEstimate.mod index 9ef1f4a3b..8c33ea92f 100644 --- a/tests/practicing/GrowthEstimate.mod +++ b/tests/practicing/GrowthEstimate.mod @@ -1,44 +1,44 @@ - -var c k lab z; -varexo e; - -parameters bet del alp rho the tau s; - -bet = 0.987; -the = 0.357; -del = 0.012; -alp = 0.4; -tau = 2; -rho = 0.95; -s = 0.007; - -model; - (c^the*(1-lab)^(1-the))^(1-tau)/c=bet*((c(+1)^the*(1-lab(+1))^(1-the))^(1-tau)/c(+1))*(1+alp*exp(z(+1))*k^(alp-1)*lab(+1)^(1-alp)-del); - c=the/(1-the)*(1-alp)*exp(z)*k(-1)^alp*lab^(-alp)*(1-lab); - k=exp(z)*k(-1)^alp*lab^(1-alp)-c+(1-del)*k(-1); - z=rho*z(-1)+s*e; -end; - -initval; -k = 1; -c = 1; -lab = 0.3; -z = 0; -e = 0; -end; - -shocks; -var e; -stderr 1; -end; - -estimated_params; -stderr e, inv_gamma_pdf, 0.95,30; -rho, beta_pdf,0.93,0.02; -the, normal_pdf,0.3,0.05; -tau, normal_pdf,2.1,0.3; -end; - -varobs c; - -estimation(datafile=simudata,mh_replic=1000,mh_jscale=0.9,nodiagnostic); + +var c k lab z; +varexo e; + +parameters bet del alp rho the tau s; + +bet = 0.987; +the = 0.357; +del = 0.012; +alp = 0.4; +tau = 2; +rho = 0.95; +s = 0.007; + +model; + (c^the*(1-lab)^(1-the))^(1-tau)/c=bet*((c(+1)^the*(1-lab(+1))^(1-the))^(1-tau)/c(+1))*(1+alp*exp(z(+1))*k^(alp-1)*lab(+1)^(1-alp)-del); + c=the/(1-the)*(1-alp)*exp(z)*k(-1)^alp*lab^(-alp)*(1-lab); + k=exp(z)*k(-1)^alp*lab^(1-alp)-c+(1-del)*k(-1); + z=rho*z(-1)+s*e; +end; + +initval; +k = 1; +c = 1; +lab = 0.3; +z = 0; +e = 0; +end; + +shocks; +var e; +stderr 1; +end; + +estimated_params; +stderr e, inv_gamma_pdf, 0.95,30; +rho, beta_pdf,0.93,0.02; +the, normal_pdf,0.3,0.05; +tau, normal_pdf,2.1,0.3; +end; + +varobs c; + +estimation(datafile=simudata,mh_replic=1000,mh_jscale=0.9,nodiagnostic); diff --git a/tests/practicing/HSTBayes.mod b/tests/practicing/HSTBayes.mod index 0efb6d742..ef5db051c 100644 --- a/tests/practicing/HSTBayes.mod +++ b/tests/practicing/HSTBayes.mod @@ -1,62 +1,62 @@ -// Estimates the Hansen Sargent and Tallarini model by maximum likelihood. - -var s c h k i d dhat dbar mus muc muh gamma R; -varexo e_dhat e_dbar; - -parameters lambda deltah deltak mud b bet phi1 phi2 cdbar alpha1 alpha2 cdhat; -bet=0.9971; -deltah=0.682; -lambda=2.443; -alpha1=0.813; -alpha2=0.189; -phi1=0.998; -phi2=0.704; -mud=13.710; -cdhat=0.155; -cdbar=0.108; -b=32; -deltak=0.975; - -model(linear); -R=deltak+gamma; -R*bet=1; -s=(1+lambda)*c-lambda*h(-1); -h=deltah*h(-1)+(1-deltah)*c; -k=deltak*k(-1)+i; -c+i=gamma*k(-1)+d; -mus=b-s; -muc=(1+lambda)*mus+(1-deltah)*muh; -muh=bet*(deltah*muh(+1)-lambda*mus(+1)); -muc=bet*R*muc(+1); -d=mud+dbar+dhat; -dbar=(phi1+phi2)*dbar(-1) - phi1*phi2*dbar(-2) + cdbar*e_dbar; -dhat=(alpha1+alpha2)*dhat(-1) - alpha1*alpha2*dhat(-2) + cdhat*e_dhat; -end; - -shocks; -var e_dhat; -stderr 1; -var e_dbar; -stderr 1; -end; - -stoch_simul(irf=0, periods=500); -// save dataHST c i; - -estimated_params; -bet,uniform_pdf, .9499999999, 0.0288675134306; -deltah,uniform_pdf, 0.45, 0.202072594216; -lambda,uniform_pdf, 25.05, 14.4048892163; -alpha1,uniform_pdf, 0.8, 0.115470053809; -alpha2,uniform_pdf, 0.25, 0.144337567297; -phi1,uniform_pdf, 0.8, 0.115470053809; -phi2,uniform_pdf, 0.5, 0.288675134595; -mud,uniform_pdf, 24.5, 14.1450815951; -cdhat,uniform_pdf, 0.175, 0.0721687836487; -cdbar,uniform_pdf, 0.175, 0.0721687836487; - -end; - -varobs c i; -// estimation(datafile=dataHST,first_obs=1,nobs=500,mode_compute=4,MH_jscale=2); -estimation(datafile=dataHST,first_obs=1,nobs=500,mode_compute=4,mode_check,mh_replic=5000,mh_nblocks=1,mh_jscale=0.3); +// Estimates the Hansen Sargent and Tallarini model by maximum likelihood. + +var s c h k i d dhat dbar mus muc muh gamma R; +varexo e_dhat e_dbar; + +parameters lambda deltah deltak mud b bet phi1 phi2 cdbar alpha1 alpha2 cdhat; +bet=0.9971; +deltah=0.682; +lambda=2.443; +alpha1=0.813; +alpha2=0.189; +phi1=0.998; +phi2=0.704; +mud=13.710; +cdhat=0.155; +cdbar=0.108; +b=32; +deltak=0.975; + +model(linear); +R=deltak+gamma; +R*bet=1; +s=(1+lambda)*c-lambda*h(-1); +h=deltah*h(-1)+(1-deltah)*c; +k=deltak*k(-1)+i; +c+i=gamma*k(-1)+d; +mus=b-s; +muc=(1+lambda)*mus+(1-deltah)*muh; +muh=bet*(deltah*muh(+1)-lambda*mus(+1)); +muc=bet*R*muc(+1); +d=mud+dbar+dhat; +dbar=(phi1+phi2)*dbar(-1) - phi1*phi2*dbar(-2) + cdbar*e_dbar; +dhat=(alpha1+alpha2)*dhat(-1) - alpha1*alpha2*dhat(-2) + cdhat*e_dhat; +end; + +shocks; +var e_dhat; +stderr 1; +var e_dbar; +stderr 1; +end; + +stoch_simul(irf=0, periods=500); +// save dataHST c i; + +estimated_params; +bet,uniform_pdf, .9499999999, 0.0288675134306; +deltah,uniform_pdf, 0.45, 0.202072594216; +lambda,uniform_pdf, 25.05, 14.4048892163; +alpha1,uniform_pdf, 0.8, 0.115470053809; +alpha2,uniform_pdf, 0.25, 0.144337567297; +phi1,uniform_pdf, 0.8, 0.115470053809; +phi2,uniform_pdf, 0.5, 0.288675134595; +mud,uniform_pdf, 24.5, 14.1450815951; +cdhat,uniform_pdf, 0.175, 0.0721687836487; +cdbar,uniform_pdf, 0.175, 0.0721687836487; + +end; + +varobs c i; +// estimation(datafile=dataHST,first_obs=1,nobs=500,mode_compute=4,MH_jscale=2); +estimation(datafile=dataHST,first_obs=1,nobs=500,mode_compute=4,mode_check,mh_replic=5000,mh_nblocks=1,mh_jscale=0.3); diff --git a/tests/practicing/HSTML.mod b/tests/practicing/HSTML.mod index 52f7febfb..6e94f0f30 100644 --- a/tests/practicing/HSTML.mod +++ b/tests/practicing/HSTML.mod @@ -1,62 +1,62 @@ -// Estimates the Hansen Sargent and Tallarini model by maximum likelihood. - -var s c h k i d dhat dbar mus muc muh gamma R; -varexo e_dhat e_dbar; - -parameters lambda deltah deltak mud b bet phi1 phi2 cdbar alpha1 alpha2 cdhat; -bet=0.9971; -deltah=0.682; -lambda=2.443; -alpha1=0.813; -alpha2=0.189; -phi1=0.998; -phi2=0.704; -mud=13.710; -cdhat=0.155; -cdbar=0.108; -b=32; -deltak=0.975; - -model(linear); -R=deltak+gamma; -R*bet=1; -s=(1+lambda)*c-lambda*h(-1); -h=deltah*h(-1)+(1-deltah)*c; -k=deltak*k(-1)+i; -c+i=gamma*k(-1)+d; -mus=b-s; -muc=(1+lambda)*mus+(1-deltah)*muh; -muh=bet*(deltah*muh(+1)-lambda*mus(+1)); -muc=bet*R*muc(+1); -d=mud+dbar+dhat; -dbar=(phi1+phi2)*dbar(-1) - phi1*phi2*dbar(-2) + cdbar*e_dbar; -dhat=(alpha1+alpha2)*dhat(-1) - alpha1*alpha2*dhat(-2) + cdhat*e_dhat; -end; - -shocks; -var e_dhat; -stderr 1; -var e_dbar; -stderr 1; -end; - -// stoch_simul(irf=0, periods=500); -// save dataHST c i; - -estimated_params; -bet, .91, .9, .99999; -deltah, 0.4, 0.1, 0.8; -lambda, 2, 0.1, 50; -alpha1, 0.8, 0.6, 0.99999; -alpha2, 0.2, 0.01, 0.5; -phi1, 0.8, 0.6, 0.99999; -phi2, 0.5, 0.3, 0.9; -mud, 10, 1, 50; -cdhat, 0.1, 0.05, 0.2; -cdbar, 0.1, 0.05, 0.2; - -end; - -varobs c i; -estimation(datafile=dataHST,first_obs=1,nobs=500,mode_compute=4,mode_check); - +// Estimates the Hansen Sargent and Tallarini model by maximum likelihood. + +var s c h k i d dhat dbar mus muc muh gamma R; +varexo e_dhat e_dbar; + +parameters lambda deltah deltak mud b bet phi1 phi2 cdbar alpha1 alpha2 cdhat; +bet=0.9971; +deltah=0.682; +lambda=2.443; +alpha1=0.813; +alpha2=0.189; +phi1=0.998; +phi2=0.704; +mud=13.710; +cdhat=0.155; +cdbar=0.108; +b=32; +deltak=0.975; + +model(linear); +R=deltak+gamma; +R*bet=1; +s=(1+lambda)*c-lambda*h(-1); +h=deltah*h(-1)+(1-deltah)*c; +k=deltak*k(-1)+i; +c+i=gamma*k(-1)+d; +mus=b-s; +muc=(1+lambda)*mus+(1-deltah)*muh; +muh=bet*(deltah*muh(+1)-lambda*mus(+1)); +muc=bet*R*muc(+1); +d=mud+dbar+dhat; +dbar=(phi1+phi2)*dbar(-1) - phi1*phi2*dbar(-2) + cdbar*e_dbar; +dhat=(alpha1+alpha2)*dhat(-1) - alpha1*alpha2*dhat(-2) + cdhat*e_dhat; +end; + +shocks; +var e_dhat; +stderr 1; +var e_dbar; +stderr 1; +end; + +// stoch_simul(irf=0, periods=500); +// save dataHST c i; + +estimated_params; +bet, .91, .9, .99999; +deltah, 0.4, 0.1, 0.8; +lambda, 2, 0.1, 50; +alpha1, 0.8, 0.6, 0.99999; +alpha2, 0.2, 0.01, 0.5; +phi1, 0.8, 0.6, 0.99999; +phi2, 0.5, 0.3, 0.9; +mud, 10, 1, 50; +cdhat, 0.1, 0.05, 0.2; +cdbar, 0.1, 0.05, 0.2; + +end; + +varobs c i; +estimation(datafile=dataHST,first_obs=1,nobs=500,mode_compute=4,mode_check); + diff --git a/tests/practicing/TwocountryApprox.mod b/tests/practicing/TwocountryApprox.mod index 024cd4d79..02b2ced97 100644 --- a/tests/practicing/TwocountryApprox.mod +++ b/tests/practicing/TwocountryApprox.mod @@ -1,45 +1,45 @@ -periods 200; -var c1 c2 k1 k2 a1 a2 y1 y2; -varexo e1 e2; - -parameters gamma delta alpha beta rho; - -gamma=2; -delta=.05; -alpha=.4; -beta=.98; -rho=.85; - -model; -c1=c2; -exp(c1)^(-gamma) = beta*exp(c1(+1))^(-gamma)*(alpha*exp(a1(+1))*exp(k1)^(alpha-1)+1-delta); -exp(c2)^(-gamma) = beta*exp(c2(+1))^(-gamma)*(alpha*exp(a2(+1))*exp(k2)^(alpha-1)+1-delta); -exp(c1)+exp(c2)+exp(k1)-exp(k1(-1))*(1-delta)+exp(k2)-exp(k2(-1))*(1-delta) = exp(a1)*exp(k1(-1))^alpha+exp(a2)*exp(k2(-1))^alpha; -a1=rho*a1(-1)+e1; -a2=rho*a2(-1)+e2; -exp(y1)=exp(a1)*exp(k1(-1))^alpha; -exp(y2)=exp(a2)*exp(k2(-1))^alpha; -end; - -initval; -y1=1.1; -y2=1.1; -k1=2.8; -k2=2.8; -c1=.8; -c2=.8; -a1=0; -a2=0; -e1=0; -e2=0; -end; - -shocks; -var e1; stderr .08; -var e2; stderr .08; -end; - -steady; - -stoch_simul(dr_algo=0,periods=200); +periods 200; +var c1 c2 k1 k2 a1 a2 y1 y2; +varexo e1 e2; + +parameters gamma delta alpha beta rho; + +gamma=2; +delta=.05; +alpha=.4; +beta=.98; +rho=.85; + +model; +c1=c2; +exp(c1)^(-gamma) = beta*exp(c1(+1))^(-gamma)*(alpha*exp(a1(+1))*exp(k1)^(alpha-1)+1-delta); +exp(c2)^(-gamma) = beta*exp(c2(+1))^(-gamma)*(alpha*exp(a2(+1))*exp(k2)^(alpha-1)+1-delta); +exp(c1)+exp(c2)+exp(k1)-exp(k1(-1))*(1-delta)+exp(k2)-exp(k2(-1))*(1-delta) = exp(a1)*exp(k1(-1))^alpha+exp(a2)*exp(k2(-1))^alpha; +a1=rho*a1(-1)+e1; +a2=rho*a2(-1)+e2; +exp(y1)=exp(a1)*exp(k1(-1))^alpha; +exp(y2)=exp(a2)*exp(k2(-1))^alpha; +end; + +initval; +y1=1.1; +y2=1.1; +k1=2.8; +k2=2.8; +c1=.8; +c2=.8; +a1=0; +a2=0; +e1=0; +e2=0; +end; + +shocks; +var e1; stderr .08; +var e2; stderr .08; +end; + +steady; + +stoch_simul(dr_algo=0,periods=200); datatomfile('simu2',[]); \ No newline at end of file diff --git a/tests/practicing/TwocountryEst.mod b/tests/practicing/TwocountryEst.mod index bc5a41f4c..1594a2a1a 100644 --- a/tests/practicing/TwocountryEst.mod +++ b/tests/practicing/TwocountryEst.mod @@ -1,51 +1,51 @@ -periods 200; -var c1 c2 k1 k2 a1 a2 y1 y2; -varexo e1 e2; - -parameters gamma delta alpha beta rho; - -gamma=2; -delta=.05; -alpha=.4; -beta=.98; -rho=.85; - -model; -c1=c2; -exp(c1)^(-gamma) = beta*exp(c1(+1))^(-gamma)*(alpha*exp(a1(+1))*exp(k1)^(alpha-1)+1-delta); -exp(c2)^(-gamma) = beta*exp(c2(+1))^(-gamma)*(alpha*exp(a2(+1))*exp(k2)^(alpha-1)+1-delta); -exp(c1)+exp(c2)+exp(k1)-exp(k1(-1))*(1-delta)+exp(k2)-exp(k2(-1))*(1-delta) = exp(a1)*exp(k1(-1))^alpha+exp(a2)*exp(k2(-1))^alpha; -a1=rho*a1(-1)+e1; -a2=rho*a2(-1)+e2; -exp(y1)=exp(a1)*exp(k1(-1))^alpha; -exp(y2)=exp(a2)*exp(k2(-1))^alpha; -end; - -initval; -y1=1.1; -y2=1.1; -k1=2.8; -k2=2.8; -c1=.8; -c2=.8; -a1=0; -a2=0; -e1=0; -e2=0; -end; - -shocks; -var e1; stderr .08; -var e2; stderr .08; -end; - -steady; -estimated_params; -alpha, normal_pdf, .35, .05; -rho, normal_pdf, .8, .05; -stderr e1, inv_gamma_pdf, .09, 10; -stderr e2, inv_gamma_pdf, .09, 10; -end; - -varobs y1 y2; +periods 200; +var c1 c2 k1 k2 a1 a2 y1 y2; +varexo e1 e2; + +parameters gamma delta alpha beta rho; + +gamma=2; +delta=.05; +alpha=.4; +beta=.98; +rho=.85; + +model; +c1=c2; +exp(c1)^(-gamma) = beta*exp(c1(+1))^(-gamma)*(alpha*exp(a1(+1))*exp(k1)^(alpha-1)+1-delta); +exp(c2)^(-gamma) = beta*exp(c2(+1))^(-gamma)*(alpha*exp(a2(+1))*exp(k2)^(alpha-1)+1-delta); +exp(c1)+exp(c2)+exp(k1)-exp(k1(-1))*(1-delta)+exp(k2)-exp(k2(-1))*(1-delta) = exp(a1)*exp(k1(-1))^alpha+exp(a2)*exp(k2(-1))^alpha; +a1=rho*a1(-1)+e1; +a2=rho*a2(-1)+e2; +exp(y1)=exp(a1)*exp(k1(-1))^alpha; +exp(y2)=exp(a2)*exp(k2(-1))^alpha; +end; + +initval; +y1=1.1; +y2=1.1; +k1=2.8; +k2=2.8; +c1=.8; +c2=.8; +a1=0; +a2=0; +e1=0; +e2=0; +end; + +shocks; +var e1; stderr .08; +var e2; stderr .08; +end; + +steady; +estimated_params; +alpha, normal_pdf, .35, .05; +rho, normal_pdf, .8, .05; +stderr e1, inv_gamma_pdf, .09, 10; +stderr e2, inv_gamma_pdf, .09, 10; +end; + +varobs y1 y2; estimation(datafile=simu2,mh_replic=1200,mh_jscale=.7,nodiagnostic); \ No newline at end of file diff --git a/tests/practicing/hall1.mod b/tests/practicing/hall1.mod index 974fbca7e..d45d50a93 100644 --- a/tests/practicing/hall1.mod +++ b/tests/practicing/hall1.mod @@ -1,46 +1,46 @@ -periods 5000; - -var c k mu_c b d in; -varexo e_d e_b; - -parameters R rho rho_b mu_b mu_d; -R=1.05; -//rho=0.9; -rho = 0; -mu_b=30; -mu_d=5; -rho_b = 0; - -model(linear); - - c+k = R*k(-1) + d; - mu_c = b - c; - mu_c=mu_c(+1); - d= rho*d(-1)+ mu_d*(1-rho) + e_d; - b=(1-rho_b)*mu_b+rho_b*b(-1)+e_b; - in = k - k(-1); - end; - -//With a unit root, there exists no steady state. Use the following trick. -//Supply ONE solution corresponding to the initial k that you named. - -initval; -d=mu_d; -k=100; -c = (R-1)*k +d; -mu_c=mu_b-c; -b=mu_b; -end; - -shocks; -var e_d; -stderr 1; -var e_b; -stderr 1; -end; - -steady; -check; - -stoch_simul(dr_algo=1, order=1, periods=500, irf=10); +periods 5000; + +var c k mu_c b d in; +varexo e_d e_b; + +parameters R rho rho_b mu_b mu_d; +R=1.05; +//rho=0.9; +rho = 0; +mu_b=30; +mu_d=5; +rho_b = 0; + +model(linear); + + c+k = R*k(-1) + d; + mu_c = b - c; + mu_c=mu_c(+1); + d= rho*d(-1)+ mu_d*(1-rho) + e_d; + b=(1-rho_b)*mu_b+rho_b*b(-1)+e_b; + in = k - k(-1); + end; + +//With a unit root, there exists no steady state. Use the following trick. +//Supply ONE solution corresponding to the initial k that you named. + +initval; +d=mu_d; +k=100; +c = (R-1)*k +d; +mu_c=mu_b-c; +b=mu_b; +end; + +shocks; +var e_d; +stderr 1; +var e_b; +stderr 1; +end; + +steady; +check; + +stoch_simul(dr_algo=1, order=1, periods=500, irf=10); save data_hall c in; \ No newline at end of file diff --git a/tests/practicing/hall1estimateBayes.mod b/tests/practicing/hall1estimateBayes.mod index 0fe590dab..e78ec113b 100644 --- a/tests/practicing/hall1estimateBayes.mod +++ b/tests/practicing/hall1estimateBayes.mod @@ -1,54 +1,54 @@ -// Estimates the hall model using Bayesian method. -// hall1_estimate.mod estimates by maximum likelihood - -periods 5000; - -var c k mu_c b d in; -varexo e_d e_b; - -parameters R rho rho_b mu_b mu_d; -R=1.05; -rho=0.9; -mu_b=30; -mu_d=5; -rho_b = 0.5; - -model(linear); - - c+k = R*k(-1) + d; - mu_c = b - c; - mu_c=mu_c(+1); - d= rho*d(-1)+ mu_d*(1-rho) + e_d; - b=(1-rho_b)*mu_b+rho_b*b(-1)+e_b; -in = k - k(-1); - end; -// Michel says that in a stationary linear model, this junk is irrelevant. -// But with a unit root, there exists no steady state. Use the following trick. -// Supply ONE solution corresponding to the initial k that you named. (Michel is a gneius!! Or so he thinks -- let's see -// if this works.) - -initval; -d=mu_d; -k=100; -c = (R-1)*k +d; -mu_c=mu_b-c; -b=mu_b; -end; - -shocks; -var e_d; -stderr 0.05; -var e_b; -stderr 0.05; -end; - -estimated_params; -rho, beta_pdf, .1, 0.2; -R, normal_pdf, 1.02, 0.05; -end; - -varobs c in; -// declare the unit root variables for diffuse filter -unit_root_vars k; -//estimation(datafile=data_hall,first_obs=101,nobs=200,mh_replic=1000,mh_nblocks=2,mh_jscale=2,mode_compute=0,mode_file=hall1_estimate2_mode); -estimation(datafile=data_hall,first_obs=101,nobs=200,mh_replic=1000,mh_nblocks=2,mh_jscale=2); +// Estimates the hall model using Bayesian method. +// hall1_estimate.mod estimates by maximum likelihood + +periods 5000; + +var c k mu_c b d in; +varexo e_d e_b; + +parameters R rho rho_b mu_b mu_d; +R=1.05; +rho=0.9; +mu_b=30; +mu_d=5; +rho_b = 0.5; + +model(linear); + + c+k = R*k(-1) + d; + mu_c = b - c; + mu_c=mu_c(+1); + d= rho*d(-1)+ mu_d*(1-rho) + e_d; + b=(1-rho_b)*mu_b+rho_b*b(-1)+e_b; +in = k - k(-1); + end; +// Michel says that in a stationary linear model, this junk is irrelevant. +// But with a unit root, there exists no steady state. Use the following trick. +// Supply ONE solution corresponding to the initial k that you named. (Michel is a gneius!! Or so he thinks -- let's see +// if this works.) + +initval; +d=mu_d; +k=100; +c = (R-1)*k +d; +mu_c=mu_b-c; +b=mu_b; +end; + +shocks; +var e_d; +stderr 0.05; +var e_b; +stderr 0.05; +end; + +estimated_params; +rho, beta_pdf, .1, 0.2; +R, normal_pdf, 1.02, 0.05; +end; + +varobs c in; +// declare the unit root variables for diffuse filter +unit_root_vars k; +//estimation(datafile=data_hall,first_obs=101,nobs=200,mh_replic=1000,mh_nblocks=2,mh_jscale=2,mode_compute=0,mode_file=hall1_estimate2_mode); +estimation(datafile=data_hall,first_obs=101,nobs=200,mh_replic=1000,mh_nblocks=2,mh_jscale=2); diff --git a/tests/practicing/hall1estimateML.mod b/tests/practicing/hall1estimateML.mod index 7eb498871..82eee5646 100644 --- a/tests/practicing/hall1estimateML.mod +++ b/tests/practicing/hall1estimateML.mod @@ -1,56 +1,56 @@ -// Estimates the hall model using maximum likelihood. See hall1_estimateBayes.mod for Bayesian method - -periods 5000; - -var c k mu_c b d in; -varexo e_d e_b; - -parameters R rho rho_b mu_b mu_d; -R=1.05; -rho=0.9; -mu_b=30; -mu_d=5; -rho_b = 0.5; - -model(linear); - - c+k = R*k(-1) + d; - mu_c = b - c; - mu_c=mu_c(+1); - d= rho*d(-1)+ mu_d*(1-rho) + e_d; - b=(1-rho_b)*mu_b+rho_b*b(-1)+e_b; -in = k - k(-1); - end; -// Michel says that in a stationary linear model, this junk is irrelevant. -// But with a unit root, there exists no steady state. Use the following trick. -// Supply ONE solution corresponding to the initial k that you named. (Michel is a gneius!! Or so he thinks -- let's see -// if this works.) - -initval; -d=mu_d; -k=100; -c = (R-1)*k +d; -mu_c=mu_b-c; -b=mu_b; -end; - -shocks; -var e_d; -stderr 0.05; -var e_b; -stderr 0.05; -end; - -estimated_params; -// ML estimation setup -// parameter name, initial value, boundaries_low, ..._up; -// now we use the optimum results from csminwel for starting up Marco's -rho, -0.0159, -0.9, 0.9; -R, 1.0074, 0, 1.5; -end; - -varobs c in; -// declare the unit root variables for diffuse filter -unit_root_vars k; -estimation(datafile=data_hall,first_obs=101,nobs=200,mh_replic=0,mode_compute=4,mode_check); +// Estimates the hall model using maximum likelihood. See hall1_estimateBayes.mod for Bayesian method + +periods 5000; + +var c k mu_c b d in; +varexo e_d e_b; + +parameters R rho rho_b mu_b mu_d; +R=1.05; +rho=0.9; +mu_b=30; +mu_d=5; +rho_b = 0.5; + +model(linear); + + c+k = R*k(-1) + d; + mu_c = b - c; + mu_c=mu_c(+1); + d= rho*d(-1)+ mu_d*(1-rho) + e_d; + b=(1-rho_b)*mu_b+rho_b*b(-1)+e_b; +in = k - k(-1); + end; +// Michel says that in a stationary linear model, this junk is irrelevant. +// But with a unit root, there exists no steady state. Use the following trick. +// Supply ONE solution corresponding to the initial k that you named. (Michel is a gneius!! Or so he thinks -- let's see +// if this works.) + +initval; +d=mu_d; +k=100; +c = (R-1)*k +d; +mu_c=mu_b-c; +b=mu_b; +end; + +shocks; +var e_d; +stderr 0.05; +var e_b; +stderr 0.05; +end; + +estimated_params; +// ML estimation setup +// parameter name, initial value, boundaries_low, ..._up; +// now we use the optimum results from csminwel for starting up Marco's +rho, -0.0159, -0.9, 0.9; +R, 1.0074, 0, 1.5; +end; + +varobs c in; +// declare the unit root variables for diffuse filter +unit_root_vars k; +estimation(datafile=data_hall,first_obs=101,nobs=200,mh_replic=0,mode_compute=4,mode_check); // Note: there is a problem when you try to use method 5. Tom, Jan 13, 2006 \ No newline at end of file diff --git a/tests/practicing/rosen.mod b/tests/practicing/rosen.mod index ed71d8940..a38618979 100644 --- a/tests/practicing/rosen.mod +++ b/tests/practicing/rosen.mod @@ -1,55 +1,55 @@ -// Rosen schooling model -// -// The model is the one Sherwin Rosen showed Sargent in Sargent's Chicago office. -// The equations are -// -// s_t = a0 + a1*P_t + e_st ; flow supply of new engineers -// -// N_t = (1-delta)*N_{t-1} + s_{t-k} ; time to school engineers -// -// N_t = d0 - d1*W_t +e_dt ; demand for engineers -// -// P_t = (1-delta)*bet P_(t+1) + beta^k*W_(t+k); present value of wages of an engineer - - -periods 500; -var s N P W; -varexo e_s e_d; - - -parameters a0 a1 delta d0 d1 bet k; -a0=10; -a1=1; -d0=1000; -d1=1; -bet=.99; -delta=.02; - -model(linear); -s=a0+a1*P+e_s; // flow supply of new entrants -N=(1-delta)*N(-1) + s(-4); // evolution of the stock -N=d0-d1*W+e_d; // stock demand equation -P=bet*(1-delta)*P(+1) + bet^4*(1-delta)^4*W(+4); // present value of wages -end; - -initval; -s=0; -N=0; -P=0; -W=0; -end; - -shocks; -var e_d; -stderr 1; -var e_s; -stderr 1; -end; - -steady; -check; - -stoch_simul(dr_algo=1, order=1, periods=500, irf=10); -//datasaver('simudata',[]); -save data_rosen s N P W; - +// Rosen schooling model +// +// The model is the one Sherwin Rosen showed Sargent in Sargent's Chicago office. +// The equations are +// +// s_t = a0 + a1*P_t + e_st ; flow supply of new engineers +// +// N_t = (1-delta)*N_{t-1} + s_{t-k} ; time to school engineers +// +// N_t = d0 - d1*W_t +e_dt ; demand for engineers +// +// P_t = (1-delta)*bet P_(t+1) + beta^k*W_(t+k); present value of wages of an engineer + + +periods 500; +var s N P W; +varexo e_s e_d; + + +parameters a0 a1 delta d0 d1 bet k; +a0=10; +a1=1; +d0=1000; +d1=1; +bet=.99; +delta=.02; + +model(linear); +s=a0+a1*P+e_s; // flow supply of new entrants +N=(1-delta)*N(-1) + s(-4); // evolution of the stock +N=d0-d1*W+e_d; // stock demand equation +P=bet*(1-delta)*P(+1) + bet^4*(1-delta)^4*W(+4); // present value of wages +end; + +initval; +s=0; +N=0; +P=0; +W=0; +end; + +shocks; +var e_d; +stderr 1; +var e_s; +stderr 1; +end; + +steady; +check; + +stoch_simul(dr_algo=1, order=1, periods=500, irf=10); +//datasaver('simudata',[]); +save data_rosen s N P W; + diff --git a/tests/practicing/rosenestimateBayes.mod b/tests/practicing/rosenestimateBayes.mod index e93ab59da..64892b753 100644 --- a/tests/practicing/rosenestimateBayes.mod +++ b/tests/practicing/rosenestimateBayes.mod @@ -1,63 +1,63 @@ -// Estimates the Rosen schooling model by maximum likelihood - -// Rosen schooling model -// -// The model is the one Sherwin Rosen showed Sargent in Sargent's Chicago office. -// The equations are -// -// s_t = a0 + a1*P_t + e_st ; flow supply of new engineers -// -// N_t = (1-delta)*N_{t-1} + s_{t-k} ; time to school engineers -// -// N_t = d0 - d1*W_t +e_dt ; demand for engineers -// -// P_t = (1-delta)*bet P_(t+1) + W_(t+k); present value of wages of an engineer - - -periods 500; -var s N P W; -varexo e_s e_d; - - - -parameters a0 a1 delta d0 d1 bet ; -a0=10; -a1=1; -d0=1000; -d1=1; -bet=.99; -delta=.02; - -model(linear); - -s=a0+a1*P+e_s; // flow supply of new entrants -N=(1-delta)*N(-1) + s(-4); // evolution of the stock -N=d0-d1*W+e_d; // stock demand equation -P=bet*(1-delta)*P(+1) + bet^4*(1-delta)^4*W(+4); // present value of wages -end; - -initval; -s=0; -N=0; -P=0; -W=0; -end; - -shocks; -var e_d; -stderr 1; -var e_s; -stderr 1; -end; - -steady; - -estimated_params; -a1, gamma_pdf, .5, .5; -d1, gamma_pdf, 2, .5; -end; - -varobs W N; -estimation(datafile=data_rosen,first_obs=101,nobs=200,mh_replic=5000,mh_nblocks=2,mh_jscale=2,mode_compute=0,mode_file=rosen_estimateML_mode); - - +// Estimates the Rosen schooling model by maximum likelihood + +// Rosen schooling model +// +// The model is the one Sherwin Rosen showed Sargent in Sargent's Chicago office. +// The equations are +// +// s_t = a0 + a1*P_t + e_st ; flow supply of new engineers +// +// N_t = (1-delta)*N_{t-1} + s_{t-k} ; time to school engineers +// +// N_t = d0 - d1*W_t +e_dt ; demand for engineers +// +// P_t = (1-delta)*bet P_(t+1) + W_(t+k); present value of wages of an engineer + + +periods 500; +var s N P W; +varexo e_s e_d; + + + +parameters a0 a1 delta d0 d1 bet ; +a0=10; +a1=1; +d0=1000; +d1=1; +bet=.99; +delta=.02; + +model(linear); + +s=a0+a1*P+e_s; // flow supply of new entrants +N=(1-delta)*N(-1) + s(-4); // evolution of the stock +N=d0-d1*W+e_d; // stock demand equation +P=bet*(1-delta)*P(+1) + bet^4*(1-delta)^4*W(+4); // present value of wages +end; + +initval; +s=0; +N=0; +P=0; +W=0; +end; + +shocks; +var e_d; +stderr 1; +var e_s; +stderr 1; +end; + +steady; + +estimated_params; +a1, gamma_pdf, .5, .5; +d1, gamma_pdf, 2, .5; +end; + +varobs W N; +estimation(datafile=data_rosen,first_obs=101,nobs=200,mh_replic=5000,mh_nblocks=2,mh_jscale=2,mode_compute=0,mode_file=rosen_estimateML_mode); + + diff --git a/tests/practicing/rosenestimateML.mod b/tests/practicing/rosenestimateML.mod index f9768f20e..8321b5546 100644 --- a/tests/practicing/rosenestimateML.mod +++ b/tests/practicing/rosenestimateML.mod @@ -1,65 +1,65 @@ -// Estimates the Rosen schooling model by maximum likelihood - -// Rosen schooling model -// -// The model is the one Sherwin Rosen showed Sargent in Sargent's Chicago office. -// The equations are -// -// s_t = a0 + a1*P_t + e_st ; flow supply of new engineers -// -// N_t = (1-delta)*N_{t-1} + s_{t-k} ; time to school engineers -// -// N_t = d0 - d1*W_t +e_dt ; demand for engineers -// -// P_t = (1-delta)*bet P_(t+1) + W_(t+k); present value of wages of an engineer - - -periods 500; -var s N P W; -varexo e_s e_d; - - - -parameters a0 a1 delta d0 d1 bet ; -a0=10; -a1=1; -d0=1000; -d1=1; -bet=.99; -delta=.02; - -model(linear); - -s=a0+a1*P+e_s; // flow supply of new entrants -N=(1-delta)*N(-1) + s(-4); // evolution of the stock -N=d0-d1*W+e_d; // stock demand equation -P=bet*(1-delta)*P(+1) + bet^4*(1-delta)^4*W(+4); // present value of wages -end; - -initval; -s=0; -N=0; -P=0; -W=0; -end; - -shocks; -var e_d; -stderr 1; -var e_s; -stderr 1; -end; - -steady; - -estimated_params; -a1, .5, -10, 10; -d1, .5, -20, 40; // these are the ranges for the parameters -end; - -varobs W N; - estimation(datafile=data_rosen,first_obs=101,nobs=200,mh_replic=0,mode_compute=4,mode_check); - - - - +// Estimates the Rosen schooling model by maximum likelihood + +// Rosen schooling model +// +// The model is the one Sherwin Rosen showed Sargent in Sargent's Chicago office. +// The equations are +// +// s_t = a0 + a1*P_t + e_st ; flow supply of new engineers +// +// N_t = (1-delta)*N_{t-1} + s_{t-k} ; time to school engineers +// +// N_t = d0 - d1*W_t +e_dt ; demand for engineers +// +// P_t = (1-delta)*bet P_(t+1) + W_(t+k); present value of wages of an engineer + + +periods 500; +var s N P W; +varexo e_s e_d; + + + +parameters a0 a1 delta d0 d1 bet ; +a0=10; +a1=1; +d0=1000; +d1=1; +bet=.99; +delta=.02; + +model(linear); + +s=a0+a1*P+e_s; // flow supply of new entrants +N=(1-delta)*N(-1) + s(-4); // evolution of the stock +N=d0-d1*W+e_d; // stock demand equation +P=bet*(1-delta)*P(+1) + bet^4*(1-delta)^4*W(+4); // present value of wages +end; + +initval; +s=0; +N=0; +P=0; +W=0; +end; + +shocks; +var e_d; +stderr 1; +var e_s; +stderr 1; +end; + +steady; + +estimated_params; +a1, .5, -10, 10; +d1, .5, -20, 40; // these are the ranges for the parameters +end; + +varobs W N; + estimation(datafile=data_rosen,first_obs=101,nobs=200,mh_replic=0,mode_compute=4,mode_check); + + + + diff --git a/tests/practicing/sargent77.mod b/tests/practicing/sargent77.mod index f2983fdf4..bc8de36bd 100644 --- a/tests/practicing/sargent77.mod +++ b/tests/practicing/sargent77.mod @@ -1,41 +1,41 @@ -// this program solves and simulates the model in -// "The Demand for Money during Hyperinflations under Rational Expectations: I" by T. Sargent, IER 1977 -// this program mainly serves as the data generating process for the estimation of the model in sargent77ML.mod and sargent77Bayes.mod -// variables are defined as follows: -// x=p_t-p_{t-1}, p being the log of the price level -// mu=m_t-m_{t-1}, m being the log of money supply -// note that in contrast to the paper eta and epsilon have variance 1 (they are multiplied by the standard deviations) - - - -var x mu a1 a2; -varexo epsilon eta; -parameters alpha lambda sig_eta sig_epsilon; -lambda=.5921; -alpha=-2.344; -sig_eta= .001; -sig_epsilon= .001; - - -// the model equations are taken from equation (27) on page 69 of the paper - -model; -x=x(-1)-lambda*a1(-1)+(1/(lambda+alpha*(1-lambda)))*sig_epsilon*epsilon-(1/(lambda+alpha*(1-lambda)))*sig_eta*eta; -mu=(1-lambda)*x(-1)+lambda*mu(-1)-lambda*a2(-1)+(1+alpha*(1-lambda))/(lambda+alpha*(1-lambda))*sig_epsilon*epsilon-(1-lambda)/(lambda+alpha*(1-lambda))*sig_eta*eta; -a1=(1/(lambda+alpha*(1-lambda)))*sig_epsilon*epsilon-(1/(lambda+alpha*(1-lambda)))*sig_eta*eta; -a2=(1+alpha*(1-lambda))/(lambda+alpha*(1-lambda))*sig_epsilon*epsilon-(1-lambda)/(lambda+alpha*(1-lambda))*sig_eta*eta; -end; - -steady; - -shocks; - -var eta; -stderr 1; -var epsilon; -stderr 1; -end; - -stoch_simul(dr_algo=1,drop=0, order=1, periods=33, irf=0); - +// this program solves and simulates the model in +// "The Demand for Money during Hyperinflations under Rational Expectations: I" by T. Sargent, IER 1977 +// this program mainly serves as the data generating process for the estimation of the model in sargent77ML.mod and sargent77Bayes.mod +// variables are defined as follows: +// x=p_t-p_{t-1}, p being the log of the price level +// mu=m_t-m_{t-1}, m being the log of money supply +// note that in contrast to the paper eta and epsilon have variance 1 (they are multiplied by the standard deviations) + + + +var x mu a1 a2; +varexo epsilon eta; +parameters alpha lambda sig_eta sig_epsilon; +lambda=.5921; +alpha=-2.344; +sig_eta= .001; +sig_epsilon= .001; + + +// the model equations are taken from equation (27) on page 69 of the paper + +model; +x=x(-1)-lambda*a1(-1)+(1/(lambda+alpha*(1-lambda)))*sig_epsilon*epsilon-(1/(lambda+alpha*(1-lambda)))*sig_eta*eta; +mu=(1-lambda)*x(-1)+lambda*mu(-1)-lambda*a2(-1)+(1+alpha*(1-lambda))/(lambda+alpha*(1-lambda))*sig_epsilon*epsilon-(1-lambda)/(lambda+alpha*(1-lambda))*sig_eta*eta; +a1=(1/(lambda+alpha*(1-lambda)))*sig_epsilon*epsilon-(1/(lambda+alpha*(1-lambda)))*sig_eta*eta; +a2=(1+alpha*(1-lambda))/(lambda+alpha*(1-lambda))*sig_epsilon*epsilon-(1-lambda)/(lambda+alpha*(1-lambda))*sig_eta*eta; +end; + +steady; + +shocks; + +var eta; +stderr 1; +var epsilon; +stderr 1; +end; + +stoch_simul(dr_algo=1,drop=0, order=1, periods=33, irf=0); + save data_hyperinfl x mu; \ No newline at end of file diff --git a/tests/practicing/sargent77Bayes.mod b/tests/practicing/sargent77Bayes.mod index 39492e09a..8895296e2 100644 --- a/tests/practicing/sargent77Bayes.mod +++ b/tests/practicing/sargent77Bayes.mod @@ -1,48 +1,48 @@ -// this program estimates the model in -// "The Demand for Money during Hyperinflations under Rational Expectations: I" by T. Sargent, IER 1977 using Bayesian techniques -// variables are defined as follows: -// x=p_t-p_{t-1}, p being the log of the price level -// mu=m_t-m_{t-1}, m being the log of money supply -// note that in contrast to the paper eta and epsilon have variance 1 (they are multiplied by the standard deviations) - - - -var x mu a1 a2; -varexo epsilon eta; -parameters alpha lambda sig_eta sig_epsilon; -lambda=.5921; -alpha=-2.344; -sig_eta=.001; -sig_epsilon=.001; - -model; -x=x(-1)-lambda*a1(-1)+(1/(lambda+alpha*(1-lambda)))*sig_epsilon*epsilon-(1/(lambda+alpha*(1-lambda)))*sig_eta*eta; -mu=(1-lambda)*x(-1)+lambda*mu(-1)-lambda*a2(-1)+(1+alpha*(1-lambda))/(lambda+alpha*(1-lambda))*sig_epsilon*epsilon-(1-lambda)/(lambda+alpha*(1-lambda))*sig_eta*eta; -a1=(1/(lambda+alpha*(1-lambda)))*sig_epsilon*epsilon-(1/(lambda+alpha*(1-lambda)))*sig_eta*eta; -a2=(1+alpha*(1-lambda))/(lambda+alpha*(1-lambda))*sig_epsilon*epsilon-(1-lambda)/(lambda+alpha*(1-lambda))*sig_eta*eta; -end; - -steady; - -shocks; - -var eta; -stderr 1; -var epsilon; -stderr 1; -end; - - - -estimated_params; -// Bayesian setup -lambda, uniform_pdf, 0.68, .5; -alpha, uniform_pdf, -5, 2; -sig_eta, uniform_pdf, .5, 0.25; -sig_epsilon, uniform_pdf, .5, 0.25; -end; - - -varobs mu x; -unit_root_vars x; -estimation(datafile=cagan_data,first_obs=1,nobs=34,mh_replic=25000,mh_nblocks=1,mh_jscale=1,mode_compute=4); +// this program estimates the model in +// "The Demand for Money during Hyperinflations under Rational Expectations: I" by T. Sargent, IER 1977 using Bayesian techniques +// variables are defined as follows: +// x=p_t-p_{t-1}, p being the log of the price level +// mu=m_t-m_{t-1}, m being the log of money supply +// note that in contrast to the paper eta and epsilon have variance 1 (they are multiplied by the standard deviations) + + + +var x mu a1 a2; +varexo epsilon eta; +parameters alpha lambda sig_eta sig_epsilon; +lambda=.5921; +alpha=-2.344; +sig_eta=.001; +sig_epsilon=.001; + +model; +x=x(-1)-lambda*a1(-1)+(1/(lambda+alpha*(1-lambda)))*sig_epsilon*epsilon-(1/(lambda+alpha*(1-lambda)))*sig_eta*eta; +mu=(1-lambda)*x(-1)+lambda*mu(-1)-lambda*a2(-1)+(1+alpha*(1-lambda))/(lambda+alpha*(1-lambda))*sig_epsilon*epsilon-(1-lambda)/(lambda+alpha*(1-lambda))*sig_eta*eta; +a1=(1/(lambda+alpha*(1-lambda)))*sig_epsilon*epsilon-(1/(lambda+alpha*(1-lambda)))*sig_eta*eta; +a2=(1+alpha*(1-lambda))/(lambda+alpha*(1-lambda))*sig_epsilon*epsilon-(1-lambda)/(lambda+alpha*(1-lambda))*sig_eta*eta; +end; + +steady; + +shocks; + +var eta; +stderr 1; +var epsilon; +stderr 1; +end; + + + +estimated_params; +// Bayesian setup +lambda, uniform_pdf, 0.68, .5; +alpha, uniform_pdf, -5, 2; +sig_eta, uniform_pdf, .5, 0.25; +sig_epsilon, uniform_pdf, .5, 0.25; +end; + + +varobs mu x; +unit_root_vars x; +estimation(datafile=cagan_data,first_obs=1,nobs=34,mh_replic=25000,mh_nblocks=1,mh_jscale=1,mode_compute=4); diff --git a/tests/practicing/sargent77ML.mod b/tests/practicing/sargent77ML.mod index 2a5ad6d36..ced989947 100644 --- a/tests/practicing/sargent77ML.mod +++ b/tests/practicing/sargent77ML.mod @@ -1,52 +1,52 @@ -// this program estimates the model in -// "The Demand for Money during Hyperinflations under Rational Expectations: I" by T. Sargent, IER 1977 using maximum likelihood -// variables are defined as follows: -// x=p_t-p_{t-1}, p being the log of the price level -// mu=m_t-m_{t-1}, m being the log of money supply -// note that in contrast to the paper eta and epsilon have variance 1 (they are multiplied by the standard deviations) - - - -var x mu a1 a2; -varexo epsilon eta; -parameters alpha lambda sig_eta sig_epsilon; -lambda=.5921; -alpha=-2.344; -sig_eta=.001; -sig_epsilon=.001; - -model; -x=x(-1)-lambda*a1(-1)+(1/(lambda+alpha*(1-lambda)))*sig_epsilon*epsilon-(1/(lambda+alpha*(1-lambda)))*sig_eta*eta; -mu=(1-lambda)*x(-1)+lambda*mu(-1)-lambda*a2(-1)+(1+alpha*(1-lambda))/(lambda+alpha*(1-lambda))*sig_epsilon*epsilon-(1-lambda)/(lambda+alpha*(1-lambda))*sig_eta*eta; -a1=(1/(lambda+alpha*(1-lambda)))*sig_epsilon*epsilon-(1/(lambda+alpha*(1-lambda)))*sig_eta*eta; -a2=(1+alpha*(1-lambda))/(lambda+alpha*(1-lambda))*sig_epsilon*epsilon-(1-lambda)/(lambda+alpha*(1-lambda))*sig_eta*eta; -end; - -steady; - -shocks; - -var eta; -stderr 1; -var epsilon; -stderr 1; -end; - - - - - - - -estimated_params; -// ML estimation setup -// parameter name, initial value, boundaries_low, ..._up; -lambda, .5, 0.25, 0.75; -alpha, -2, -8, -0.1; -sig_eta, .0001, 0.0001, 0.3; -sig_epsilon, .0001, 0.0001, 0.3; -end; - -varobs mu x; -unit_root_vars x; +// this program estimates the model in +// "The Demand for Money during Hyperinflations under Rational Expectations: I" by T. Sargent, IER 1977 using maximum likelihood +// variables are defined as follows: +// x=p_t-p_{t-1}, p being the log of the price level +// mu=m_t-m_{t-1}, m being the log of money supply +// note that in contrast to the paper eta and epsilon have variance 1 (they are multiplied by the standard deviations) + + + +var x mu a1 a2; +varexo epsilon eta; +parameters alpha lambda sig_eta sig_epsilon; +lambda=.5921; +alpha=-2.344; +sig_eta=.001; +sig_epsilon=.001; + +model; +x=x(-1)-lambda*a1(-1)+(1/(lambda+alpha*(1-lambda)))*sig_epsilon*epsilon-(1/(lambda+alpha*(1-lambda)))*sig_eta*eta; +mu=(1-lambda)*x(-1)+lambda*mu(-1)-lambda*a2(-1)+(1+alpha*(1-lambda))/(lambda+alpha*(1-lambda))*sig_epsilon*epsilon-(1-lambda)/(lambda+alpha*(1-lambda))*sig_eta*eta; +a1=(1/(lambda+alpha*(1-lambda)))*sig_epsilon*epsilon-(1/(lambda+alpha*(1-lambda)))*sig_eta*eta; +a2=(1+alpha*(1-lambda))/(lambda+alpha*(1-lambda))*sig_epsilon*epsilon-(1-lambda)/(lambda+alpha*(1-lambda))*sig_eta*eta; +end; + +steady; + +shocks; + +var eta; +stderr 1; +var epsilon; +stderr 1; +end; + + + + + + + +estimated_params; +// ML estimation setup +// parameter name, initial value, boundaries_low, ..._up; +lambda, .5, 0.25, 0.75; +alpha, -2, -8, -0.1; +sig_eta, .0001, 0.0001, 0.3; +sig_epsilon, .0001, 0.0001, 0.3; +end; + +varobs mu x; +unit_root_vars x; estimation(datafile=cagan_data,first_obs=1,nobs=34,mh_replic=0,mode_compute=4,mode_check); \ No newline at end of file diff --git a/tests/ramst.mod b/tests/ramst.mod index 9fa14019d..f5637b3d2 100644 --- a/tests/ramst.mod +++ b/tests/ramst.mod @@ -1,36 +1,36 @@ -var c k; -varexo x; - -parameters alph gam delt bet aa; -alph=0.5; -gam=0.5; -delt=0.02; -bet=0.05; -aa=0.5; - - -model; -c + k - aa*x*k(-1)^alph - (1-delt)*k(-1); -c^(-gam) - (1+bet)^(-1)*(aa*alph*x(+1)*k^(alph-1) + 1 - delt)*c(+1)^(-gam); -end; - -initval; -x = 1; -k = ((delt+bet)/(1.0*aa*alph))^(1/(alph-1)); -c = aa*k^alph-delt*k; -end; - -steady; - -check; - -shocks; -var x; -periods 1; -values 1.2; -end; - -simul(periods=200); - -rplot c; -rplot k; +var c k; +varexo x; + +parameters alph gam delt bet aa; +alph=0.5; +gam=0.5; +delt=0.02; +bet=0.05; +aa=0.5; + + +model; +c + k - aa*x*k(-1)^alph - (1-delt)*k(-1); +c^(-gam) - (1+bet)^(-1)*(aa*alph*x(+1)*k^(alph-1) + 1 - delt)*c(+1)^(-gam); +end; + +initval; +x = 1; +k = ((delt+bet)/(1.0*aa*alph))^(1/(alph-1)); +c = aa*k^alph-delt*k; +end; + +steady; + +check; + +shocks; +var x; +periods 1; +values 1.2; +end; + +simul(periods=200); + +rplot c; +rplot k; diff --git a/tests/ramst_a.mod b/tests/ramst_a.mod index 4a81935c3..29a8cdf32 100644 --- a/tests/ramst_a.mod +++ b/tests/ramst_a.mod @@ -1,37 +1,37 @@ -// check shocks on several periods -var c k; -varexo x; - -parameters alph gam delt bet aa; -alph=0.5; -gam=0.5; -delt=0.02; -bet=0.05; -aa=0.5; - - -model; -c + k - aa*x*k(-1)^alph - (1-delt)*k(-1); -c^(-gam) - (1+bet)^(-1)*(aa*alph*x(+1)*k^(alph-1) + 1 - delt)*c(+1)^(-gam); -end; - -initval; -x = 1; -k = ((delt+bet)/(1.0*aa*alph))^(1/(alph-1)); -c = aa*k^alph-delt*k +1 ; -end; - -steady; - -check; - -shocks; -var x; -periods 1 2 3 4; -values 1.1 1.2 1.3 1.4; -end; - -simul(periods=200); - -rplot c; -rplot k; +// check shocks on several periods +var c k; +varexo x; + +parameters alph gam delt bet aa; +alph=0.5; +gam=0.5; +delt=0.02; +bet=0.05; +aa=0.5; + + +model; +c + k - aa*x*k(-1)^alph - (1-delt)*k(-1); +c^(-gam) - (1+bet)^(-1)*(aa*alph*x(+1)*k^(alph-1) + 1 - delt)*c(+1)^(-gam); +end; + +initval; +x = 1; +k = ((delt+bet)/(1.0*aa*alph))^(1/(alph-1)); +c = aa*k^alph-delt*k +1 ; +end; + +steady; + +check; + +shocks; +var x; +periods 1 2 3 4; +values 1.1 1.2 1.3 1.4; +end; + +simul(periods=200); + +rplot c; +rplot k; diff --git a/tests/ramst_initval_file.mod b/tests/ramst_initval_file.mod index 11c0891cf..192edc9ba 100644 --- a/tests/ramst_initval_file.mod +++ b/tests/ramst_initval_file.mod @@ -1,34 +1,34 @@ -/* Test for the initval_file() command. This file needs ramst_initval_file_data.m. It should give results similar to those of ramst.mod */ - -var c k; -varexo x; - -parameters alph gam delt bet aa; -alph=0.5; -gam=0.5; -delt=0.02; -bet=0.05; -aa=0.5; - - -model; -c + k - aa*x*k(-1)^alph - (1-delt)*k(-1); -c^(-gam) - (1+bet)^(-1)*(aa*alph*x(+1)*k^(alph-1) + 1 - delt)*c(+1)^(-gam); -end; - -initval; -x = 1; -k = ((delt+bet)/(1.0*aa*alph))^(1/(alph-1)); -c = aa*k^alph-delt*k; -end; - -initval_file(filename = ramst_initval_file_data); - -steady; - -check; - -simul(periods=200); - -rplot c; -rplot k; +/* Test for the initval_file() command. This file needs ramst_initval_file_data.m. It should give results similar to those of ramst.mod */ + +var c k; +varexo x; + +parameters alph gam delt bet aa; +alph=0.5; +gam=0.5; +delt=0.02; +bet=0.05; +aa=0.5; + + +model; +c + k - aa*x*k(-1)^alph - (1-delt)*k(-1); +c^(-gam) - (1+bet)^(-1)*(aa*alph*x(+1)*k^(alph-1) + 1 - delt)*c(+1)^(-gam); +end; + +initval; +x = 1; +k = ((delt+bet)/(1.0*aa*alph))^(1/(alph-1)); +c = aa*k^alph-delt*k; +end; + +initval_file(filename = ramst_initval_file_data); + +steady; + +check; + +simul(periods=200); + +rplot c; +rplot k; diff --git a/tests/recursive/ls2003.mod b/tests/recursive/ls2003.mod index d22e7f5e0..fa842b7f6 100644 --- a/tests/recursive/ls2003.mod +++ b/tests/recursive/ls2003.mod @@ -1,65 +1,65 @@ -var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; -varexo e_R e_q e_ys e_pies e_A; - -parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; - -psi1 = 1.54; -psi2 = 0.25; -psi3 = 0.25; -rho_R = 0.5; -alpha = 0.3; -rr = 2.51; -k = 0.5; -tau = 0.5; -rho_q = 0.4; -rho_A = 0.2; -rho_ys = 0.9; -rho_pies = 0.7; - - -model(linear); -y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); -pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; -pie = de+(1-alpha)*dq+pie_s; -R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; -dq = rho_q*dq(-1)+e_q; -y_s = rho_ys*y_s(-1)+e_ys; -pie_s = rho_pies*pie_s(-1)+e_pies; -A = rho_A*A(-1)+e_A; -y_obs = y-y(-1)+A; -pie_obs = 4*pie; -R_obs = 4*R; -end; - -shocks; -var e_R = 1.25^2; -var e_q = 2.5^2; -var e_A = 1.89; -var e_ys = 1.89; -var e_pies = 1.89; -end; - -varobs y_obs R_obs pie_obs dq de; - -estimated_params; -psi1 , gamma_pdf,1.5,0.5; -psi2 , gamma_pdf,0.25,0.125; -psi3 , gamma_pdf,0.25,0.125; -rho_R ,beta_pdf,0.5,0.2; -alpha ,beta_pdf,0.3,0.1; -rr ,gamma_pdf,2.5,1; -k , gamma_pdf,0.5,0.25; -tau ,gamma_pdf,0.5,0.2; -rho_q ,beta_pdf,0.4,0.2; -rho_A ,beta_pdf,0.5,0.2; -rho_ys ,beta_pdf,0.8,0.1; -rho_pies,beta_pdf,0.7,0.15; -stderr e_R,inv_gamma_pdf,1.2533,0.6551; -stderr e_q,inv_gamma_pdf,2.5066,1.3103; -stderr e_A,inv_gamma_pdf,1.2533,0.6551; -stderr e_ys,inv_gamma_pdf,1.2533,0.6551; -stderr e_pies,inv_gamma_pdf,1.88,0.9827; -end; - -estimation(datafile=data_ca1,first_obs=8,nobs=[76 79],mh_nblocks=10,prefilter=1,mh_jscale=0.5,mh_replic=0,forecast=8); - +var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; +varexo e_R e_q e_ys e_pies e_A; + +parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; + +psi1 = 1.54; +psi2 = 0.25; +psi3 = 0.25; +rho_R = 0.5; +alpha = 0.3; +rr = 2.51; +k = 0.5; +tau = 0.5; +rho_q = 0.4; +rho_A = 0.2; +rho_ys = 0.9; +rho_pies = 0.7; + + +model(linear); +y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); +pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; +pie = de+(1-alpha)*dq+pie_s; +R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; +dq = rho_q*dq(-1)+e_q; +y_s = rho_ys*y_s(-1)+e_ys; +pie_s = rho_pies*pie_s(-1)+e_pies; +A = rho_A*A(-1)+e_A; +y_obs = y-y(-1)+A; +pie_obs = 4*pie; +R_obs = 4*R; +end; + +shocks; +var e_R = 1.25^2; +var e_q = 2.5^2; +var e_A = 1.89; +var e_ys = 1.89; +var e_pies = 1.89; +end; + +varobs y_obs R_obs pie_obs dq de; + +estimated_params; +psi1 , gamma_pdf,1.5,0.5; +psi2 , gamma_pdf,0.25,0.125; +psi3 , gamma_pdf,0.25,0.125; +rho_R ,beta_pdf,0.5,0.2; +alpha ,beta_pdf,0.3,0.1; +rr ,gamma_pdf,2.5,1; +k , gamma_pdf,0.5,0.25; +tau ,gamma_pdf,0.5,0.2; +rho_q ,beta_pdf,0.4,0.2; +rho_A ,beta_pdf,0.5,0.2; +rho_ys ,beta_pdf,0.8,0.1; +rho_pies,beta_pdf,0.7,0.15; +stderr e_R,inv_gamma_pdf,1.2533,0.6551; +stderr e_q,inv_gamma_pdf,2.5066,1.3103; +stderr e_A,inv_gamma_pdf,1.2533,0.6551; +stderr e_ys,inv_gamma_pdf,1.2533,0.6551; +stderr e_pies,inv_gamma_pdf,1.88,0.9827; +end; + +estimation(datafile=data_ca1,first_obs=8,nobs=[76 79],mh_nblocks=10,prefilter=1,mh_jscale=0.5,mh_replic=0,forecast=8); + diff --git a/tests/recursive/ls2003_bayesian.mod b/tests/recursive/ls2003_bayesian.mod index 08c85a248..d7d552c77 100644 --- a/tests/recursive/ls2003_bayesian.mod +++ b/tests/recursive/ls2003_bayesian.mod @@ -1,65 +1,65 @@ -var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; -varexo e_R e_q e_ys e_pies e_A; - -parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; - -psi1 = 1.54; -psi2 = 0.25; -psi3 = 0.25; -rho_R = 0.5; -alpha = 0.3; -rr = 2.51; -k = 0.5; -tau = 0.5; -rho_q = 0.4; -rho_A = 0.2; -rho_ys = 0.9; -rho_pies = 0.7; - - -model(linear); -y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); -pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; -pie = de+(1-alpha)*dq+pie_s; -R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; -dq = rho_q*dq(-1)+e_q; -y_s = rho_ys*y_s(-1)+e_ys; -pie_s = rho_pies*pie_s(-1)+e_pies; -A = rho_A*A(-1)+e_A; -y_obs = y-y(-1)+A; -pie_obs = 4*pie; -R_obs = 4*R; -end; - -shocks; -var e_R = 1.25^2; -var e_q = 2.5^2; -var e_A = 1.89; -var e_ys = 1.89; -var e_pies = 1.89; -end; - -varobs y_obs R_obs pie_obs dq de; - -estimated_params; -psi1 , gamma_pdf,1.5,0.5; -psi2 , gamma_pdf,0.25,0.125; -psi3 , gamma_pdf,0.25,0.125; -rho_R ,beta_pdf,0.5,0.2; -alpha ,beta_pdf,0.3,0.1; -rr ,gamma_pdf,2.5,1; -k , gamma_pdf,0.5,0.25; -tau ,gamma_pdf,0.5,0.2; -rho_q ,beta_pdf,0.4,0.2; -rho_A ,beta_pdf,0.5,0.2; -rho_ys ,beta_pdf,0.8,0.1; -rho_pies,beta_pdf,0.7,0.15; -stderr e_R,inv_gamma_pdf,1.2533,0.6551; -stderr e_q,inv_gamma_pdf,2.5066,1.3103; -stderr e_A,inv_gamma_pdf,1.2533,0.6551; -stderr e_ys,inv_gamma_pdf,1.2533,0.6551; -stderr e_pies,inv_gamma_pdf,1.88,0.9827; -end; - -estimation(datafile=data_ca1,first_obs=8,nobs=[76 79],mh_nblocks=1,prefilter=1,mh_jscale=0.5,mh_replic=2000,forecast=8) y_obs R_obs pie_obs dq de;; - +var y y_s R pie dq pie_s de A y_obs pie_obs R_obs; +varexo e_R e_q e_ys e_pies e_A; + +parameters psi1 psi2 psi3 rho_R tau alpha rr k rho_q rho_A rho_ys rho_pies; + +psi1 = 1.54; +psi2 = 0.25; +psi3 = 0.25; +rho_R = 0.5; +alpha = 0.3; +rr = 2.51; +k = 0.5; +tau = 0.5; +rho_q = 0.4; +rho_A = 0.2; +rho_ys = 0.9; +rho_pies = 0.7; + + +model(linear); +y = y(+1) - (tau +alpha*(2-alpha)*(1-tau))*(R-pie(+1))-alpha*(tau +alpha*(2-alpha)*(1-tau))*dq(+1) + alpha*(2-alpha)*((1-tau)/tau)*(y_s-y_s(+1))-A(+1); +pie = exp(-rr/400)*pie(+1)+alpha*exp(-rr/400)*dq(+1)-alpha*dq+(k/(tau+alpha*(2-alpha)*(1-tau)))*y+alpha*(2-alpha)*(1-tau)/(tau*(tau+alpha*(2-alpha)*(1-tau)))*y_s; +pie = de+(1-alpha)*dq+pie_s; +R = rho_R*R(-1)+(1-rho_R)*(psi1*pie+psi2*(y+alpha*(2-alpha)*((1-tau)/tau)*y_s)+psi3*de)+e_R; +dq = rho_q*dq(-1)+e_q; +y_s = rho_ys*y_s(-1)+e_ys; +pie_s = rho_pies*pie_s(-1)+e_pies; +A = rho_A*A(-1)+e_A; +y_obs = y-y(-1)+A; +pie_obs = 4*pie; +R_obs = 4*R; +end; + +shocks; +var e_R = 1.25^2; +var e_q = 2.5^2; +var e_A = 1.89; +var e_ys = 1.89; +var e_pies = 1.89; +end; + +varobs y_obs R_obs pie_obs dq de; + +estimated_params; +psi1 , gamma_pdf,1.5,0.5; +psi2 , gamma_pdf,0.25,0.125; +psi3 , gamma_pdf,0.25,0.125; +rho_R ,beta_pdf,0.5,0.2; +alpha ,beta_pdf,0.3,0.1; +rr ,gamma_pdf,2.5,1; +k , gamma_pdf,0.5,0.25; +tau ,gamma_pdf,0.5,0.2; +rho_q ,beta_pdf,0.4,0.2; +rho_A ,beta_pdf,0.5,0.2; +rho_ys ,beta_pdf,0.8,0.1; +rho_pies,beta_pdf,0.7,0.15; +stderr e_R,inv_gamma_pdf,1.2533,0.6551; +stderr e_q,inv_gamma_pdf,2.5066,1.3103; +stderr e_A,inv_gamma_pdf,1.2533,0.6551; +stderr e_ys,inv_gamma_pdf,1.2533,0.6551; +stderr e_pies,inv_gamma_pdf,1.88,0.9827; +end; + +estimation(datafile=data_ca1,first_obs=8,nobs=[76 79],mh_nblocks=1,prefilter=1,mh_jscale=0.5,mh_replic=2000,forecast=8) y_obs R_obs pie_obs dq de;; + diff --git a/tests/t_periods_a.mod b/tests/t_periods_a.mod index f20cf09ca..1ab399c6b 100644 --- a/tests/t_periods_a.mod +++ b/tests/t_periods_a.mod @@ -1,36 +1,36 @@ -var c k; -varexo x; - -parameters alph gam delt bet aa; -alph=0.5; -gam=0.5; -delt=0.02; -bet=0.05; -aa=0.5; - - -model; -c + k - aa*x*k(-1)^alph - (1-delt)*k(-1); -c^(-gam) - (1+bet)^(-1)*(aa*alph*x(+1)*k^(alph-1) + 1 - delt)*c(+1)^(-gam); -end; - -initval; -x = 1; -k = ((delt+bet)/(1.0*aa*alph))^(1/(alph-1)); -c = aa*k^alph-delt*k +1 ; -end; - -steady; - -check; - -shocks; -var x; -periods 1; -values 1.2; -end; - -simul(periods=200); - -rplot c; -rplot k; +var c k; +varexo x; + +parameters alph gam delt bet aa; +alph=0.5; +gam=0.5; +delt=0.02; +bet=0.05; +aa=0.5; + + +model; +c + k - aa*x*k(-1)^alph - (1-delt)*k(-1); +c^(-gam) - (1+bet)^(-1)*(aa*alph*x(+1)*k^(alph-1) + 1 - delt)*c(+1)^(-gam); +end; + +initval; +x = 1; +k = ((delt+bet)/(1.0*aa*alph))^(1/(alph-1)); +c = aa*k^alph-delt*k +1 ; +end; + +steady; + +check; + +shocks; +var x; +periods 1; +values 1.2; +end; + +simul(periods=200); + +rplot c; +rplot k; diff --git a/tests/t_sgu_ex1.mod b/tests/t_sgu_ex1.mod index e542de1ed..9ac2e6fd9 100644 --- a/tests/t_sgu_ex1.mod +++ b/tests/t_sgu_ex1.mod @@ -1,37 +1,37 @@ -var c k a; -varexo e; -parameters alpha beta delta gamma rho; - -beta = 0.95; -delta = 1; -alpha = 0.3; -rho = 0; -gamma = 2; - -model; -exp(c) + exp(k) = (1-delta) * exp(k(-1)) + exp(a) * exp(k(-1))^alpha; -exp(c)^(-gamma) = beta * exp(c(+1))^(-gamma) * (exp(a(+1)) * alpha * exp(k)^(alpha-1) + 1 - delta); -a = rho * a(-1) + e; -end; - -initval; -k=0; -c=0; -a=0; -e=0; -end; - -Sigma_e_ = 1; - -stoch_simul(nomoments,nocorr,ar=0,irf=0); - -global dr_ -load objectives/sgu_ex1; - -test(oo_.dr.ghx,dr_obj_.ghx,1); -test(oo_.dr.ghu,dr_obj_.ghu,2); -test(oo_.dr.ghxx,dr_obj_.ghxx,3); -test(oo_.dr.ghxu,dr_obj_.ghxu,4); -test(oo_.dr.ghuu,dr_obj_.ghuu,5); - +var c k a; +varexo e; +parameters alpha beta delta gamma rho; + +beta = 0.95; +delta = 1; +alpha = 0.3; +rho = 0; +gamma = 2; + +model; +exp(c) + exp(k) = (1-delta) * exp(k(-1)) + exp(a) * exp(k(-1))^alpha; +exp(c)^(-gamma) = beta * exp(c(+1))^(-gamma) * (exp(a(+1)) * alpha * exp(k)^(alpha-1) + 1 - delta); +a = rho * a(-1) + e; +end; + +initval; +k=0; +c=0; +a=0; +e=0; +end; + +Sigma_e_ = 1; + +stoch_simul(nomoments,nocorr,ar=0,irf=0); + +global dr_ +load objectives/sgu_ex1; + +test(oo_.dr.ghx,dr_obj_.ghx,1); +test(oo_.dr.ghu,dr_obj_.ghu,2); +test(oo_.dr.ghxx,dr_obj_.ghxx,3); +test(oo_.dr.ghxu,dr_obj_.ghxu,4); +test(oo_.dr.ghuu,dr_obj_.ghuu,5); + disp('TESTS OK'); \ No newline at end of file