home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS2.DI$ / MKD.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  666 b   |  17 lines
  1. % function [rdleft,rdrighti] = mkd(d,blk,nblk,blkp)
  2. %   this routine expands each element of d into a row vector
  3. %   with identical elements
  4. %
  5. %  dleft   = [ d(1)*ones(1,blk(1,2)) ... d(nblk)*ones(1,blk(nblk,2)) ]
  6. %  drighti = [ (1/d(1))*ones(1,blk(1,2)) ... (1/d(nblk))*ones(1,blk(nblk,2)) ]
  7.  
  8. function [rdleft,rdrighti] = mkd(d,blk,nblk,blkp)
  9.   rdleft = zeros(1,blkp(nblk+1,2)-1);       % row
  10.   rdrighti = zeros(1,blkp(nblk+1,1)-1);     % row
  11.   for i=1:nblk
  12.     rdleft(1,blkp(i,2):blkp(i+1,2)-1) = d(i)*ones(1,blk(i,2));
  13.     rdrighti(1,blkp(i,1):blkp(i+1,1)-1) = (1.0/d(i))*ones(1,blk(i,1));
  14.   end
  15. %
  16. % Copyright MUSYN INC 1991,  All Rights Reserved
  17.