Octave 7 now has ordqz (and ordeig was implemented in Octave 5)
parent
b7c74f8e9a
commit
971a89fb73
|
@ -18,7 +18,7 @@ function [ss, tt, zz, sdim, eigval, info] = mjdgges(e, d, qz_criterium, zhreshol
|
||||||
% SPECIAL REQUIREMENTS
|
% SPECIAL REQUIREMENTS
|
||||||
% none.
|
% none.
|
||||||
|
|
||||||
% Copyright © 1996-2020 Dynare Team
|
% Copyright © 1996-2022 Dynare Team
|
||||||
%
|
%
|
||||||
% This file is part of Dynare.
|
% This file is part of Dynare.
|
||||||
%
|
%
|
||||||
|
@ -40,7 +40,7 @@ if nargin > 5 || nargin < 2 || nargout > 7 || nargout == 0
|
||||||
end
|
end
|
||||||
|
|
||||||
if isoctave
|
if isoctave
|
||||||
error('Octave unsupported, since it does not have real qz, ordqz and ordeig')
|
error('Octave unsupported, since it does not have real qz')
|
||||||
end
|
end
|
||||||
|
|
||||||
[me, ne] = size(e);
|
[me, ne] = size(e);
|
||||||
|
@ -80,4 +80,4 @@ end
|
||||||
%$ t(1) = 0;
|
%$ t(1) = 0;
|
||||||
%$ end
|
%$ end
|
||||||
%$ T = all(t);
|
%$ T = all(t);
|
||||||
%@eof:1
|
%@eof:1
|
||||||
|
|
Loading…
Reference in New Issue