%
% Entrada-salida a y desde archivos
%

f1 = fopen('datos_ejemplo2.txt', 'w');

for i = 1:100
  fprintf(f1, '%6d\n', i);
end

status = fclose(f1);

f2 = fopen('datos_ejemplo2.txt', 'r');

clear v;

npoints = 0;
while (~ feof(f2))
  [x, ndat] = fscanf(f2, '%d', 1);
  if (ndat > 0)
    npoints = npoints + 1;
    v(npoints) = x;
  end
end

status = fclose(f2)

fprintf('El número de datos leidos es %d\n', length(v));

