ffill

 Copyright (C) 2001 Michel Juillard

0001 % Copyright (C) 2001 Michel Juillard
0002 %
0003 function [a,b] = ffill(x,ixc,y)
0004 
0005 xc = size(x,1) ;
0006 
0007 if isempty(y)
0008   b = [ixc; 0];
0009   a = [x zeros(size(x,1),1)];
0010 else
0011   yc = size(y,1) ;
0012   b = [ixc;yc] ;
0013 
0014   if xc > yc
0015     a = [x [y;zeros(xc-yc,size(y,2))]] ;
0016   elseif yc > xc
0017     a = [[x;zeros(yc-xc,size(x,2))] y] ;
0018   else
0019     a = [x y] ;
0020   end
0021 
0022 end
0023 
0024 % 2001/09/1 MJ corrected for absent lags