Anonymous
×
Create a new article
Write your page title here:
We currently have 106 articles on MOR Wiki. Type your article name above or click on one of the titles below and start writing!



Inverse Lyapunov Procedure: Difference between revisions

m Usage: Code Update
Usage: updated Matlab code
Line 26: Line 26:
function [A B C] = ilp(J,N,O,s,r)
function [A B C] = ilp(J,N,O,s,r)
% ilp (inverse lyapunov procedure)
% ilp (inverse lyapunov procedure)
% by Christian Himpe, 2013-2014 ( http://gramian.de )
% by Christian Himpe, 2013--2018
% released under BSD 2-Clause License ( http://gramian.de/#license )
% released under BSD 2-Clause License
%*
%*
 
  if(nargin==5)
if(exist('emgr')~=2) disp('emgr framework is required. Download at http://gramian.de/emgr.m'); return; end
    rand('seed',r);
 
    randn('seed',r);
if(nargin==5) rand('seed',r); randn('seed',r); end;
  end;


% Gramian Eigenvalues
% Gramian Eigenvalues
WC = exp( rand(N,1) );
  WC = exp(rand(N,1));
WO = exp( rand(N,1) );
  WO = exp(rand(N,1));


% Gramian Eigenvectors
% Gramian Eigenvectors
[P S Q] = svd(randn(N));
  [P,S,Q] = svd(randn(N));


% Balancing Transformation
% Balancing Transformation
WC = P*diag(WC)*P';
  WC = P*diag(WC)*P';
WO = Q*diag(WO)*Q';
  WO = Q*diag(WO)*Q';
[U D V] = svd(WC*WO);
  [U,D,V] = svd(WC*WO);


% Input and Output
% Input and Output
B = randn(N,J);
  B = randn(N,J);


if(nargin>=4 && s~=0),
  if(nargin>=4 && s~=0)
        C = B';
    C = B';
else,
  else
        C = randn(O,N);
    C = randn(O,N);
end
  end


% Scale Output Matrix
% Scale Output Matrix
BB = sum(B.*B,2);  % = diag(B*B')
  BB = sum(B.*B,2);  % = diag(B*B')
CC = sum(C.*C,1)'; % = diag(C'*C)
  CC = sum(C.*C,1)'; % = diag(C'*C)
SC = sqrt(BB./CC)';
  C = bsxfun(@times,C,sqrt(BB./CC)');
C = bsxfun(@times,C,SC);


% Solve System Matrix
% Solve System Matrix
f = @(x,u,p) -D*x+B*u;
  A = -sylvester(D,D,B*B');
g = @(x,u,p) C*x;
A = -emgr(f,g,[J N O],[0 0.01 1],'c') - (1e-13)*eye(N);


% Unbalance System
% Unbalance System
A = V*A*U';
  A = V*A*U';
B = V*B;
  B = V*B;
C = C*U';
  C = C*U';
 


end
</source>
</source>
<!--]]--></div>
<!--]]--></div>

Revision as of 11:29, 10 January 2018


Description

The Inverse Lyapunov Procedure (ilp) is a synthetic random linear system generator. It is based on reversing the Balanced Truncation procedure and was developed in [1], where a description of the algorithm is given. In aggregate form, for randomly generated controllability and observability gramians, a balancing transformation is computed. The balanced gramian is the basis for an associated state-space system, which is determined by solving a Lyapunov equation and then unbalanced. A central point is the solution of the Lyapunov equations for the system matrix instead of the gramian matrix. This is feasable due to the symmetric (semi-)positive definiteness of the gramians and the requirement for a stable system, yet with a non-unique solution.

Implementation

An efficient approach to solving the Lyapunov equation is provided by empirical gramians.

Usage

Use the following matlab code to generate a random system as described above:

function [A B C] = ilp(J,N,O,s,r)
% ilp (inverse lyapunov procedure)
% by Christian Himpe, 2013--2018
% released under BSD 2-Clause License
%*
  if(nargin==5)
    rand('seed',r);
    randn('seed',r);
  end;

% Gramian Eigenvalues
  WC = exp(rand(N,1));
  WO = exp(rand(N,1));

% Gramian Eigenvectors
  [P,S,Q] = svd(randn(N));

% Balancing Transformation
  WC = P*diag(WC)*P';
  WO = Q*diag(WO)*Q';
  [U,D,V] = svd(WC*WO);

% Input and Output
  B = randn(N,J);

  if(nargin>=4 && s~=0)
    C = B';
  else
    C = randn(O,N);
  end

% Scale Output Matrix
  BB = sum(B.*B,2);  % = diag(B*B')
  CC = sum(C.*C,1)'; % = diag(C'*C)
  C = bsxfun(@times,C,sqrt(BB./CC)');

% Solve System Matrix
  A = -sylvester(D,D,B*B');

% Unbalance System
  A = V*A*U';
  B = V*B;
  C = C*U';

end

The function call requires three parameters; the number of inputs J, of states N and outputs O. Optionally, a symmetric system can be enforced with the parameter s0. For reproducibility, the random number generator seed can be controlled by the parameter r. The return value consists of three matrices; the system matrix A, the input matrix B and the output matrix C.

[A,B,C] = ilp(J,N,O,s,r);

ilp is compatible with MATLAB and OCTAVE and the matlab code can be downloaded from: ilp.m. The Empirical Gramian Framework can be obtained at http://gramian.de.

References

  1. S.C. Smith, J. Fisher, "On generating random systems: a gramian approach", Proceedings of the American Control Conference, 2003.


Contact

Christian Himpe