compo.m

地震资料处理的matlab源码软件包

function compo

global deltat;
global fileaxes;
global nombre;
global compX;
global compY;
global angulo;
global ngraf;
global letras;
global archivo;
global UicompX;
global UicompY;
global Uicompnom;
global UicompAng;

ngraf=[1:length(deltat)];
color=['y' 'g' 'c' 'r' 'b' 'm' 'w' 'k'];
angulo=45;
compX= 1;
compY= 2;
nombre='sismo.dat';

filefig=figure('NumberTitle','off','Name','Composici髇 de archivos');
axes('Visible','off');

for i=ngraf;
    text('Position',[0.15 0.9-0.05*(i-1)],'Units','normalized','Color',color(i),'String',[num2str(i) '   ' archivo(i,1:letras(i))]);
end;

text('Position',[0.05 0.57],'Units','normalized','Color','w','String','Se馻l en X                ');
text('Position',[0.05 0.52],'Units','normalized','Color','w','String','Se馻l en Y                ');
text('Position',[0.05 0.47],'Units','normalized','Color','w','String','羘gulo                    ');
text('Position',[0.05 0.42],'Units','normalized','Color','w','String','Se馻l compuesta (nombre)  ');
text('Position',[0.25 1.00],'Units','normalized','Color','y','String','COMPOSICI覰 DE ARCHIVOS');

UicompX = uicontrol(filefig,'Style','edit','Position',[0.70 0.54 0.20 0.05],...
          'Units','normalized','Callback','comppar',...
          'String',num2str(compX));
UicompY = uicontrol(filefig,'Style','edit','Position',[0.70 0.50 0.20 0.05],...
          'Units','normalized','Callback','comppar',...
          'String',num2str(compY));
UicompAng = uicontrol(filefig,'Style','edit','Position',[0.70 0.46 0.20 0.05],...
          'Units','normalized','Callback','comppar',...
          'String',num2str(angulo));
Uicompnom = uicontrol(filefig,'Style','edit','Position',[0.70 0.42 0.20 0.05],...
          'Units','normalized','Callback','comppar',...
          'String',nombre);

uicontrol(filefig,'Style','Pushbutton','Position',[0.25 0.10 0.15 0.05],...
         'Units','normalized','Callback','compcal','String','componer');
uicontrol(filefig,'Style','Pushbutton','Position',[0.65 0.10 0.15 0.05],...
         'Units','normalized','Callback','cerrar','String','cerrar');

fileaxes =  axes('Position',[0.16 0.3 0.6 0.05],'Visible','off');