stepan
/
quest-iii-estimation
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove useless calls to assignin.

master
Stéphane Adjemian (Argos) 2023-10-12 17:51:31 +02:00
parent c4161c4605
commit 4ce042978c
Signed by: stepan
GPG Key ID: A6D44CB9C64CE77B
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Q3_steadystate.m
View File

@ -1,10 +1,8 @@
function [ys,params,check1] = Q3_steadystate(junk, exs, M_, options_)
for j=1:size(M_.param_names,1)
eval([M_.param_names{j},' = M_.params(j);'])
assignin('base',M_.param_names{j},M_.params(j));
eval([M_.param_names{j},' = M_.params(j);'])
end
check1=0;
@ -15,8 +13,8 @@ if isempty(DDYN), DDYN=1; end
E_EX_RW = E_EX_INOMW - GPW0;
E_EX_R = 1/BETAE-1;
% if SIMFLAG==0,
E_EX_RW = E_EX_R;
E_EX_INOMW = E_EX_RW + GPW0;
E_EX_RW = E_EX_R;
E_EX_INOMW = E_EX_RW + GPW0;
% end
GTFP0 = (ALPHAE+ALPHAGE-1)/ALPHAE*GY0-(2-ALPHAE-ALPHAGE)/ALPHAE*GPCPI0;
@ -90,7 +88,6 @@ else
E_LYKPPI=log(YKN);
ISN=IK/YKN;
M_.params(strcmp('ISN', M_.param_names)) = ISN;
assignin('base','ISN',ISN);
end
% if SIMFLAG == 1,
@ -271,15 +268,12 @@ for k=1:M_.orig_endo_nbr
end
A1E = (1-TAUE)*(1-ALPHAE)*exp(E_LYKPPI)/UCAP0;
assignin('base','A1E',A1E);
M_.params(strcmp('A1E', M_.param_names)) = A1E;
M_.params(strcmp('OMEGE', M_.param_names)) = OMEGE;
assignin('base','OMEGE',OMEGE);
if DDYN==0
RPREMK = (1-TAUE)*(1-ALPHAE)*(1-TP)*exp(E_LYKPPI) - DELTAE-E_EX_R;
M_.params(strcmp('RPREMK', M_.param_names)) = RPREMK;
assignin('base','RPREMK',RPREMK);
end
params = M_.params;