resp.m

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

function resp

global Uiresgraf;
global Uiresdt;
global Uirestf;
global UiresXi;
global UiresAmax;
global UiresAmin;
global UiresTmax;
global UiresTmin;
global Uirestipo;
global Uiresnorm;
global resaxes;
global rescordaxes;
global resgraf;
global resdt;
global restf;
global resXi;
global resAmax;
global resAmin;
global resTmax;
global resTmin;
global resfig;

resfig=figure('NumberTitle','off','Name','Espectros de respuesta');
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','Intervalo:');
text('Position',[0.80 0.52],'Units','normalized','Color','r','String','T final:');
text('Position',[0.80 0.47],'Units','normalized','Color','r','String','Amort.:');
text('Position',[0.80 0.42],'Units','normalized','Color','r','String','Amax:');
text('Position',[0.80 0.37],'Units','normalized','Color','r','String','Amin:');
text('Position',[0.80 0.32],'Units','normalized','Color','r','String','Tmax:');
text('Position',[0.80 0.27],'Units','normalized','Color','r','String','Tmin:');
text('Position',[0.80 0.22],'Units','normalized','Color','r','String','Art[]Log[X]');
text('Position',[0.80 0.17],'Units','normalized','Color','r','String','Norm[ ][X]');

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

uicontrol(resfig,'Style','Pushbutton','Position',[0.45 0.07 0.12 0.05],...
         'Units','normalized','Callback','cerrar','String','cerrar');
uicontrol(resfig,'Style','Pushbutton','Position',[0.45 0.01 0.12 0.05],...
         'Units','normalized','Callback','rescord','String','Coord');
uicontrol(resfig,'Style','Pushbutton','Position',[0.20 0.07 0.12 0.05],...
         'Units','normalized','Callback','rescal','String','calc');
uicontrol(resfig,'Style','Pushbutton','Position',[0.80 0.80 0.1 0.05],...
         'Units','normalized','Callback','bmp','String','BMP');
uicontrol(resfig,'Style','Pushbutton','Position',[0.80 0.75 0.1 0.05],...
         'Units','normalized','Callback','resascii','String','ASCII');
uicontrol(resfig,'Style','Pushbutton','Position',[0.80 0.70 0.1 0.05],...
         'Units','normalized','Callback','vergraf','String','VGRAF');

resgraf  = 1;
resdt= 0.05;
restf    = 1;
resXi=0.05;
resAmin = 0;
resAmax = 0;
resTmin = 0;
resTmax = 0;

uicontrol(resfig,'Style','Pushbutton','Position',[0.10 0.15 0.12 0.05],...
         'Units','normalized','Callback','sdgra','String','Sd');
uicontrol(resfig,'Style','Pushbutton','Position',[0.34 0.15 0.12 0.05],...
         'Units','normalized','Callback','svgra','String','Sv');
uicontrol(resfig,'Style','Pushbutton','Position',[0.58 0.15 0.12 0.05],...
         'Units','normalized','Callback','sagra','String','Sa');


Uiresgraf    = uicontrol(resfig,'Style','edit','Position',[0.90 0.58 0.08 0.05],...
               'Units','normalized','Callback','respar',...
               'String','001');
Uiresdt  = uicontrol(resfig,'Style','edit','Position',[0.90 0.54 0.08 0.05],...
               'Units','normalized','Callback','respar',...
               'String','0.05');
Uirestf      = uicontrol(resfig,'Style','edit','Position',[0.90 0.50 0.08 0.05],...
               'Units','normalized','Callback','respar',...
               'String','1.0');
UiresXi      = uicontrol(resfig,'Style','edit','Position',[0.90 0.46 0.08 0.05],...
               'Units','normalized','Callback','respar',...
               'String','0.05');
UiresAmax    = uicontrol(resfig,'Style','edit','Position',[0.90 0.42 0.08 0.05],...
               'Units','normalized','Callback','respar',...
               'String','0000');
UiresAmin    = uicontrol(resfig,'Style','edit','Position',[0.90 0.38 0.08 0.05],...
               'Units','normalized','Callback','respar',...
               'String','0000');
UiresTmax    = uicontrol(resfig,'Style','edit','Position',[0.90 0.34 0.08 0.05],...
               'Units','normalized','Callback','respar',...
               'String','0000');
UiresTmin    = uicontrol(resfig,'Style','edit','Position',[0.90 0.30 0.08 0.05],...
               'Units','normalized','Callback','respar',...
               'String','0000');
Uirestipo    = uicontrol(resfig,'Style','radiobutton','Position',[0.90 0.26 0.08 0.05],...
               'Units','normalized','Callback','respar');
Uiresnorm    = uicontrol(resfig,'Style','radiobutton','Position',[0.90 0.22 0.08 0.05],...
               'Units','normalized','Callback','respar');