ampascii.m

地震资料处理的matlab源码软件包

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;