remnan.m

来自「收集的GA的一些源程序」· M 代码 · 共 21 行

function [out]=remnan(in,r);
%
% Function to remove NaN's from a
% vector and replace them with r
%
[D L]=size(in);
temp=isnan(in);
out=in;

for i = 1:L
	for j = 1:D
		if temp(j,i)==1
			out(j,i)=r;
		end
		if in(j,i)==0
			out(j,i)=r;
		end
	end
end