v4 t_normcdf.mod: add test for x3(+1)
git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1466 ac1d8469-bf42-47a9-8791-bf33cf982152time-shift
parent
522e27e636
commit
fc55bcc5df
|
@ -6,7 +6,7 @@ x2 = 1;
|
||||||
x3 = 0.5;
|
x3 = 0.5;
|
||||||
y1 = normcdf(x1(-1),0,1);
|
y1 = normcdf(x1(-1),0,1);
|
||||||
y2 = normcdf(-x1,-x2,1);
|
y2 = normcdf(-x1,-x2,1);
|
||||||
y3 = normcdf(x1/2,0,x3);
|
y3 = normcdf(x1/2,0,x3(+1));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
initval;
|
initval;
|
||||||
|
@ -30,7 +30,7 @@ if abs(oo_.steady_state(3) - pnorm(1.96/2,0,1/2)) > 1e-12;
|
||||||
error('Error 3 in t_normcdf')
|
error('Error 3 in t_normcdf')
|
||||||
end;
|
end;
|
||||||
|
|
||||||
z = [oo_.steady_state(4); oo_.steady_state];
|
z = [oo_.steady_state(4); oo_.steady_state; oo_.steady_state(6)];
|
||||||
[junk,JJ] = t_normcdf_dynamic(z,[]);
|
[junk,JJ] = t_normcdf_dynamic(z,[]);
|
||||||
|
|
||||||
if abs(JJ(4,1) + dnorm(1.96,0,1)) > 1e-12;
|
if abs(JJ(4,1) + dnorm(1.96,0,1)) > 1e-12;
|
||||||
|
@ -45,7 +45,7 @@ end;
|
||||||
if abs(JJ(6,5) + dnorm(1.96/2,0,1/2)/2) > 1e-12;
|
if abs(JJ(6,5) + dnorm(1.96/2,0,1/2)/2) > 1e-12;
|
||||||
error('Error 7 in t_normcdf')
|
error('Error 7 in t_normcdf')
|
||||||
end;
|
end;
|
||||||
if abs(JJ(6,7) - (1/2)*((1.96/2)/(1/2)^2)*dnorm(1.96/2,0,1/2)) > 1e-12;
|
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')
|
error('Error 8 in t_normcdf')
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue