files = [' cpi';
         ' wpi'];

[m,n] = size(files);

for i=1:m;
   eval(['load ',files(i,:),'.txt'])
   eval(['x=',files(i,:),';']);
   [p,q] = size(x);
   for j=1:p;
     for k=1:q;
       if (x(j,k) <= 0.0000001 & x(j,k) >= -0.0000001);
         x(j,k)=NaN;
       end;
     end;
   end;
   eval(['diary ',files(i,:),'2.txt'])
   eval(['disp(sprintf(['' %5.1f %14.3f %14.3f %14.3f %14.3f %14.3f %14.3f %14.3f %14.3f %14.3f %14.3f %14.3f %14.3f %14.3f %14.3f %14.3f %14.3f %14.3f\n''],x''))']);
   diary
end;


