From 58352429828e6da15e991725c9aa885eec1a45f8 Mon Sep 17 00:00:00 2001
From: Johannes Pfeifer <jpfeifer@gmx,de>
Date: Mon, 10 Feb 2014 18:21:20 +0100
Subject: [PATCH] Add message if model_diagnostics found no problems
---
matlab/model_diagnostics.m | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/matlab/model_diagnostics.m b/matlab/model_diagnostics.m
index ad1fd0dd06..e49eb29ab9 100644
--- a/matlab/model_diagnostics.m
+++ b/matlab/model_diagnostics.m
@@ -40,11 +40,13 @@ endo_names = M.endo_names;
lead_lag_incidence = M.lead_lag_incidence;
maximum_endo_lag = M.maximum_endo_lag;
+problem_dummy=0;
%
% missing variables at the current period
%
k = find(lead_lag_incidence(maximum_endo_lag+1,:)==0);
if ~isempty(k)
+ problem_dummy=1;
disp(['The following endogenous variables aren''t present at ' ...
'the current period in the model:'])
for i=1:length(k)
@@ -66,6 +68,7 @@ end
% testing for problem
if check1(1)
+ problem_dummy=1;
disp('model diagnostic can''t obtain the steady state')
if any(isnan(dr.ys))
disp(['model diagnostic obtains a steady state with NaNs'])
@@ -77,6 +80,7 @@ if check1(1)
end
if ~isreal(dr.ys)
+ problem_dummy=1;
disp(['model diagnostic obtains a steady state with complex ' ...
'numbers'])
return
@@ -108,6 +112,7 @@ for b=1:nb
end
rank_jacob = rank(jacob);
if rank_jacob < size(jacob,1)
+ problem_dummy=1;
singularity_problem = 1;
disp(['model_diagnostic: the Jacobian of the static model is ' ...
'singular'])
@@ -151,3 +156,7 @@ if singularity_problem
fprintf('is missing. The problem often derives from Walras Law.\n')
end
+if problem_dummy==0
+ fprintf('model_diagnostics was not able to detect any obvious problems with this mod-file.\n')
+end
+
--
GitLab