ascii.m

来自「德国人开发的地震处理分析软件」· M 代码 · 共 51 行

function ascii

global exten;
global archX;
global asciicol;
global psdX;
global corX;
global psdXY;
global corXY
global tfXY;
global psdgrafY;

[nombresal,rutasal]=uiputfile('*.*','Impresi髇 de archivos',100,100);
directorio=cd;
nombresal=[rutasal,nombresal];
fid=fopen(nombresal,'wt');

if exten=='.psd';
   if psdgrafY==[];
      fprintf(fid,'espectro de potencia\n');
      fprintf(fid,'%12.4e %12.4e %12.4e\n',psdX);
      fprintf(fid,'funci髇 de autocorrelaci髇\n')
      fprintf(fid,'%12.4e\n',corX);
      fclose(fid);
   else;
      fprintf(fid,'espectros de potencia\n');
      fprintf(fid,'%12.4e %12.4e %12.4e %12.4e %12.4e %12.4e\n',psdXY);
      fprintf(fid,'funci髇 de transferencia\n');
      fprintf(fid,'%12.4e %12.4e %12.4e\n',tfXY);
      fprintf(fid,'funciones de correlaci髇\n');
      fprintf(fid,'%12.4e %12.4e %12.4e\n',corXY);
      fclose(fid);
      clear global psdX corX psdXY corXY tfXY; 
   end;
else 
   if asciicol==1;
      fprintf(fid,'%12.4e\n',archX);
   else
      if asciicol==5;
         fprintf(fid,'%12.4e %12.4e %12.4e %12.4e %12.4e\n',archX);
      else
         if asciicol==3;
            fprintf(fid,'%12.4e %12.4e %12.4e\n',archX);
         end;
      end;
   end;
   clear global archX;
   fclose(fid);
end;