home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS1.DI$ / SYSRAND.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  664 b   |  23 lines
  1. % function out = sysrand(nstates,ninputs,noutputs)
  2. %
  3. %  Create a random SYSTEM matrix, with a specified number of
  4. %  states, inputs and outputs.
  5. %
  6. %   See also: CRAND, MINFO, PCK, PSS2SYS, SYS2PSS, RAND, and RANDEL.
  7.  
  8.  function out = sysrand(n,nin,nout)
  9.  if nargin < 3
  10.    disp(['usage: out = sysrand(nstates,ninputs,noutputs)'])
  11.  else
  12.    if min([n nin nout]) <= 0
  13.      error('dimensions should be positive')
  14.    elseif ceil([n nin nout]) == floor([n nin nout])
  15.      out = pck(rand(n,n),rand(n,nin),rand(nout,n),rand(nout,nin));
  16.    else
  17.      error('dimensions should be integers')
  18.    end
  19.  end
  20.  
  21. %
  22. % Copyright MUSYN INC 1991,  All Rights Reserved
  23.