inel.m

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

function inel

global Uiinegraf;
global Uiinedt;
global UiNNine;
global UiineXi;
global UiineBeta;
global UiineUmon;
global UiineAmax;
global UiineAmin;
global UiineTmax;
global UiineTmin;
global ineaxes;
global inecordaxes;
global inetextaxes;
global inegraf;
global inedt;
global NNine;
global ineXi;
global ineBeta;
global ineUmon;
global ineAmax;
global ineAmin;
global ineTmax;
global ineTmin;
global inefig;

inefig=figure('NumberTitle','off','Name','Espectros inel醩ticos');
axes('Visible','off');

text('Position',[0.80 0.67],'Units','normalized','Color','g','String','Gr醘ica:');
text('Position',[0.80 0.62],'Units','normalized','Color','g','String','Intervalo:');
text('Position',[0.80 0.57],'Units','normalized','Color','g','String','N periodos:');
text('Position',[0.80 0.52],'Units','normalized','Color','g','String','Amort.:');
text('Position',[0.80 0.47],'Units','normalized','Color','g','String','Beta:');
text('Position',[0.80 0.42],'Units','normalized','Color','g','String','Umon:');
text('Position',[0.80 0.37],'Units','normalized','Color','g','String','Amax:');
text('Position',[0.80 0.32],'Units','normalized','Color','g','String','Amin:');
text('Position',[0.80 0.27],'Units','normalized','Color','g','String','Tmax:');
text('Position',[0.80 0.22],'Units','normalized','Color','g','String','Tmin:');

inetextaxes = axes('Position',[0.05 0.04 0.40 0.05], 'Visible', 'off');
inecordaxes = axes('Position',[0.65 0.04 0.38 0.05], 'Visible', 'off');
ineaxes =  axes('Position',[0.1 0.3 0.6 0.55],'Box','on');

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

inegraf  = 1;
inedt= 0.05;
NNine    = 20;
ineXi=0.05;
ineAmin = 0;
ineAmax = 0;
ineTmin = 0;
ineTmax = 0;
ineBeta=0.15;
ineUmon=20;

uicontrol(inefig,'Style','Pushbutton','Position',[0.10 0.15 0.08 0.05],...
         'Units','normalized','Callback','sdingra','String','Sd');
uicontrol(inefig,'Style','Pushbutton','Position',[0.204 0.15 0.08 0.05],...
         'Units','normalized','Callback','saingra','String','Sa');
uicontrol(inefig,'Style','Pushbutton','Position',[0.308 0.15 0.08 0.05],...
         'Units','normalized','Callback','ruingra','String','Ru');
uicontrol(inefig,'Style','Pushbutton','Position',[0.412 0.15 0.08 0.05],...
         'Units','normalized','Callback','heingra','String','He');
uicontrol(inefig,'Style','Pushbutton','Position',[0.516 0.15 0.08 0.05],...
         'Units','normalized','Callback','paingra','String','P&A');
uicontrol(inefig,'Style','Pushbutton','Position',[0.62 0.15 0.08 0.05],...
         'Units','normalized','Callback','rdingra','String','Rd');


Uiinegraf    = uicontrol(inefig,'Style','edit','Position',[0.90 0.62 0.08 0.05],...
               'Units','normalized','Callback','inepar',...
               'String','001');
Uiinedt  = uicontrol(inefig,'Style','edit','Position',[0.90 0.58 0.08 0.05],...
               'Units','normalized','Callback','inepar',...
               'String','0.05');
UiNNine  = uicontrol(inefig,'Style','edit','Position',[0.90 0.54 0.08 0.05],...
               'Units','normalized','Callback','inepar',...
               'String','20');
UiineXi      = uicontrol(inefig,'Style','edit','Position',[0.90 0.50 0.08 0.05],...
               'Units','normalized','Callback','inepar',...
               'String','0.05');
UiineBeta    = uicontrol(inefig,'Style','edit','Position',[0.90 0.46 0.08 0.05],...
               'Units','normalized','Callback','inepar',...
               'String','0.15');
UiineUmon    = uicontrol(inefig,'Style','edit','Position',[0.90 0.42 0.08 0.05],...
               'Units','normalized','Callback','inepar',...
               'String','020');
UiineAmax    = uicontrol(inefig,'Style','edit','Position',[0.90 0.38 0.08 0.05],...
               'Units','normalized','Callback','inepar',...
               'String','0000');
UiineAmin    = uicontrol(inefig,'Style','edit','Position',[0.90 0.34 0.08 0.05],...
               'Units','normalized','Callback','inepar',...
               'String','0000');
UiineTmax    = uicontrol(inefig,'Style','edit','Position',[0.90 0.30 0.08 0.05],...
               'Units','normalized','Callback','inepar',...
               'String','0000');
UiineTmin    = uicontrol(inefig,'Style','edit','Position',[0.90 0.26 0.08 0.05],...
               'Units','normalized','Callback','inepar',...
               'String','0000');