cgi_alloc
PURPOSE 
CGI_ALLOC - Control allocation based on cascading generalized inverses.
SYNOPSIS 
function [u,iter] = cgi_alloc(B,v,umin,umax,Wv,Wu,ud,imax)
DESCRIPTION 
CROSS-REFERENCE INFORMATION 
This function calls:
- pinv_sol PINV_SOL - Compute pseudoinverse solution.
This function is called by:
- alloc_sim ALLOC_SIM - Control allocation simulation.
- qp_ca_sl Wrapper used in the QP control allocation Simulink block.
SOURCE CODE 
0001 function [u,iter] = cgi_alloc(B,v,umin,umax,Wv,Wu,ud,imax)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033
0034
0035
0036 if nargin < 8
0037 imax = 100;
0038 [k,m] = size(B);
0039 if nargin < 7, ud = zeros(m,1); end
0040 if nargin < 6, Wu = eye(m); end
0041 if nargin < 5, Wv = eye(k); end
0042 end
0043
0044 iter = 1;
0045
0046
0047 A = Wv*B/Wu;
0048 b = Wv*(v-B*ud);
0049 u = ud + Wu\pinv_sol(A,b);
0050
0051
0052 i_min = u < umin;
0053 i_max = u > umax;
0054
0055 u(i_min) = umin(i_min);
0056 u(i_max) = umax(i_max);
0057
0058 i_free = ~(i_min | i_max);
0059
0060
0061
0062
0063 while any([i_min ; i_max]) & any(i_free) & (iter<imax);
0064 iter = iter + 1;
0065
0066
0067 Wu1 = Wu(i_free,:);
0068 Wu11 = Wu1(:,i_free);
0069 B1 = B(:,i_free);
0070
0071 A = Wv*B1/Wu11;
0072 b = Wv*(v-B*u-B1*(Wu11\(Wu1*(ud-u))));
0073
0074 p1 = Wu11\(pinv_sol(A,b)+Wu1*(ud-u));
0075
0076 u(i_free) = u(i_free) + p1;
0077
0078
0079 i_min = u < umin;
0080 i_max = u > umax;
0081
0082 u(i_min) = umin(i_min);
0083 u(i_max) = umax(i_max);
0084
0085 i_free = i_free & ~(i_min | i_max);
0086 end
Generated on Wed 25-Aug-2004 14:38:35 by m2html © 2003