%X: matriz de dados
%nome: nome do arquivo a ser gravado

function savedat(X,nome)
f=fopen(nome,'w');
[n, m]=size(X);
for i=1:n
   fprintf(f,'%5d',X(i,1));
   %fprintf(f,'%4.4f',X(i,1));
   for j=2:m      
      fprintf(f,' %4.4f',X(i,j));
   end;
   if i~=n
      fprintf(f,'\n');
   end
end;
fclose(f);

function savedat2(X,nome)
f=fopen(nome,'w');
[n, m]=size(X);
for i=1:n
   %fprintf(f,'%5d',X(i,1));
   fprintf(f,'%4.5f',X(i,1));
   for j=2:m      
      fprintf(f,' %4.5f',X(i,j));
   end;
   fprintf(f,'\n');
end;
fclose(f);