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 if isrename
[variable_has_to_be_renamed, id] = ismember(eqnum, [rename{:,1}]); [variable_has_to_be_renamed, id] = ismember(eqnum, [rename{:,1}]);
if variable_has_to_be_renamed if variable_has_to_be_renamed
tmp = strsplit(rename{id,2}, '->'); TMP = strsplit(rename{id,2}, ',');
lhs_expression = exactstrrep(lhs_expression, tmp{1}, tmp{2}); for j=1:length(TMP)
RHS = exactstrrep(RHS, tmp{1}, tmp{2}); tmp = strsplit(TMP{j}, '->');
rep = strcmp(tmp{1}, enames); lhs_expression = exactstrrep(lhs_expression, tmp{1}, tmp{2});
if any(rep) RHS = exactstrrep(RHS, tmp{1}, tmp{2});
enames(rep) = tmp(2); rep = strcmp(tmp{1}, enames);
end if any(rep)
rep = strcmp(tmp{1}, xnames); enames(rep) = tmp(2);
if any(rep) end
xnames(rep) = tmp(2); rep = strcmp(tmp{1}, xnames);
if any(rep)
xnames(rep) = tmp(2);
end
end end
end end
end end