Mercurial > hg > dcase2013_ed_vuegenetal
annotate functions/fe_funcs/stacklp.m @ 0:2fadb31a9d55 tip
Import code by Vuegen et al
| author | Dan Stowell <dan.stowell@elec.qmul.ac.uk> |
|---|---|
| date | Fri, 11 Oct 2013 12:02:43 +0100 |
| parents | |
| children |
| rev | line source |
|---|---|
| dan@0 | 1 function y=stacklp(x,N) |
| dan@0 | 2 |
| dan@0 | 3 if nargin<2, |
| dan@0 | 4 N=5; |
| dan@0 | 5 end |
| dan@0 | 6 |
| dan@0 | 7 [D,T]=size(x); |
| dan@0 | 8 xext=x(:,[ones(1,N) 1:T T*ones(1,N)]); |
| dan@0 | 9 |
| dan@0 | 10 y=zeros((2*N+1)*D,T); |
| dan@0 | 11 if islogical(x), y=logical(y);end % copy logical property |
| dan@0 | 12 for k=0:2*N, |
| dan@0 | 13 y(k*D+(1:D),:)=xext(:,k+1:k+T); |
| dan@0 | 14 end |