www.gusucode.com > EasyKrig_V3.0工具箱matlab源码程序 > EasyKrig_V3.0/misc_mfiles/test_remove_nan.m

    function		[x,y,z,v]=test_remove_nan(filename)
%%% remove NaN's
%%
%%  Kriging Software Package  version 3.0,   May 1, 2004
%%  Copyright (c) 1999, 2001, 2004, property of Dezhang Chu and Woods Hole Oceanographic
%%  Institution.  All Rights Reserved.

dat=load(filename);
x=dat(:,2);
y=dat(:,1);
if size(dat,2) >= 4   % 3D data
   z=dat(:,3);
   v=dat(:,4);
   indx=find( isnan(x) | isnan(y) | isnan(z) | isnan(v));
   x(indx)=[];
   y(indx)=[];
   z(indx)=[];
   v(indx)=[];
else                    % 2D data
   v=dat(:,3);
   indx=find( isnan(x) | isnan(y) | isnan(v));
   x(indx)=[];
   y(indx)=[];
   v(indx)=[];
   z=[];
end