Matlab - Crear una imagen en matlab a partir de una original pero destacando algunos elementos con rectángulo

%EL objetivo es que el algoritmo lea la imagen de dimensiones (201,300), la

%divida en tres subimagenes d edimensiones(67,100), y calcule el numero de

%elementos en negro de la subimagen, calcular el area de dichos elementos,

%y quedarse con el elemento/objeto de mayor area. Una vez hecho esto, si

%se cumple la condicion de que el area del objeto elegido es mayor que la

%cuarta parte de la dimension de la subimagen, dicha subimagen cumplira la

%condicion estrella, y nuestro programa (que nos da como salida la imagen

%original ) además deberá de destacar dicha subimagen (pues cumplía la

%condición como se vio), y así con las demas subimagenes.

%Leer la imagen

I=imread('pruebas.jpg');

%pasarla a grises

Im=rgb2gray(I);

%dividirla en subimagenes (en este caso la dividiremos en 3 subimangenes de

%tamaños x1,y1

x1=67;

y1=100;

ancho=1; %variable intermedia

for i=1:3

    largo=1;%variable intermedia

    for k=1:3

        A=Im(largo:x1+largo-1,ancho:y1+ancho-1);

        [Et,Nelem]=bwlabel(B,8);

        b=regionprops(Et,'Area','BoundingBox');

         for i=1:Nelem

            for j=1:4

              limit(i,j)=b(i).BoundingBox(j);

            end

         end

        %Calculo area de calda elemento

        for g=1:Nelem

           area(g)=abs(limit(g,1)-limit(g,3))*abs(limit(g,2)-limit(g,4));

        end

        %Me quedo con la zona de mayor area

        max_area=area(1);

        if(Area_tejido>= (x1*y1)/4)

            %Deberemos de señalar dicha subimagen en la imagen inicila con

            %un rectángulo, de manera que el programa nos de como salida la

            %imagen original con los rectangulos de las subimagenes que si

            %cumplen dicha condiciom

        end

        largo=largo+x1;

    end

    ciclo=ciclo+y1;

end

%Gracias y un saludo