nfv

function [posicion,vector,pos,tipo] = ReadFile(posicion,tipo)

archivo = 'paths.dat';
[arch,error] = fopen(archivo,'r');

if (arch > -1)

vector = fscanf(arch,'%lf');
res = fclose(arch);

else
    disp('No se puede abrir el archivo');
end

a=size(vector);
b=a(1)/3;
cont=0;

for(i=1+(a(1)/3)*2:a(1))
    if(vector(i)==0)
        cont=cont+1;
        pos(cont)=i;
    end
end