princi.m

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

function princi

global numero;
global deltat;
global archivo;
global letras;
global ngraf;
global fileaxes;
global compX;
global compY;
global compZ;
global Tini;
global Tfin;
global UicompX;
global UicompY;
global UicompZ;
global UiTini;
global UiTfin;

ngraf=[1:length(deltat)];
color=['y' 'g' 'c' 'r' 'b' 'm' 'w' 'k'];
compX= 1;
compY= 2;
compZ= 3;
Tini=0;
Tfin=10;
Tfin=(numero(compX+1)-numero(compX)-1)*deltat(compX);

filefig=figure('NumberTitle','off','Name','Ejes principales de la se馻l');
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','Se馻l en Z                ');
text('Position',[0.05 0.42],'Units','normalized','Color','w','String','Tiempo inicial            ');
text('Position',[0.05 0.37],'Units','normalized','Color','w','String','Tiempo final              ');
text('Position',[0.55 0.57],'Units','normalized','Color','w','String','Angulo hztal.             ');
text('Position',[0.55 0.52],'Units','normalized','Color','w','String','Angulo vert.              ');
text('Position',[0.20 1.00],'Units','normalized','Color','y','String','EJES PRINCIPALES DE LA SE袮L');

UicompX = uicontrol(filefig,'Style','edit','Position',[0.35 0.54 0.10 0.05],...
          'Units','normalized','Callback','prinpar',...
          'String',num2str(compX));
UicompY = uicontrol(filefig,'Style','edit','Position',[0.35 0.50 0.10 0.05],...
          'Units','normalized','Callback','prinpar',...
          'String',num2str(compY));
UicompZ = uicontrol(filefig,'Style','edit','Position',[0.35 0.46 0.10 0.05],...
          'Units','normalized','Callback','prinpar',...
          'String',num2str(compZ));
UiTini  = uicontrol(filefig,'Style','edit','Position',[0.35 0.42 0.10 0.05],...
          'Units','normalized','Callback','prinpar',...
          'String',num2str(Tini));
UiTfin  = uicontrol(filefig,'Style','edit','Position',[0.35 0.38 0.10 0.05],...
          'Units','normalized','Callback','prinpar',...
          'String',num2str(Tfin));

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

fileaxes =  axes('Position',[0.75 0.53 0.2 0.2],'Visible','off');