view 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
line wrap: on
line source
function y=stacklp(x,N)

if nargin<2,
  N=5;
end

[D,T]=size(x);
xext=x(:,[ones(1,N) 1:T T*ones(1,N)]);

y=zeros((2*N+1)*D,T);
if islogical(x), y=logical(y);end % copy logical property
for k=0:2*N,
  y(k*D+(1:D),:)=xext(:,k+1:k+T);
end