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

Test if control toolbox is present if lyapunov=square_root_solver

time-shift
Sébastien Villemot 2012-04-20 21:37:29 +02:00
parent 4e537fcdcc
commit abc60b6037
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
matlab/lyapunov_symm.m
View File

@ -85,7 +85,15 @@ if method == 3
end;
elseif method == 4
% works only with Matlab System Control toolbox or octave the control package,
% the presence of the toolbox or package has to be tested
if exist('OCTAVE_VERSION')
if ~user_has_octave_forge_package('control')
error('lyapunov=square_root_solver not available; you must install the control package from Octave Forge')
end
else
if ~user_has_matlab_license('control_toolbox')
error('lyapunov=square_root_solver not available; you must install the control system toolbox')
end
end
chol_b = R*chol(b,'lower');
Rx = dlyapchol(a,chol_b);
x = Rx' * Rx;