stepan
/
dynare
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added unitary test. 

Comparison of the solutions returned by the cyclic reduction and logarithmic reduction algorithm. Note
that in the case considered here the logarithmic reduction algorithm is faster.
time-shift
Stéphane Adjemian (Charybdis) 2012-07-11 17:00:38 +02:00
parent 56339bb3cf
commit b02c83a926
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
matlab/cycle_reduction.m
View File

@ -98,4 +98,26 @@ if (nargin == 5 && ~isempty(ch) )
if (sum(sum(abs(res))) > cvg_tol)
disp(['the norm residual of the residu ' num2str(res) ' compare to the tolerance criterion ' num2str(cvg_tol)]);
end
end
end
%@test:1
%$ addpath ../matlab
%$
%$ % Set the dimension of the problem to be solved
%$ n = 2000;
%$ % Set the equation to be solved
%$ A = eye(n);
%$ B = diag(30*ones(n,1)); B(1,1) = 20; B(end,end) = 20; B = B - diag(10*ones(n-1,1),-1); B = B - diag(10*ones(n-1,1),1);
%$ C = diag(15*ones(n,1)); C = C - diag(5*ones(n-1,1),-1); C = C - diag(5*ones(n-1,1),1);
%$
%$ % Solve the equation with the cycle reduction algorithm
%$ tic, X1 = cycle_reduction(C,B,A,1e-7); toc
%$
%$ % Solve the equation with the logarithmic reduction algorithm
%$ tic, X2 = logarithmic_reduction(A,B,C,1e-16,100); toc
%$
%$ % Check the results.
%$ t(1) = dyn_assert(X1,X2,1e-12);
%$
%$ T = all(t);
%@eof:1