% FUNCIÓN MAC
[fil,col]=size(modoauxsin);
for i=1:1:col
for j=1:1:col
MAC(i,j)=(abs(transpose(conj(modoauxsin(:,i)))*modoauxcon(:,j)))^2/(abs(transpose(conj(modoauxsin(:,i)))*modoauxsin(:,i))*abs(transpose(conj(modoauxcon(:,j)))*modoauxcon(:,j)));
end
end
MAC
contour (MAC, 'DisplayName', 'MAC2', 'ZDataSource', 'MAC2'); figure(gcf)
title('Representación de la matriz MAC')
xlabel('Modo sin daño');ylabel('Modo dañado');
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
