arias.m

地震资料处理的matlab源码软件包

function arias

global Uiariagraf;
global UiariaAmax;
global UiariaAmin;
global UiariaTmax;
global UiariaTmin;
global Uiarianorm;
global ariaaxes;
global ariacordaxes;
global ariagraf;
global ariaAmax;
global ariaAmin;
global ariaTmax;
global ariaTmin;
global ariafig;

ariafig=figure('NumberTitle','off','Name','Intensidad de Arias');
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','Amax:');
text('Position',[0.80 0.52],'Units','normalized','Color','r','String','Amin:');
text('Position',[0.80 0.47],'Units','normalized','Color','r','String','tmax:');
text('Position',[0.80 0.42],'Units','normalized','Color','r','String','tmin:');
text('Position',[0.80 0.37],'Units','normalized','Color','r','String','Norm[ ][X]');

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

uicontrol(ariafig,'Style','Pushbutton','Position',[0.45 0.07 0.12 0.05],...
         'Units','normalized','Callback','cerrar','String','cerrar');
uicontrol(ariafig,'Style','Pushbutton','Position',[0.45 0.01 0.12 0.05],...
         'Units','normalized','Callback','ariacord','String','Coord');
uicontrol(ariafig,'Style','Pushbutton','Position',[0.20 0.07 0.12 0.05],...
         'Units','normalized','Callback','ariacal','String','calc');
uicontrol(ariafig,'Style','Pushbutton','Position',[0.20 0.01 0.12 0.05],...
         'Units','normalized','Callback','ariagra','String','graf');
uicontrol(ariafig,'Style','Pushbutton','Position',[0.80 0.80 0.1 0.05],...
         'Units','normalized','Callback','bmp','String','BMP');
uicontrol(ariafig,'Style','Pushbutton','Position',[0.80 0.75 0.1 0.05],...
         'Units','normalized','Callback','ariascii','String','ASCII');
uicontrol(ariafig,'Style','Pushbutton','Position',[0.80 0.70 0.1 0.05],...
         'Units','normalized','Callback','vergraf','String','VGRAF');

ariagraf = 1;
ariaAmin = 0;
ariaAmax = 0;
ariaTmin = 0;
ariaTmax = 0;

Uiariagraf = uicontrol(ariafig,'Style','edit','Position',[0.90 0.58 0.08 0.05],...
          'Units','normalized','Callback','ariapar',...
          'String','001');
UiariaAmax = uicontrol(ariafig,'Style','edit','Position',[0.90 0.54 0.08 0.05],...
          'Units','normalized','Callback','ariapar',...
          'String','000');
UiariaAmin = uicontrol(ariafig,'Style','edit','Position',[0.90 0.50 0.08 0.05],...
          'Units','normalized','Callback','ariapar',...
          'String','000');
UiariaTmax = uicontrol(ariafig,'Style','edit','Position',[0.90 0.46 0.08 0.05],...
          'Units','normalized','Callback','ariapar',...
          'String','000');
UiariaTmin = uicontrol(ariafig,'Style','edit','Position',[0.90 0.42 0.08 0.05],...
          'Units','normalized','Callback','ariapar',...
          'String','000');
Uiarianorm = uicontrol(ariafig,'Style','radiobutton','Position',[0.90 0.38 0.08 0.05],...
               'Units','normalized','Callback','ariapar');