dynare/tests/kalman_steady_state/test1.m

39 lines
862 B
Matlab

n = 10;
p = 3;
q = 4;
% With measurment errors.
for i=1:100
tmp = randn(q,q+100);
Q = tmp*transpose(tmp)/1000;
R = randn(n,q);
QQ = R*Q*transpose(R);
tmp = randn(p,p+100);
H = tmp*transpose(tmp)/2000;
eig_val_T = rand(n)*2-1;
eig_vec_T = randn(n,n);
T = eig_vec_T*eig_val_T*inv(eig_vec_T);
Z = zeros(p,n);
Z(1,1) = 1;
Z(2,3) = 1;
Z(3,6) = 1;
P = kalman_steady_state(transpose(T),QQ,transpose(Z),H);
end
% Without measurment errors.
for i=1:100
tmp = randn(q,q+100);
Q = tmp*transpose(tmp)/1000;
R = randn(n,q);
QQ = R*Q*transpose(R);
H = zeros(p,p);
eig_val_T = rand(n)*2-1;
eig_vec_T = randn(n,n);
T = eig_vec_T*eig_val_T*inv(eig_vec_T);
Z = zeros(p,n);
Z(1,1) = 1;
Z(2,3) = 1;
Z(3,6) = 1;
P = kalman_steady_state(transpose(T),QQ,transpose(Z),H);
end