fftascii.m

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

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;