archi.m

来自「德国人开发的地震处理分析软件」· M 代码 · 共 67 行

function archi

close;

global fileaxes;
global linutilant;
global deltatant;
global factorant;
global decimant;
global nombre;
global ruta;
global lineas;
global delta;
global factor;
global decima
global Uigraflin;
global Uigrafdelt;
global Uigrafgan;
global Uigrafdec;
global directorio;

cd (directorio);

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

[nombre,ruta]=uigetfile('*.*','Lectura de archivos',100,100);
directorio=ruta(1:length(ruta)-1);

lineas    = linutilant;
delta     = deltatant;
factor    = factorant;
decima    = decimant;

text('Position',[0.05 0.72],'Units','normalized','Color','w','String','Nombre del Archivo        ');
text('Position',[0.50 0.72],'Units','normalized','Color','g','String',[ruta,nombre]);
text('Position',[0.05 0.57],'Units','normalized','Color','w','String','N鷐ero de lineas in鷗iles ');
text('Position',[0.05 0.52],'Units','normalized','Color','w','String','Delta de tiempo           ');
text('Position',[0.05 0.47],'Units','normalized','Color','w','String','Factor multiplicador      ');
text('Position',[0.05 0.42],'Units','normalized','Color','w','String','Factor de decimaci髇      ');
text('Position',[0.25 0.90],'Units','normalized','Color','y','String','LECTURA DE ARCHIVOS');

Uigraflin = uicontrol(filefig,'Style','edit','Position',[0.70 0.54 0.20 0.05],...
          'Units','normalized','Callback','leepar',...
          'String',num2str(lineas));
Uigrafdelt= uicontrol(filefig,'Style','edit','Position',[0.70 0.50 0.20 0.05],...
          'Units','normalized','Callback','leepar',...
          'String',num2str(delta));
Uigrafgan = uicontrol(filefig,'Style','edit','Position',[0.70 0.46 0.20 0.05],...
          'Units','normalized','Callback','leepar',...
          'String',num2str(factor));
Uigrafdec = uicontrol(filefig,'Style','edit','Position',[0.70 0.42 0.20 0.05],...
          'Units','normalized','Callback','leepar',...
          'String',num2str(decima));

uicontrol(filefig,'Style','Pushbutton','Position',[0.25 0.10 0.15 0.05],...
         'Units','normalized','Callback','leer','String','continuar');
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');