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