filt.m

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

function filt

global UifilAmp;
global Uifilfci;
global Uifilfcf;
global UifilNest;
global UifilestN;
global Uifilespe;
global Uifildens;
global Uifilvelo;
global Uifilamor;
global UifilSenX;
global UifilSenY;
global UifiltipoF;
global UifiltipoS;
global UifiltipoG;
global UifiltipoA;
global UifilAmax;
global UifilAmin;
global UifilFmax;
global UifilFmin;
global filaxes;
global filcordaxes;
global filtextaxes;
global filfig;
global Ampfil;
global fcifil;
global fcffil;
global Nestfil;
global estNfil;
global espefil;
global densfil;
global velofil;
global amorfil;
global SenXfil;
global SenYfil;
global filAmin;
global filAmax;
global filFmin;
global filFmax;

filfig=figure('NumberTitle','off','Name','Filtros');
axes('Visible','off');

text('Position',[0.80 0.82],'Units','normalized','Color','g','String','Amp:       ');
text('Position',[0.80 0.77],'Units','normalized','Color','g','String','fci (Hz):  ');
text('Position',[0.80 0.72],'Units','normalized','Color','g','String','fcf (Hz):  ');
text('Position',[0.80 0.67],'Units','normalized','Color','g','String','No est:    ');
text('Position',[0.80 0.62],'Units','normalized','Color','g','String','Est No:    ');
text('Position',[0.80 0.57],'Units','normalized','Color','g','String','Esp (m):   ');
text('Position',[0.80 0.52],'Units','normalized','Color','g','String','Den (t/m3):');
text('Position',[0.80 0.47],'Units','normalized','Color','g','String','Vel (m/s): ');
text('Position',[0.80 0.42],'Units','normalized','Color','g','String','Amort (%): ');
text('Position',[0.80 0.37],'Units','normalized','Color','g','String','GrafX (No):');
text('Position',[0.80 0.32],'Units','normalized','Color','g','String','Amax:      ');
text('Position',[0.80 0.27],'Units','normalized','Color','g','String','Amin:      ');
text('Position',[0.80 0.22],'Units','normalized','Color','g','String','Fmax:      ');
text('Position',[0.80 0.17],'Units','normalized','Color','g','String','Fmin:      ');
text('Position',[0.55 0.095],'Units','normalized','Color','g','String','GrafY (nom):      ');
text('Position',[0.55 0.045],'Units','normalized','Color','g','String','Tipo ([]11 [X]00):');
text('Position',[0.55 -0.005],'Units','normalized','Color','g','String','Tipo ([]RS [X]SR):');
text('Position',[0.55 -0.055],'Units','normalized','Color','g','String','Tipo ([]LI [X]NL):');
text('Position',[0.55 -0.105],'Units','normalized','Color','g','String','Log[]Art[X]');

filtextaxes = axes('Position',[0.05 0.04 0.40 0.05], 'Visible', 'off');
filcordaxes = axes('Position',[0.1 0.18 0.38 0.05], 'Visible', 'off');
filaxes =  axes('Position',[0.1 0.3 0.6 0.55],'Box','on');

uicontrol(filfig,'Style','Pushbutton','Position',[0.20 0.07 0.12 0.05],...
         'Units','normalized','Callback','cerrar','String','cerrar');
uicontrol(filfig,'Style','Pushbutton','Position',[0.20 0.01 0.12 0.05],...
         'Units','normalized','Callback','filcord','String','Coord');
uicontrol(filfig,'Style','Pushbutton','Position',[0.05 0.07 0.12 0.05],...
         'Units','normalized','Callback','filcalc','String','calc');
uicontrol(filfig,'Style','Pushbutton','Position',[0.05 0.01 0.12 0.05],...
         'Units','normalized','Callback','filgra','String','graf');
uicontrol(filfig,'Style','Pushbutton','Position',[0.35 0.07 0.15 0.05],...
         'Units','normalized','Callback','filfile','String','archivo par');
uicontrol(filfig,'Style','Pushbutton','Position',[0.80 0.90 0.1 0.05],...
         'Units','normalized','Callback','bmp','String','BMP');
uicontrol(filfig,'Style','Pushbutton','Position',[0.80 0.85 0.1 0.05],...
         'Units','normalized','Callback','filascii','String','ASCII');
uicontrol(filfig,'Style','Pushbutton','Position',[0.80 0.80 0.1 0.05],...
         'Units','normalized','Callback','vergraf','String','VGRAF');

Ampfil=1.0;
fcifil=0;
fcffil=100;
Nestfil=1;
estNfil=1;
espefil=10;
densfil=1.5;
velofil=200;
amorfil=5.0;
SenXfil=1;
SenYfil='sismo.dat';
filAmin = 0;
filAmax = 0;
filFmin = 0;
filFmax = 0;

UifilAmp    = uicontrol(filfig,'Style','edit','Position',[0.90 0.74 0.08 0.05],...
               'Units','normalized','Callback','filpar',...
               'String','1.0');
Uifilfci    = uicontrol(filfig,'Style','edit','Position',[0.90 0.70 0.08 0.05],...
               'Units','normalized','Callback','filpar',...
               'String','0');
Uifilfcf    = uicontrol(filfig,'Style','edit','Position',[0.90 0.66 0.08 0.05],...
               'Units','normalized','Callback','filpar',...
               'String','100');
UifilNest    = uicontrol(filfig,'Style','edit','Position',[0.90 0.62 0.08 0.05],...
               'Units','normalized','Callback','filpar',...
               'String','1');
UifilestN = uicontrol(filfig,'Style','edit','Position',[0.90 0.58 0.08 0.05],...
               'Units','normalized','Callback','filpar',...
               'String','1');
Uifilespe = uicontrol(filfig,'Style','edit','Position',[0.90 0.54 0.08 0.05],...
               'Units','normalized','Callback','filpar',...
               'String','10');
Uifildens     = uicontrol(filfig,'Style','edit','Position',[0.90 0.50 0.08 0.05],...
               'Units','normalized','Callback','filpar',...
               'String','1.5');
Uifilvelo    = uicontrol(filfig,'Style','edit','Position',[0.90 0.46 0.08 0.05],...
               'Units','normalized','Callback','filpar',...
               'String','200');
Uifilamor    = uicontrol(filfig,'Style','edit','Position',[0.90 0.42 0.08 0.05],...
               'Units','normalized','Callback','filpar',...
               'String','5.0');
UifilSenX    = uicontrol(filfig,'Style','edit','Position',[0.90 0.38 0.08 0.05],...
               'Units','normalized','Callback','filpar',...
               'String','1');
UifilAmax    = uicontrol(filfig,'Style','edit','Position',[0.90 0.34 0.08 0.05],...
               'Units','normalized','Callback','filpar',...
               'String','0000');
UifilAmin    = uicontrol(filfig,'Style','edit','Position',[0.90 0.30 0.08 0.05],...
               'Units','normalized','Callback','filpar',...
               'String','0000');
UifilFmax    = uicontrol(filfig,'Style','edit','Position',[0.90 0.26 0.08 0.05],...
               'Units','normalized','Callback','filpar',...
               'String','0000');
UifilFmin    = uicontrol(filfig,'Style','edit','Position',[0.90 0.22 0.08 0.05],...
               'Units','normalized','Callback','filpar',...
               'String','0000');
UifilSenY= uicontrol(filfig,'Style','edit','Position',[0.80 0.16 0.20 0.05],...
          'Units','normalized','Callback','filpar',...
          'String',num2str(SenYfil));
UifiltipoF= uicontrol(filfig,'Style','radiobutton','Position',[0.80 0.12 0.05 0.05],...
          'Units','normalized','Callback','filpar');
UifiltipoS= uicontrol(filfig,'Style','radiobutton','Position',[0.80 0.08 0.05 0.05],...
          'Units','normalized','Callback','filpar');
UifiltipoA= uicontrol(filfig,'Style','radiobutton','Position',[0.80 0.04 0.05 0.05],...
          'Units','normalized','Callback','filpar');
UifiltipoG= uicontrol(filfig,'Style','radiobutton','Position',[0.80 0.00 0.05 0.05],...
          'Units','normalized','Callback','filpar');