codigo programa para deteccion de letras en una imagen
clear all
close all
clc
img=imread ('C:\disco duro\9Semestre\ramirez\Tarea3 Imagenes\poncho tarea3\U.jpg'); %// Obtiene la imagen
img=255-img; % cambialos valores de la imagen para que quede invertida
bn=rgb2gray(img); % convierte la imagen de rgb a escala de grises
umb=graythresh(bn); % umbral de transformacion requerido para convertir la imagena binaria
bn2=im2bw(bn,umb); % convierte la imagen en binaria
%etiquetar elementos conectados
[L Ne]=bwlabel(bn2); %Ne # de elementos conectados l es un identiicador para cada objetocaracImg= regionprops (L,'all'); % me entrega la característica de cada región detectada en la binarizacion’
%C:\disco duro\9Semestre\ramirez\Tarea3 Imagenes\poncho tarea3\A.jpg
Procesamientoclear all
close all
clc
img=imread ('C:\disco duro\9Semestre\ramirez\Tarea3 Imagenes\poncho tarea3\parafo.jpg'); % Obtiene la imagen
img=255-img; % cambia los valores de la imagen para que quedeinvertida
bn=rgb2gray(img); % convierte la imagen de rgb a escala de grises
umb=graythresh(bn); % umbral de transformacion requerido para convertir la imagen a binaria
bn2=im2bw(bn,umb); %convierte la imagen en binaria
%etiquetar elementos conectados
[L Ne]=bwlabel(bn2); %Ne # de elementos conectados l es un identiicador para cada objeto
caracImg=regionprops (L,'all');
a=0;
e=0;i=0;
o=0;
u=0;
for n=1:Ne %Esta evaluara si la region coincide con los datos y por tanto si es una vocal o no ??
A=caracImg(n,1).Area;
E=caracImg(n,1).Eccentricity;P=caracImg(n,1).Perimeter;
if(A==184 && E==.5613 && P==72.6274)
a=a+1;
end
if(A==185 && E==.3977 && P==75.4558)
e=e+1;
end
if(A==23 && E==.1259&& P==14.8284)
i=i+1;
end
if(A==185 && E==.3463 && P==52.04)
o=o+1;
end
if(A==186 && E==.3906 && P==86.1421)
u=u+1;...
Regístrate para leer el documento completo.