simula.m

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

function simula

global Simnombre;
global Simdeltat;
global SimAmax;
global SimFc;
global SimFm;
global SimS1;
global SimS2;
global SimS3;
global SimtA1;
global SimtA2;
global SimtAf;
global SimNA;
global SimPA;
global SimtF1i;
global SimtF1f;
global SimtF2i;
global SimtF2f;
global UiSimnombre;
global UiSimdeltat;
global UiSimAmax;
global UiSimFc;
global UiSimFm;
global UiSimS1;
global UiSimS2;
global UiSimS3;
global UiSimtA1;
global UiSimtA2;
global UiSimtAf;
global UiSimNA;
global UiSimPA;
global UiSimtF1i;
global UiSimtF1f;
global UiSimtF2i;
global UiSimtF2f;
global fileaxes;

filefig=figure('NumberTitle','off','Name','Simulaci髇 de Sismos');
axes('Visible','off');

text('Position',[0.05 1.02],'Units','normalized','Color','w','String','Nombre de la se馻l         ');
text('Position',[0.05 0.97],'Units','normalized','Color','w','String','Delta de tiempo (seg)      ');
text('Position',[0.05 0.92],'Units','normalized','Color','w','String','Aceleraci髇 m醲ima (%g)    ');

text('Position',[0.25 0.87],'Units','normalized','Color','y','String','Definici髇 Espectro de Fourier');

text('Position',[0.05 0.82],'Units','normalized','Color','w','String','Frecuencia de esquina Fc (Hz)');
text('Position',[0.05 0.77],'Units','normalized','Color','w','String','Frecuencia de corte Fm (Hz)  ');
text('Position',[0.05 0.72],'Units','normalized','Color','w','String','Pendiente rama inicial S1    ');
text('Position',[0.05 0.67],'Units','normalized','Color','w','String','Pendiente rama intermedia S2    ');
text('Position',[0.05 0.62],'Units','normalized','Color','w','String','Pendiente rama final S3    ');

text('Position',[0.25 0.57],'Units','normalized','Color','y','String','Modulaci髇 de la Amplitud');

text('Position',[0.05 0.52],'Units','normalized','Color','w','String','Ntiempo final rama ascendente Nt1 ');
text('Position',[0.05 0.47],'Units','normalized','Color','w','String','Ntiempo inicial rama descendente Nt2 ');
text('Position',[0.05 0.42],'Units','normalized','Color','w','String','Ntiempo final Ntf            ');
text('Position',[0.05 0.37],'Units','normalized','Color','w','String','Potencia rama ascendente n ');
text('Position',[0.05 0.32],'Units','normalized','Color','w','String','Amplitud tiempo final (%) p');

text('Position',[0.25 0.27],'Units','normalized','Color','y','String','Modulaci髇 de la Frecuencia');

text('Position',[0.05 0.22],'Units','normalized','Color','w','String','Tiempo x primera rama (%) t1x');
text('Position',[0.05 0.17],'Units','normalized','Color','w','String','Tiempo y primera rama (%) t1y');
text('Position',[0.05 0.12],'Units','normalized','Color','w','String','Tiempo x segunda rama (%) t2x');
text('Position',[0.05 0.07],'Units','normalized','Color','w','String','Tiempo y segunda rama (%) t2y');


UiSimnombre= uicontrol(filefig,'Style','edit','Position',[0.70 0.90 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(Simnombre));
UiSimdeltat=uicontrol(filefig,'Style','edit','Position',[0.70 0.86 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(Simdeltat));
UiSimAmax  = uicontrol(filefig,'Style','edit','Position',[0.70 0.82 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(SimAmax));

UiSimFc = uicontrol(filefig,'Style','edit','Position',[0.70 0.74 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(SimFc));
UiSimFm = uicontrol(filefig,'Style','edit','Position',[0.70 0.70 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(SimFm));
UiSimS1 = uicontrol(filefig,'Style','edit','Position',[0.70 0.66 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(SimS1));
UiSimS2 = uicontrol(filefig,'Style','edit','Position',[0.70 0.62 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(SimS2));
UiSimS3 = uicontrol(filefig,'Style','edit','Position',[0.70 0.58 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(SimS3));

UiSimtA1= uicontrol(filefig,'Style','edit','Position',[0.70 0.50 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(SimtA1));
UiSimtA2= uicontrol(filefig,'Style','edit','Position',[0.70 0.46 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(SimtA2));
UiSimtAf= uicontrol(filefig,'Style','edit','Position',[0.70 0.42 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(SimtAf));
UiSimNA = uicontrol(filefig,'Style','edit','Position',[0.70 0.38 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(SimNA));
UiSimPA = uicontrol(filefig,'Style','edit','Position',[0.70 0.34 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(SimPA));

UiSimtF1i= uicontrol(filefig,'Style','edit','Position',[0.70 0.26 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(SimtF1i));
UiSimtF1f= uicontrol(filefig,'Style','edit','Position',[0.70 0.22 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(SimtF1f));
UiSimtF2i= uicontrol(filefig,'Style','edit','Position',[0.70 0.18 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(SimtF2i));
UiSimtF2f= uicontrol(filefig,'Style','edit','Position',[0.70 0.14 0.20 0.05],...
          'Units','normalized','Callback','simupar',...
          'String',num2str(SimtF2f));

uicontrol(filefig,'Style','Pushbutton','Position',[0.25 0.02 0.15 0.05],...
         'Units','normalized','Callback','simucal','String','simular');
uicontrol(filefig,'Style','Pushbutton','Position',[0.65 0.02 0.15 0.05],...
         'Units','normalized','Callback','cerrar','String','cerrar');

fileaxes =  axes('Position',[0.38 0.10 0.6 0.05],'Visible','off');