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