ampli.m

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

function ampli

global UiampgrafX;
global UiampgrafY;
global UiampAmax;
global UiampAmin;
global UiampFmax;
global UiampFmin;
global UiamptipoE;
global UiamptipoG;
global ampaxes;
global ampcordaxes;
global ampgrafX;
global ampgrafY;
global ampAmax;
global ampAmin;
global ampFmax;
global ampFmin;
global ampfig;

ampfig=figure('NumberTitle','off','Name','Espectros de Amplificaci髇');
axes('Visible','off');

text('Position',[0.80 0.57],'Units','normalized','Color','r','String','Se馻lX');
text('Position',[0.80 0.52],'Units','normalized','Color','r','String','Se馻lY');
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','fft[X]res[]');
text('Position',[0.80 0.22],'Units','normalized','Color','r','String','Log[X]Art[]');

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

uicontrol(ampfig,'Style','Pushbutton','Position',[0.45 0.07 0.12 0.05],...
         'Units','normalized','Callback','cerrar','String','cerrar');
uicontrol(ampfig,'Style','Pushbutton','Position',[0.45 0.01 0.12 0.05],...
         'Units','normalized','Callback','ampcord','String','Coord');
uicontrol(ampfig,'Style','Pushbutton','Position',[0.20 0.07 0.12 0.05],...
         'Units','normalized','Callback','ampcal','String','calc');
uicontrol(ampfig,'Style','Pushbutton','Position',[0.20 0.01 0.12 0.05],...
         'Units','normalized','Callback','ampgra','String','graf');
uicontrol(ampfig,'Style','Pushbutton','Position',[0.80 0.80 0.1 0.05],...
         'Units','normalized','Callback','bmp','String','BMP');
uicontrol(ampfig,'Style','Pushbutton','Position',[0.80 0.75 0.1 0.05],...
         'Units','normalized','Callback','ampascii','String','ASCII');
uicontrol(ampfig,'Style','Pushbutton','Position',[0.80 0.70 0.1 0.05],...
         'Units','normalized','Callback','vergraf','String','VGRAF');

ampgrafX = 1;
ampgrafY = 2;
ampAmin = 0;
ampAmax = 0;
ampFmin = 0;
ampFmax = 0;

UiampgrafX= uicontrol(ampfig,'Style','edit','Position',[0.90 0.54 0.08 0.05],...
          'Units','normalized','Callback','amppar',...
          'String','001');
UiampgrafY= uicontrol(ampfig,'Style','edit','Position',[0.90 0.50 0.08 0.05],...
          'Units','normalized','Callback','amppar',...
          'String','002');
UiampAmax = uicontrol(ampfig,'Style','edit','Position',[0.90 0.46 0.08 0.05],...
          'Units','normalized','Callback','amppar',...
          'String','000');
UiampAmin = uicontrol(ampfig,'Style','edit','Position',[0.90 0.42 0.08 0.05],...
          'Units','normalized','Callback','amppar',...
          'String','000');
UiampFmax = uicontrol(ampfig,'Style','edit','Position',[0.90 0.38 0.08 0.05],...
          'Units','normalized','Callback','amppar',...
          'String','000');
UiampFmin = uicontrol(ampfig,'Style','edit','Position',[0.90 0.34 0.08 0.05],...
          'Units','normalized','Callback','amppar',...
          'String','000');
UiamptipoE= uicontrol(ampfig,'Style','radiobutton','Position',[0.90 0.30 0.08 0.05],...
               'Units','normalized','Callback','amppar');
UiamptipoG= uicontrol(ampfig,'Style','radiobutton','Position',[0.90 0.26 0.08 0.05],...
               'Units','normalized','Callback','amppar');