0001 function arr = s2let_mw_vec2arr(vec) 0002 0003 len = length(vec(:)); 0004 0005 delta = sqrt(1 + 8*len); 0006 L = ( 1 + delta ) / 4; 0007 0008 arr = zeros(L, 2*L-1); 0009 0010 for t = 1:L 0011 for p = 1:2*L-1 0012 arr(t,p) = vec((t-1)*(2*L-1)+p); 0013 end 0014 end 0015 0016 0017 end