pdimagenes

ANEXO 1

Programa Ejemplo - Imágenes:

clear all;
close all;
clc;

%abre una imagen RGB y la coloca en una matriz tridimensional
%(3 matrices).
I=imread('c:\piedra.jpg','jpg');figure(1)
imshow(uint8(I)); %Visualiza la imagen en la figura 1.
impixelinfo;

Igray=rgb2gray(I); %Convierte a escala de grises 8bits/pixel.

figure(2)
imshow(uint8(Igray));%Visualiza la imagen convertida en la figura 3.
impixelinfo;

[M,N]=size(Igray); % determina el tamaño de la imagen.

RR=I(:,:,1); %extrae la matriz componente R
GG=I(:,:,2); %extrae lamatriz componente G
BB=I(:,:,3); %extrae la matriz componente B

% crea una matriz tridimensional formada solo por parte roja.

R(:,:,1)=RR;
R(:,:,2)=zeros(M,N);
R(:,:,3)=zeros(M,N);% crea una matriz tridimensional formada solo por parte verde.
G(:,:,1)=zeros(M,N);
G(:,:,2)=GG;
G(:,:,3)=zeros(M,N);

% crea una matriz tridimensional formada solo por parte azul.B(:,:,1)=zeros(M,N);
B(:,:,2)=zeros(M,N);
B(:,:,3)=BB;

% Visualiza las 3 imágenes creadas
figure(3)
subplot(1,3,1)
imshow(uint8(R));
impixelinfo;

subplot(1,3,2)
imshow(uint8(G));
impixelinfo;subplot(1,3,3)
imshow(uint8(B));
impixelinfo;

%%%Recuantizacion de imagenes en esacala de grises%%%%%

r=3; % nuevo r (8 tonalidades de gris).

%Para hacer procesamiento, los valores delas imágenes tiene que %ser convertidas a datos tipo double.

Igray=double(Igray);

fe=max(max(Igray));

Irecuan=round(Igray*((2^r)-1)/fe);
Irecuan=round(Irecuan*fe/((2^r)-1));

figure(4)imshow(uint8(Irecuan));
impixelinfo;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%







































ANEXO 2

Programa Ejemplo – Detección deobjetos:

clear all;
close all;
clc;

%abre una imagen RGB y la coloca en una matriz tridimensional
%(3 matrices).

I=imread('objetos2.bmp','bmp');

Igray=rgb2gray(I); %Convierte la...