IMAGEN360 1

UNIDAD DE APRENDIZAJE:
PDI


TRABAJO:
TAREA IMAGEN 360º

INTEGRANTES:
Casas Andrade Luis Pedro
Cubas García Diana Belén
García de Hoyos Fryda Daniela
Amel Rodríguez

FECHA DE ENTREGA:
México, D.F a 17 de Septiembre de 2014














Fotografía




Imagen del circuito

Diagrama de visión
Para la obtención del ángulo que maneja la cámara realizamos diferentes mediciones para llegar a unpromedio entre tantas mediciones.
Como primer medición, se colocó la cámara a dos metros de una superficie clara donde pudimos hacer marcas sobre el punto límite en la visión de la cámara.

Posteriormente se realizaron mediciones con la distancia de 1.5 metros, 1 metro y.5 metros.
El diagrama que se muestra en la siguiente figura muestra tentativamente el campo de visión de la cámara, en el diagrama, elcírculo es la cámara y la línea vertical delgada es la pared donde se hicieron las marcas.
La línea horizontal representa la distancia que se fue variando.
Se procedió a medir la distancia del punto medio entre las marcas y por teorema de Pitágoras obtener el ángulo.
A ese ángulo se le multiplicó por dos para sacar el ángulo de visión. A partir de lo cual se obtuvo que el ángulo es de 42°aproximadamente.


Esquema de la cámara

























Esquema del circuito



Ya que la cama tiene un rango de 45 grados se determinó que el motor sacaría las fotos cada 45 grados. Como se muestra en la tabla el número de la salida en paralelo es la señal que el motor necesita para moverse 45 grados.
Tabla de datos de posición del motor
Salida cable paralelo
TA
TB
TC
TD
P
7
1
0
0
0

3
1
10
0

11
0
1
0
0

9
0
1
1
0

13
0
0
1
0

12
0
0
1
1

1
0
0
0
1

6
1
0
0
1



Programa

De toma de fotografías
clc;
clearall;
closeall;
video1=videoinput('winvideo',1,'YuY2_640x480');
set(video1, 'ReturnedColorSpace', 'rgb');
preview(video1);
pause
dio=digitalio('parallel','lpt1'); %crea el objeto dio de tipo digital input output
Port0=addline(dio,0:7,0,'out'); %habilita del Pin 2-9 como salidas%%%%%%%%
putvalue(Port0, double(7)); %manda un valor de 7 al puerto
foto=getsnapshot(video1);
numero=num2str(i);
nombre =strcat('imag',numero, '.bmp');
imwirte(foto, nombre) ;
image(foto) ;
pause(1)
%%%%%primera fotografia
%%%%%%%%
putvalue(Port0, double(3)); %manda un valor de 3 al puerto
foto=getsnapshot(video1);
numero=num2str(i);
nombre =strcat('imag',numero, '.bmp');
imwirte(foto,nombre) ;
image(foto) ;
pause(1)
%%%%%segunda fotografia
%%%%%%%%
putvalue(Port0, double(11)); %manda un valor de 11 al puerto
foto=getsnapshot(video1);
numero=num2str(i);
nombre =strcat('imag',numero, '.bmp');
imwirte(foto, nombre) ;
image(foto) ;
pause(1)
%%%%%tercera fotografia
%%%%%%%%
putvalue(Port0, double(9)); %manda un valor de 9 al puerto
foto=getsnapshot(video1);
numero=num2str(i);nombre =strcat('imag',numero, '.bmp');
imwirte(foto, nombre) ;
image(foto) ;
pause(1)
%%%%%cuarta fotografia
%%%%%%%%
putvalue(Port0, double(13)); %manda un valor de 13 al puerto
foto=getsnapshot(video1);
numero=num2str(i);
nombre =strcat('imag',numero, '.bmp');
imwirte(foto, nombre) ;
image(foto) ;
pause(1)
%%%%%quinta fotografia
%%%%%%%%
putvalue(Port0, double(12)); %manda un valor de 12 alpuerto
foto=getsnapshot(video1);
numero=num2str(i);
nombre =strcat('imag',numero, '.bmp');
imwirte(foto, nombre) ;
image(foto) ;
pause(1)
%%%%%sexta fotografia
%%%%%%%%
putvalue(Port0, double(1)); %manda un valor de 1 al puerto
foto=getsnapshot(video1);
numero=num2str(i);
nombre =strcat('imag',numero, '.bmp');
imwirte(foto, nombre) ;
image(foto) ;
pause(1)
%%%%%septimafotografia
%%%%%%%%putvalue(Port0, double(6)); %manda un valor de 6 al puerto
foto=getsnapshot(video1);
numero=num2str(i);
nombre =strcat('imag',numero, '.bmp');
imwirte(foto, nombre) ;
image(foto) ;
pause(1)
%%%%%octava fotografia
delete(video)

putvalue(Port0, double(3)); %manda un valor de 3 al puerto


Imagen 360 grados
clc;
clearall;
closeall;
f1=imread('Penguins.jpg'); % Leer imagen
f2=imread('Desert.jpg');...