Fixed aggregate if the equation tag name is not available...

... Or has special characters. In this cases we use the LHS variable
as a name for the equation.
time-shift
Stéphane Adjemian (Odysseus) 2020-01-29 11:38:20 +01:00
parent bb302279ea
commit e39c3bad5b
1 changed files with 7 additions and 3 deletions

View File

@ -79,8 +79,12 @@ for i=1:length(varargin)
[lhs, ~] = getequation(model{j+1});
endovar = getendovar(lhs);
eqtagname_ = strcat('name=''', endovar{1}, '''');
if ~isequal(eqtagname{1}, eqtagname_)
model{j} = strrep(model{j}, eqtagname{1}, eqtagname_);
if ~isempty(eqtagname)
if ~isequal(eqtagname{1}, eqtagname_)
model{j} = strrep(model{j}, eqtagname{1}, eqtagname_);
end
else
model{j} = eqtagname_;
end
eqlist{tagnum,4} = model{j};
eqtag = true;
@ -99,7 +103,7 @@ end
eqlist = eqlist(1:eqnum,:);
[~, idx] = unique(eqlist(:,1), 'stable');
eqlist = eqlist(idx, :);
eqlist
% Get endogenous variables.
elist = cell(MAX_NUMBER_OF_ELEMENTS, 2);
enum = 0;