vergraf.m

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

function vergraf

global deltat;
global archivo;
global numero;
global MaxA;
global tmax;
global letras;
global grafArange;
global nlbgraf;
global ngraf;
global nfftgraf;
global nnfftgraf;
global nfilgraf;
global nnfilgraf;
global npsdgraf;
global nnpsdgraf;
global ncorgraf;
global nncorgraf;
global ntfgraf;
global nntfgraf;
global nresgraf;
global nnresgraf;
global ninegraf;
global nninegraf;
global nariagraf;
global nnariagraf;
global nampgraf;
global nnampgraf;
global Uigrafgraf;
global Uigraffft;
global Uigraffil;
global Uigrafpsd;
global Uigraftf1;
global Uigraftf2;
global Uigrafres;
global Uigrafine;
global Uigrafaria;
global Uigrafamp;

color=['y' 'g' 'c' 'r' 'b' 'm' 'w' 'y' 'g' 'c' 'r' 'b' 'm' 'w' 'y' 'g' 'c' 'r' 'b' 'm' 'w'];

ngraf=[1:length(deltat)];
nnfftgraf=nfftgraf;
nnfilgraf=nfilgraf;
nnpsdgraf=npsdgraf;
nntfgraf=ntfgraf;
nnresgraf=nresgraf;
nninegraf=ninegraf;
nnariagraf=nariagraf;
nnampgraf=nampgraf;

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

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

vergrafig=figure('NumberTitle','off','Name','Selecci髇 de gr醘icas a ver');
axes('Visible','off');

text('Position',[0.25 1.00],'Units','normalized','Color','y','String','SELECCI覰 DE GR罠ICAS A VER');

for i=ngraf;
    text('Position',[0.15 0.9-0.05*(i-1)],'Units','normalized','Color',color(i),'String',[num2str(i) '   ' archivo(i,1:letras(i))]);
end;

text('Position',[0.05 0.57],'Units','normalized','Color','w','String','Se馻les de tiempo                  ');
text('Position',[0.05 0.52],'Units','normalized','Color','w','String','Espectros de Fourier               ');
text('Position',[0.05 0.47],'Units','normalized','Color','w','String','Espectros de Potencia              ');
text('Position',[0.05 0.42],'Units','normalized','Color','w','String','Funciones de Autocorrelaci髇       ');
text('Position',[0.05 0.37],'Units','normalized','Color','w','String','Funciones de transferencia         ');
text('Position',[0.05 0.32],'Units','normalized','Color','w','String','Espectros de Potencia Cruzados     ');
text('Position',[0.05 0.27],'Units','normalized','Color','w','String','Funciones de Coherencia            ');
text('Position',[0.05 0.22],'Units','normalized','Color','w','String','Funciones de Correlaci髇 Cruzadas  ');
text('Position',[0.05 0.17],'Units','normalized','Color','w','String','Espectros de Respuesta El醩ticos   ');
text('Position',[0.05 0.12],'Units','normalized','Color','w','String','Espectros de Respuesta Inel醩ticos ');
text('Position',[0.05 0.07],'Units','normalized','Color','w','String','Intensidades de Arias              ');
text('Position',[0.05 0.02],'Units','normalized','Color','w','String','Filtros                            ');
text('Position',[0.05 -0.03],'Units','normalized','Color','w','String','Espectros de amplificaci髇         ');

Uigrafgraf= uicontrol(vergrafig,'Style','edit','Position',[0.60 0.54 0.20 0.05],...
          'Units','normalized','Callback','vegrpar',...
          'String',num2str(ngraf));
Uigraffft= uicontrol(vergrafig,'Style','edit','Position',[0.60 0.50 0.20 0.05],...
          'Units','normalized','Callback','vegrpar',...
          'String',num2str(nfftgraf));
Uigrafpsd= uicontrol(vergrafig,'Style','edit','Position',[0.60 0.46 0.20 0.05],...
          'Units','normalized','Callback','vegrpar',...
          'String',num2str(npsdgraf));
Uigraftf1= uicontrol(vergrafig,'Style','edit','Position',[0.60 0.38 0.20 0.05],...
          'Units','normalized','Callback','vegrpar',...
          'String',num2str(ntfgraf(1,:)));
Uigraftf2= uicontrol(vergrafig,'Style','edit','Position',[0.60 0.34 0.20 0.05],...
          'Units','normalized','Callback','vegrpar',...
          'String',num2str(ntfgraf(2,:)));
Uigrafres= uicontrol(vergrafig,'Style','edit','Position',[0.60 0.22 0.20 0.05],...
          'Units','normalized','Callback','vegrpar',...
          'String',num2str(nresgraf));
Uigrafine= uicontrol(vergrafig,'Style','edit','Position',[0.60 0.18 0.20 0.05],...
          'Units','normalized','Callback','vegrpar',...
          'String',num2str(ninegraf));
Uigrafaria= uicontrol(vergrafig,'Style','edit','Position',[0.60 0.14 0.20 0.05],...
          'Units','normalized','Callback','vegrpar',...
          'String',num2str(nariagraf));
Uigraffil= uicontrol(vergrafig,'Style','edit','Position',[0.60 0.10 0.20 0.05],...
          'Units','normalized','Callback','vegrpar',...
          'String',num2str(nfilgraf));
Uigrafamp= uicontrol(vergrafig,'Style','edit','Position',[0.60 0.06 0.20 0.05],...
          'Units','normalized','Callback','vegrpar',...
          'String',num2str(nampgraf));

uicontrol(vergrafig,'Style','Pushbutton','Position',[0.40 0.00 0.15 0.05],...
         'Units','normalized','Callback','cerrar','String','cerrar');