s2let_mw_arr2vec

0001 function vec = s2let_mw_arr2vec(arr)
0002 
0003 sz = size(arr);
0004 
0005 if sz(1) == 2*sz(2)-1  % array 2L-1 x L
0006     
0007     L = sz(2);
0008     vec = zeros(L*(2*L-1),1);
0009     for t = 1:L
0010         for p = 1:2*L-1
0011             vec((t-1)*(2*L-1)+p,1) = arr(p,t);
0012         end
0013     end
0014     
0015 end
0016 
0017 if sz(2) == 2*sz(1)-1  % array L x 2L-1
0018     
0019     L = sz(1);
0020     vec = zeros(L*(2*L-1),1);
0021     for t = 1:L
0022         for p = 1:2*L-1
0023             vec((t-1)*(2*L-1)+p,1) = arr(t,p);
0024         end
0025     end
0026     
0027 end
0028 
0029 end