Ejercicio 14

figure(1)
A = imread('WindTunnel.jpg', 'jpeg');
image(A)
figure(2)
subplot(1,2,1)
r= A(200, :, 1);
[alto,ancho]=size(A);
B=A(:,:)./(ancho/3);
plot(B,'g')
subplot(1,2,2)
plot(r, 'r');