filold.m

王小平《遗传算法——理论、应用与软件实现》随书光盘

function [out]=fil(in,f);
%
% Filters the data using a first order filter
%
% [out]=fil(in,f);
%
% f is a vector containing the filter constants
%
global stop;
[D L]=size(in);
out=in;
for i = 1:L
	if stop == 1
		break;
	end
	for j = 2:D
		out(j,i)=(out(j-1,i)*f(i))+(out(j,i)*(1-f(i)));
	end
end