fftascii.m

德国人开发的地震处理分析软件

function fftascii

global Afft;
global fftgraf;
global fftdeltaf;
global numerofft;
global nfftgraf;
global archX;
global exten;
global asciicol;

asciicol=1;
exten='.fft';

j=0;
for i=nfftgraf;
    j=j+1;
    if i==fftgraf;
       archX=[fftdeltaf(j);Afft(numerofft(j):numerofft(j+1)-1)]';
    end;
end;

clc;

ascii;