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});