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

Added the possibility to change more than one variable name in an equation.

time-shift
Stéphane Adjemian (Charybdis) 2020-01-31 18:46:27 +01:00
parent d136be8a84
commit 0aa78c6914
Signed by: stepan
GPG Key ID: 295C1FE89E17EB3C
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
matlab/cherrypick.m
View File

@ -89,16 +89,19 @@ for i=1:length(eqtags)
if isrename
[variable_has_to_be_renamed, id] = ismember(eqnum, [rename{:,1}]);
if variable_has_to_be_renamed
tmp = strsplit(rename{id,2}, '->');
lhs_expression = exactstrrep(lhs_expression, tmp{1}, tmp{2});
RHS = exactstrrep(RHS, tmp{1}, tmp{2});
rep = strcmp(tmp{1}, enames);
if any(rep)
enames(rep) = tmp(2);
end
rep = strcmp(tmp{1}, xnames);
if any(rep)
xnames(rep) = tmp(2);
TMP = strsplit(rename{id,2}, ',');
for j=1:length(TMP)
tmp = strsplit(TMP{j}, '->');
lhs_expression = exactstrrep(lhs_expression, tmp{1}, tmp{2});
RHS = exactstrrep(RHS, tmp{1}, tmp{2});
rep = strcmp(tmp{1}, enames);
if any(rep)
enames(rep) = tmp(2);
end
rep = strcmp(tmp{1}, xnames);
if any(rep)
xnames(rep) = tmp(2);
end
end
end
end