Add missing files for Ramsey unit test with steady state.

time-shift
Johannes Pfeifer 2014-09-07 21:15:56 +02:00
parent 59da9953bb
commit 4b49abd724
2 changed files with 8 additions and 0 deletions

View File

@ -0,0 +1,8 @@
function c = find_c(c0,pai,beta,epsilon,phi,gamma,omega)
c = csolve(@nk_ss,c0,[],1e-8,100,pai,beta,epsilon,phi,gamma,omega);
end
function r = nk_ss(c,pai,beta,epsilon,phi,gamma,omega)
r = pai*(pai-1)/c - beta*pai*(pai-1)/c-epsilon*phi*(c+(omega/2)*(pai-1)^2)^(gamma+1)/omega +(c+(omega/2)*(pai-1)^2)*(epsilon-1)/(omega*c);
end