var r,c,ch,cf,p,ph,pf,m,n,k,y,x,l,psi,pi,rx,rn,rnxS,sS,gS,fS,aS;
varexo e_rn,e_rnx,e_s,e_g,e_f,e_psi,e_a;
parameters
chc,cfc,gamma,rho,php,pfp,fai,etal,alpha,kappa,beta,phi,lambda,eta,pcphy,pkphy,pgphy,sfphy,
rho_pi,rho_y,rho_s,fai_nx,fai_a,fai_f,fai_g,fai_s;
chc=0.7894;// CH/C
cfc=0.2106;// CF/C
gamma=0.7893;
rho=2.5;//1;
php=0.895;// PH/P
pfp=1.263;// pF/P
fai=0.05;//0
etal=0.153;//(etaL/1+etaL)
alpha=0.651;
kappa=0.093;
beta=0.96;
phi=0.895
lambda=2.08;//K/N
eta=0.7502;
pcphy=0.4238;//PC/PHY
pkphy=0.3911;//PK/PHY
pgphy=0.1459;//PG/PHY
sfphy=0.2434;//SF/PHY
rho_pi=2.238;
rho_y=0.018;
rho_r=0.668;
rho_s=0.054;
fai_nx=0.99:
fai_a=0.6596;
fai_f=0.97;
fai_g=0.98;
fai_s=0.989;
model;
r(+1)-c(+1)=-c
c=gamma^(1/rho)chc^((rho-1)/rho)ch+(1-gamma)^(1/rho)cfc^((rho-1)/rho)cfp=gammaphp^(1-rho)ph+(1-gamma)pfp^(1-rho)pf
ch-cf=rhopf-rhoph
m(+1)-p=rnxS+s(+1)-s-fai(ph+n-p-k)
m=y-x-k
etaly-x-c=l
y=a+alphak+(1-alpha)l
pi=-kappax+betapi(+1)
ph+n=phiM(lambdam+(lambda-1)rnxS+fai(lambda-1)(p+k(-1))+(1-fai*(lambda-1))(ph+n(-1)))
ph+y=eta(pcphy*(p+c)+pkphy*(p+k(+1))+pgphy*(p+g)+sfphy*(s+f))
r(+1)-c(+1)=rx+psi+s(+1)-s
pf=s
pi=p-p(-1)
0=rn(+1)-pi(+1)-r(+1)
0=rnxS(+1)-pi(+1)-rx(+1)
rn=rho_pipi+rho_rrn(-1)+rho_s*(s-s(-1))+rho_yy+e_rn
rnxS=fai_nxrnxS(-1)+e_rnx
aS=fai_aaS(-1)+e_a
fS=fai_ffS(-1)+e_f
gS=fai_ggS(-1)+e_g
sS=fai_ssS(-1)+e_s
end;
//initval;
//end;
shocks;
var e_rn; stderr 0.513;
var e_rnx; stderr 0.138;
var e_a; stderr 0.363;
var e_f; stderr 0.205;
var e_g; stderr 0.316;
var e_s; stderr 0.17;
end;
check;
steady(solve_algo=2);
stoch_simul(hp_filter=1600,order=1 ,nocorr ,irf=40,periods=2000) y k c ;
above my program but when run the program it appear
??? Error using ==> dynare
syntax error at line 40
so anybody can tell me what’s wrong with my program
thank for any proposal