ampascii.m

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

function ampascii

global Aamp;
global nnampgraf;
global ampdeltaf;
global numeroamp;
global nampgraf;
global archX;
global exten;
global asciicol;

asciicol=1;
exten='.amp';

if length(nnampgraf)==1;

   j=0;
   for i=nampgraf;
       j=j+1;
       if i==nnampgraf;
          archX=[ampdeltaf(j);Aamp(numeroamp(j):numeroamp(j+1)-1)]';
       end;
   end;

   clc;

   ascii;
else
   return;
end;