evolcal.m

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

function evolcal

global numero;
global A;
global evolgraf;
global evolN;
global evolaxes;
global deltat;
global evolt;
global evolf;
global evolB;
global NcolevolB;
global indcolevolB;

No=numero(evolgraf);
Nn=numero(evolgraf+1)-No;
Nf=No+Nn-1;

[evolB,evolf,evolt]=specgram(A(No:Nf),evolN,1/deltat(evolgraf));
evolB=abs(evolB)*deltat(evolgraf);
NcolevolB=size(evolB,2);
indcolevolB=1;

evoltgrf;