fourie.m

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

function fourier

global Uifftgraf;
global UifftN;
global Uifftfs;
global UifftAmax;
global UifftAmin;
global UifftFmax;
global UifftFmin;
global Uiffttipo;
global fftaxes;
global fftcordaxes;
global fftgraf;
global fftN;
global fftfs;
global fftAmax;
global fftAmin;
global fftFmax;
global fftFmin;
global fftfig;

fftfig=figure('NumberTitle','off','Name','Espectros de Fourier');
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','No Ptos:');
text('Position',[0.80 0.52],'Units','normalized','Color','r','String','Fact. Suav:');
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','Art[X]Log[]');

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

uicontrol(fftfig,'Style','Pushbutton','Position',[0.45 0.07 0.12 0.05],...
         'Units','normalized','Callback','cerrar','String','cerrar');
uicontrol(fftfig,'Style','Pushbutton','Position',[0.45 0.01 0.12 0.05],...
         'Units','normalized','Callback','fftcord','String','Coord');
uicontrol(fftfig,'Style','Pushbutton','Position',[0.20 0.07 0.12 0.05],...
         'Units','normalized','Callback','fftcal','String','calc');
uicontrol(fftfig,'Style','Pushbutton','Position',[0.20 0.01 0.12 0.05],...
         'Units','normalized','Callback','fftgra','String','graf');
uicontrol(fftfig,'Style','Pushbutton','Position',[0.80 0.80 0.1 0.05],...
         'Units','normalized','Callback','bmp','String','BMP');
uicontrol(fftfig,'Style','Pushbutton','Position',[0.80 0.75 0.1 0.05],...
         'Units','normalized','Callback','fftascii','String','ASCII');
uicontrol(fftfig,'Style','Pushbutton','Position',[0.80 0.70 0.1 0.05],...
         'Units','normalized','Callback','vergraf','String','VGRAF');

fftgraf = 1;
fftN    = 8192;
fftfs   = 10;
fftAmin = 0;
fftAmax = 0;
fftFmin = 0;
fftFmax = 0;

Uifftgraf = uicontrol(fftfig,'Style','edit','Position',[0.90 0.58 0.08 0.05],...
          'Units','normalized','Callback','fftpar',...
          'String','001');
UifftN  = uicontrol(fftfig,'Style','edit','Position',[0.90 0.54 0.08 0.05],...
          'Units','normalized','Callback','fftpar',...
          'String','8192');
Uifftfs = uicontrol(fftfig,'Style','edit','Position',[0.90 0.50 0.08 0.05],...
          'Units','normalized','Callback','fftpar',...
          'String','010');
UifftAmax = uicontrol(fftfig,'Style','edit','Position',[0.90 0.46 0.08 0.05],...
          'Units','normalized','Callback','fftpar',...
          'String','000');
UifftAmin = uicontrol(fftfig,'Style','edit','Position',[0.90 0.42 0.08 0.05],...
          'Units','normalized','Callback','fftpar',...
          'String','000');
UifftFmax = uicontrol(fftfig,'Style','edit','Position',[0.90 0.38 0.08 0.05],...
          'Units','normalized','Callback','fftpar',...
          'String','000');
UifftFmin = uicontrol(fftfig,'Style','edit','Position',[0.90 0.34 0.08 0.05],...
          'Units','normalized','Callback','fftpar',...
          'String','000');
Uiffttipo = uicontrol(fftfig,'Style','radiobutton','Position',[0.90 0.30 0.08 0.05],...
               'Units','normalized','Callback','fftpar');