format short;
fid=fopen('E:\lunwendata\singley29km.txt','r');
[X,count]=fscanf(fid,'%g');
fclose all;
fid2=fopen('E:\畢業論文程序temp文件\singley29km.txt','w');
for i=1:count
    if X(i,1)<=0.1373
        fprintf(fid2,'%4.8f\n',X(i,1));
    end
end