vegrpar.m

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

function vegrpar

global ngraf;
global tmax;
global deltat;
global numero;
global MaxA
global nnfftgraf;
global nnfilgraf;
global nnpsdgraf;
global nncorgraf;
global nntfgraf;
global nnresgraf;
global nninegraf;
global nnariagraf;
global nnampgraf;
global Uigrafgraf;
global Uigraffft;
global Uigraffil;
global Uigrafpsd;
global Uigraftf1;
global Uigraftf2;
global Uigrafres;
global Uigrafine;
global Uigrafaria;
global Uigrafamp;
global grafArange;

ngraf=[];
nnfftgraf=[];
nnfilgraf=[];
nnpsdgraf=[];
nntfgraf=[];
nnresgraf=[];
nninegraf=[];
nnariagraf=[];
nnampgraf=[];

sngraf    = get(Uigrafgraf, 'string');
for i=1:length(sngraf);
    ngraf=[ngraf,str2num(sngraf(i))];
end;

snnfftgraf = get(Uigraffft, 'string');
for i=1:length(snnfftgraf);
    nnfftgraf=[nnfftgraf,str2num(snnfftgraf(i))];
end;

snnfilgraf = get(Uigraffil, 'string');
for i=1:length(snnfilgraf);
    nnfilgraf=[nnfilgraf,str2num(snnfilgraf(i))];
end;

snnampgraf = get(Uigrafamp, 'string');
for i=1:length(snnampgraf);
    nnampgraf=[nnampgraf,str2num(snnampgraf(i))];
end;

snnpsdgraf = get(Uigrafpsd, 'string');
for i=1:length(snnpsdgraf);
    nnpsdgraf=[nnpsdgraf,str2num(snnpsdgraf(i))];
end;

snntfgraf1  = get(Uigraftf1, 'string');
snntfgraf2  = get(Uigraftf2, 'string');
for i=1:length(snntfgraf1);
    nntfgraf=[nntfgraf,[str2num(snntfgraf1(i));str2num(snntfgraf2(i))]];
end;

snnresgraf = get(Uigrafres, 'string');
for i=1:length(snnresgraf);
    nnresgraf=[nnresgraf,str2num(snnresgraf(i))];
end;

snninegraf = get(Uigrafine, 'string');
for i=1:length(snninegraf);
    nninegraf=[nninegraf,str2num(snninegraf(i))];
end;

snnariagraf = get(Uigrafaria, 'string');
for i=1:length(snnariagraf);
    nnariagraf=[nnariagraf,str2num(snnariagraf(i))];
end;

nncorgraf = nnpsdgraf;
tmax=max(deltat(ngraf).*(numero(ngraf+1)-numero(ngraf)));
nlbgraf=ngraf(1);

Amax=max(MaxA(ngraf));
grafArange=[-Amax Amax];