From c5e86fcb59768786ff9a31982eef93c77c1b26d0 Mon Sep 17 00:00:00 2001
From: Marco Ratto <marco.ratto@ec.europa.eu>
Date: Tue, 17 Dec 2019 17:42:25 +0100
Subject: [PATCH] Moved get_param_by_name --> get.param_by_name set_param_value
--> set.param_value plus the additional set utility: set.shock_stderr_value \
---
.../param_by_name.m} | 0
.../{set_param_value.m => +set/param_value.m} | 0
matlab/+set/shock_stderr_value.m | 28 +++++++++++++++++++
3 files changed, 28 insertions(+)
rename matlab/{get_param_by_name.m => +get/param_by_name.m} (100%)
rename matlab/{set_param_value.m => +set/param_value.m} (100%)
create mode 100644 matlab/+set/shock_stderr_value.m
diff --git a/matlab/get_param_by_name.m b/matlab/+get/param_by_name.m
similarity index 100%
rename from matlab/get_param_by_name.m
rename to matlab/+get/param_by_name.m
diff --git a/matlab/set_param_value.m b/matlab/+set/param_value.m
similarity index 100%
rename from matlab/set_param_value.m
rename to matlab/+set/param_value.m
diff --git a/matlab/+set/shock_stderr_value.m b/matlab/+set/shock_stderr_value.m
new file mode 100644
index 0000000000..f66e784ee5
--- /dev/null
+++ b/matlab/+set/shock_stderr_value.m
@@ -0,0 +1,28 @@
+function set_shock_stderr_value(exoname,value)
+
+% Copyright (C) 2019 Dynare Team
+%
+% This file is part of Dynare.
+%
+% Dynare is free software: you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation, either version 3 of the License, or
+% (at your option) any later version.
+%
+% Dynare is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with Dynare. If not, see <http://www.gnu.org/licenses/>.
+
+global M_
+
+i = strmatch(exoname,M_.exo_names,'exact');
+
+if isempty(i)
+ error(['Shock name ' exoname ' doesn''t exist'])
+end
+
+M_.Sigma_e(i,i) = value^2;
--
GitLab