fid = fopen (file);
[y(1), count] = fscanf (fid, '%g,', 1);
k = 1;
while count == 1
  k = k + 1;
  [y(k), count] = fscanf (fid, '%g,', 1);
end;
fclose(fid);
