evol.m

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

function evol

global Uievolgraf;
global UievolN;
global evolgraf;
global evolN;
global evolfig;
global evolaxes;
global evolcordaxes;
global UievolAmax;
global UievolAmin;
global UievolFmax;
global UievolFmin;
global UievolTmax;
global UievolTmin;
global Uievoltipo;
global evolAmax;
global evolAmin;
global evolFmax;
global evolFmin;
global evolTmax;
global evolTmin;


evolfig=figure('NumberTitle','off','Name','Espectros Evolutivos');
axes('Visible','off');

text('Position',[0.80 0.62],'Units','normalized','Color','r','String','Gr醘ica:');
text('Position',[0.80 0.57],'Units','normalized','Color','r','String','No Ptos:');
text('Position',[0.80 0.47],'Units','normalized','Color','r','String','Amax:');
text('Position',[0.80 0.42],'Units','normalized','Color','r','String','Amin:');
text('Position',[0.80 0.37],'Units','normalized','Color','r','String','fmax:');
text('Position',[0.80 0.32],'Units','normalized','Color','r','String','fmin:');
text('Position',[0.80 0.27],'Units','normalized','Color','r','String','tmax:');
text('Position',[0.80 0.22],'Units','normalized','Color','r','String','tmin:');
text('Position',[0.80 0.17],'Units','normalized','Color','r','String','Art[]Log[X]');

evolcordaxes = axes('Position',[0.65 0.05 0.38 0.05], 'Visible', 'off');
evolaxes =  axes('Position',[0.1 0.3 0.6 0.55],'Box','on');

uicontrol(evolfig,'Style','Pushbutton','Position',[0.50 0.04 0.12 0.05],...
         'Units','normalized','Callback','cerrar','String','cerrar');
uicontrol(evolfig,'Style','Pushbutton','Position',[0.10 0.04 0.12 0.05],...
         'Units','normalized','Callback','evolcal','String','calc');
uicontrol(evolfig,'Style','Pushbutton','Position',[0.30 0.04 0.12 0.05],...
         'Units','normalized','Callback','evolcor','String','coord');
uicontrol(evolfig,'Style','Pushbutton','Position',[0.10 0.12 0.12 0.05],...
         'Units','normalized','Callback','evoltgrf','String','TRIDI');
uicontrol(evolfig,'Style','Pushbutton','Position',[0.30 0.12 0.12 0.05],...
         'Units','normalized','Callback','evolpgrf','String','PLANO');
uicontrol(evolfig,'Style','Pushbutton','Position',[0.50 0.12 0.12 0.05],...
         'Units','normalized','Callback','evolnext','String','NEXT');
uicontrol(evolfig,'Style','Pushbutton','Position',[0.70 0.12 0.12 0.05],...
         'Units','normalized','Callback','evolback','String','BACK');
uicontrol(evolfig,'Style','Pushbutton','Position',[0.80 0.80 0.1 0.05],...
         'Units','normalized','Callback','bmp','String','BMP');
uicontrol(evolfig,'Style','Pushbutton','Position',[0.80 0.70 0.1 0.05],...
         'Units','normalized','Callback','vergraf','String','VGRAF');

evolgraf = 1;
evolN    = 256;
evolAmin = 0;
evolAmax = 0;
evolFmin = 0;
evolFmax = 0;
evolTmin = 0;
evolTmax = 0;

Uievolgraf = uicontrol(evolfig,'Style','edit','Position',[0.90 0.58 0.08 0.05],...
          'Units','normalized','Callback','evolpar',...
          'String','001');
UievolN  = uicontrol(evolfig,'Style','edit','Position',[0.90 0.54 0.08 0.05],...
          'Units','normalized','Callback','evolpar',...
          'String','256');
UievolAmax = uicontrol(evolfig,'Style','edit','Position',[0.90 0.46 0.08 0.05],...
          'Units','normalized','Callback','evolpar',...
          'String','000');
UievolAmin = uicontrol(evolfig,'Style','edit','Position',[0.90 0.42 0.08 0.05],...
          'Units','normalized','Callback','evolpar',...
          'String','000');
UievolFmax = uicontrol(evolfig,'Style','edit','Position',[0.90 0.38 0.08 0.05],...
          'Units','normalized','Callback','evolpar',...
          'String','000');
UievolFmin = uicontrol(evolfig,'Style','edit','Position',[0.90 0.34 0.08 0.05],...
          'Units','normalized','Callback','evolpar',...
          'String','000');
UievolTmax = uicontrol(evolfig,'Style','edit','Position',[0.90 0.30 0.08 0.05],...
          'Units','normalized','Callback','evolpar',...
          'String','000');
UievolTmin = uicontrol(evolfig,'Style','edit','Position',[0.90 0.26 0.08 0.05],...
          'Units','normalized','Callback','evolpar',...
          'String','000');
Uievoltipo = uicontrol(evolfig,'Style','radiobutton','Position',[0.90 0.22 0.08 0.05],...
               'Units','normalized','Callback','evolpar');