versenal.m

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

function versenal

close;

global ngraf;
global deltat;
global MaxA;
global tmax;
global Tmax;
global numero;
global grafArange;
global Uidens;
global Uiori;
global rielaxes;
global grafaxes;
global grafcordaxes;
global Uinumgraf;
global nlbgraf;
global UigrafAmax;
global Uifc;
global UiTmax;
global fc;

clc

ngraf=[1:length(deltat)];
nlbgraf=ngraf(1);
tmax=max(deltat(ngraf).*(numero(ngraf+1)-numero(ngraf)));
Amax=max(MaxA(ngraf));
grafArange=[-Amax Amax];
fc=0.10;
Tmax=0.0;

graffig = figure('NumberTitle','off','Name','Visualizaci髇 Se馻l');

axes('Visible','off')

text('Position',[0.02 0.16],'Units','normalized','Color','g','String','Densidad');
text('Position',[0.80 0.16],'Units','normalized','Color','g','String','Origen');
text('Position',[0.98 -0.09],'Units','normalized','Color','g','String','Graf:');
text('Position',[0.76 -0.09],'Units','normalized','Color','g','String','Amax:');
text('Position',[0.35 -0.09],'Units','normalized','Color','g','String','fc:');
text('Position',[0.53 -0.09],'Units','normalized','Color','g','String','Tmax:');

grafcordaxes = axes('Position',[0.65 0.1 0.38 0.05], 'Visible', 'off');
rielaxes     = axes('Position',[0.34 0.24 0.38 0.03], 'Visible', 'off');
grafaxes     = axes('Position',[0.1 0.4 0.8 0.5],'Box','on');

uicontrol(graffig,'Style','Pushbutton','Position',[0.45 0.15 0.1 0.05],...
         'Units','normalized','Callback','cerrar','String','cerrar')
uicontrol(graffig,'Style','Pushbutton','Position',[0.45 0.08 0.1 0.05],...
         'Units','normalized','Callback','grafcord','String','Coord')
uicontrol(graffig,'Style','Pushbutton','Position',[0.92 0.7 0.1 0.05],...
         'Units','normalized','Callback','borra','String','BORR')
uicontrol(graffig,'Style','Pushbutton','Position',[0.92 0.8 0.1 0.05],...
         'Units','normalized','Callback','bmp','String','BMP')
uicontrol(graffig,'Style','Pushbutton','Position',[0.92 0.9 0.1 0.05],...
         'Units','normalized','Callback','grfascii','String','ASCI')
uicontrol(graffig,'Style','Pushbutton','Position',[0.92 0.6 0.1 0.05],...
         'Units','normalized','Callback','vergraf','String','VGRF')
uicontrol(graffig,'Style','Pushbutton','Position',[0.92 0.5 0.1 0.05],...
         'Units','normalized','Callback','grafica','String','GRAF')
uicontrol(graffig,'Style','Pushbutton','Position',[0.92 0.4 0.1 0.05],...
         'Units','normalized','Callback','integra','String','INTE')
uicontrol(graffig,'Style','Pushbutton','Position',[0.05 0.08 0.12 0.05],...
         'Units','normalized','Callback','limizq','String','lim.izq')
uicontrol(graffig,'Style','Pushbutton','Position',[0.23 0.08 0.12 0.05],...
         'Units','normalized','Callback','limder','String','lim.der')
uicontrol(graffig,'Style','Pushbutton','Position',[0.05 0.01 0.12 0.05],...
         'Units','normalized','Callback','limext','String','lim.ext')
uicontrol(graffig,'Style','Pushbutton','Position',[0.23 0.01 0.12 0.05],...
         'Units','normalized','Callback','linbase','String','lin.bas')

Uinumgraf = uicontrol(graffig,'Style','edit','Position',[0.95 0.01 0.04 0.05],...
          'Units','normalized','Callback','grafpar','String',num2str(nlbgraf));
UigrafAmax  = uicontrol(graffig,'Style','edit','Position',[0.80 0.01 0.08 0.05],...
          'Units','normalized','Callback','grafpar','String','0');
Uifc      = uicontrol(graffig,'Style','edit','Position',[0.45 0.01 0.08 0.05],...
          'Units','normalized','Callback','grafpar','String','0.10');
UiTmax    = uicontrol(graffig,'Style','edit','Position',[0.62 0.01 0.08 0.05],...
          'Units','normalized','Callback','grafpar','String','0.0');
Uidens  =  uicontrol(graffig,'Style','Slider','Position',[0.05 0.15 0.3 0.05],...
         'Units','normalized','Callback','zoom','Value',1);
Uiori   =  uicontrol(graffig,'Style','Slider','Position',[0.65 0.15 0.3 0.05],...
         'Units','normalized','Callback','zoom','Value',0);