home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS1.DI$ / EASYMU.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  683 b   |  26 lines
  1. % function [upp,low,pert,dleft,dright] = easymu(m,blk)
  2. %
  3. %  upper and lower bounds for mu(M). M is the input
  4. %  constant matrix and BLK is the block structure.
  5. %
  6. %  See also: MU, UNWRAPD, UNWRAPP.
  7.  
  8. function [upp,low,pert,dleft,dright] = easymu(m,blk)
  9.  if nargin < 2
  10.    disp(['usage: [upp,low,pert,dleft,dright] = easymu(m,blk)']);
  11.    return
  12.  end
  13.  [bnds,row_d,se,row_p,pinfo] = mu(m,blk);
  14.  
  15.    pert = unwrapp(row_p,blk);
  16.    [dleft,dright] = unwrapd(row_d,blk);
  17.    upp = sel(bnds,1,1);
  18.    low = sel(bnds,1,2);
  19. if pinfo(1) == 0
  20.     disp(' converged ')
  21.  else
  22.    disp('mu calculation did not converge - sorry')
  23.  end
  24. %
  25. % Copyright MUSYN INC 1991,  All Rights Reserved
  26.