function [duracion,param]=tamanyo(archivo)
fid = fopen(archivo);
principio = textscan(fid,'%c',9);
fclose(fid);
if strcmp(principio{1}(1),'"')
if strcmp(principio{1}(8),'"')
corrupto=0;
separador=principio{1}(9);
else
corrupto=1;
separador=principio{1}(8);
end
else
corrupto=0;
separador=principio{1}(7);
end
fid = fopen(archivo);
if corrupto==0
C = textscan(fid,'%s',300000,'Delimiter','\r');
else
C = textscan(fid,'%q',300000,'Delimiter','\r');
end
fclose(fid);
C=C{1};
[duracion,inutil]=size(C);
duracion=duracion-1;
F(1) = textscan(C{1},'%q',15000,'Delimiter',separador);
[param,inutil]=size(F{1});
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
