25 lines
390 B
Scilab
25 lines
390 B
Scilab
|
function [a,b]=ffill(x,ixc,y)
|
||
|
// Copyright (C) 2001 Michel Juillard
|
||
|
//
|
||
|
|
||
|
xc = size(x,1);
|
||
|
|
||
|
if y==[] then
|
||
|
b = [ixc;0];
|
||
|
a = [x,zeros(size(x,1),1)];
|
||
|
else
|
||
|
yc = size(y,1);
|
||
|
b = [ixc;yc];
|
||
|
|
||
|
if xc>yc then
|
||
|
a = [x,[y;zeros(xc-yc,size(y,2))]];
|
||
|
elseif yc>xc then
|
||
|
a = [[x;zeros(yc-xc,size(x,2))],y];
|
||
|
else
|
||
|
a = [x,y];
|
||
|
end
|
||
|
|
||
|
end
|
||
|
|
||
|
// 2001/09/1 MJ corrected for absent lags
|