filascii.m

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

function filascii

global Afil;
global nnfilgraf;
global fildeltaf;
global numerofil;
global nfilgraf;
global archX;
global exten;
global asciicol;

asciicol=1;
exten='.fil';

if length(nnfilgraf)==1;

   j=0;
   for i=nfilgraf;
       j=j+1;
       if i==nnfilgraf;
          archX=[fildeltaf(j);Afil(numerofil(j):numerofil(j+1)-1)]';
       end;
   end;

   clc;

   ascii;
else
   return;
end;