home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS2.DI$ / CHEAPD.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  357 b   |  17 lines
  1. %function [dl,dr,ec] = cheapd(bw,az,blk)
  2. function [dl,dr,ec] = cheapd(bw,az,blk)
  3.   ec = 0;
  4.   tdl = sqrt(real(az(:,2) ./ az(:,1)));
  5.   tdr = sqrt(real(bw(:,2) ./ bw(:,1)));
  6.   maxd = max(abs(tdl));
  7.   if maxd < 1e7
  8.     dl = tdl;
  9.     dr = tdr;
  10.   else
  11.     ec = 1;
  12.     dl = [];
  13.     dr = [];
  14.   end
  15. %
  16. % Copyright MUSYN INC 1991,  All Rights Reserved
  17.