Estou trabalhando no reconhecimento de caracteres manuscritos a partir da imagem de entrada. Aqui está o código que extrai caracteres da imagem de entrada

  %% Label connected components
  [L Ne]=bwlabel(Ifill);
  disp(Ne);
  %% Measure properties of image regions
  propied=regionprops(L,'BoundingBox');
  hold on

  %% Plot Bounding Box
  for n=1:size(propied,1)
  rectangle('Position',propied(n).BoundingBox,'EdgeColor','g','LineWidth',2)
  end
  hold off

  %% Characters being Extracted
  figure
  for n=1:Ne
  [r,c] = find(L==n);
  n1=imagen(min(r):max(r),min(c):max(c));
  imshow(~n1);
  end

Mas esse código está extraindo caracteres aleatoriamente da imagem de entrada. Alguém pode me dizer como extrair os caracteres linha por linha?

Código original