function indice = calcula_imagen(punto,padre,num_pared)
% Función que calcula una fuente puntual imagen respecto a una pared para
% un punto transmisor y la almacena en IMAGENES
%
% *(Xt,Yt) Punto
% |
% |(Xq,Yq)
%(X1,Y2)*------*---------------------* (X2,Y2) Pared
% |
% |
% *(Xi,Yi) Imagen
global IMAGENES FACETAS;
[indice ~] = size(IMAGENES); %índice de la última imagen calculada
pared=FACETAS(num_pared,1:4);
Xt = punto(1);
Yt = punto(2);
X1 = pared(1);
Y1 = pared(2);
X2 = pared(3);
Y2 = pared(4);
Xq = X1+(((X2-X1)*(Xt-X1)+(Y2-Y1)*(Yt-Y1))/((X2-X1)^2+(Y2-Y1)^2))*(X2-X1);
Yq = Y1+(((X2-X1)*(Xt-X1)+(Y2-Y1)*(Yt-Y1))/((X2-X1)^2+(Y2-Y1)^2))*(Y2-Y1);
Xi = 2*Xq-Xt;
Yi = 2*Yq-Yt;
indice = indice+1; %Rellenamos la siguiente fila de IMAGENES
IMAGENES(indice,1:4) = [Xi Yi padre num_pared]; % El padre es el punto(su indice) y la faceta es la pared (su indice) respecto a la que se ha calculado
end
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
