for i=1:9;
    N=0;
    www=['aq',num2str(i),'.txt'];
    a=load(www);
    ww=['hy',num2str(i),'.txt'];
    for j=1:length(a);
        N=N+1;
            S=a(j,1);
            Y=a(j,2);
       fid=fopen(ww,'a');
       fprintf(fid,'%d',N);
       fprintf(fid,'%s',' ');
       fprintf(fid,'%6.1f',S);
       fprintf(fid,'%s',' ');
       fprintf(fid,'%6.1f \n',Y);
       status=fclose(fid);
       clear S Y
    end
    clear ww www
end
clear a N i j