quicwind/vec2cell.m

   1 function c=vec2cell(v,p)
   2 % c=vec2cell(v,p)
   3 % Reshape vector v into cell array of nd-arrays
   4 % of the same sizes as the template p. The total number of entries
   5 % in the vector v must equal to the total number of entries
   6 % in the arrays in p
   7 %
   8 % in:
   9 % v     vector
  10 % p     cell array
  11 % out:
  12 % c     cell array
  13 %
  14
  15 [m,n]=size(p);
  16 k=0;
  17 for j=1:n
  18     for i=1:m
  19         s = size(p{i,j});
  20         e = prod(s);
  21         c{i,j}=reshape(v(k+1:k+e),s);
  22         k=k+e;
  23     end
  24 end
  25 if length(v)~=k,
  26     error('incompatible vector and cell template')
  27 end
  28 end