home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS2.DI$ / REFROOTS.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  247 b   |  12 lines
  1. function pout = refroots(pin)
  2.  ord = length(pin) - 1;
  3.  zers = roots(pin);
  4.  for i=1:ord
  5.    if real(zers(i))>0
  6.      zers(i) = -zers(i);
  7.    end
  8.  end
  9.  pout = real(pin(1)*poly(diag(zers)));
  10. %
  11. % Copyright MUSYN INC 1991,  All Rights Reserved
  12.