home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS1.DI$ / CJT.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  835 b   |  34 lines
  1. % function out = cjt(mat)
  2. %
  3. %   Complex conjugate transpose for VARYING matrices;
  4. %
  5. %   Complex conjugate transpose (adjoint system) for
  6. %      SYSTEM matrices.
  7. %
  8. %   See also: ', .', TRANSP, VCJT, VTP
  9.  
  10. function out = cjt(mat)
  11.  if nargin ~= 1
  12.    disp('usage: out = cjt(mat)')
  13.    return
  14.  end
  15.  [mtype,mrows,mcols,mnum] = minfo(mat);
  16.  if strcmp(mtype,'vary')
  17.    [vd,rp,indv] = vunpck(mat);
  18.    out = zeros(mcols*mnum+1,mrows+1);
  19.    out(mcols*mnum+1,mrows+1) = inf;
  20.    out(mcols*mnum+1,mrows) = mnum;
  21.    out(1:mnum,mrows+1) = indv;
  22.    for i=1:mnum
  23.      out(1+mcols*(i-1):i*mcols,1:mrows) = ...
  24.          mat(rp(i):rp(i)+mrows-1,1:mcols)';
  25.    end
  26.  elseif strcmp(mtype,'syst')
  27.    [a,b,c,d] = unpck(mat);
  28.    out = pck(-a',-c',b',d');
  29.  else
  30.    out = mat';
  31.  end
  32. %
  33. % Copyright MUSYN INC 1991,  All Rights Reserved
  34.