header updated

git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1654 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
assia 2008-01-28 14:50:59 +00:00
parent b0760493ae
commit b2beb89b36
1 changed files with 16 additions and 1 deletions

View File

@ -1,5 +1,20 @@
function eval = my_ordeig(t)
% function eval = my_ordeig(t)
% Computes the eigenvalues of a quasi-triangular matrix
%
% INPUTS
% t: quasi-triangular matrix
%
% OUTPUTS
% eval: eigenvalues
%
% SPECIAL REQUIREMENTS
% none
%
% part of DYNARE, copyright Dynare Team (2003-2008)
% Gnu Public License.
n = size(t,2);
eval = zeros(n,1);
for i=1:n-1