clc
close all
clear all
A=-1*[-j*2.939e-5 -j*4.384e-5 -j*4.33308e-5 -j*3.0992e-5]*(-j*2.9671e+5);
B=-1*[j*1.7301e-5 -j*0.49824e-5 -j*1.2065e-5 -j*1.3104e-5]*(-j*1.8435e+6);
C=-1*[-j*8.9371e-7 j*0.30452e-5 -j*8.4088e-7 -j*7.0633e-6]*(-j*1.3167e+07);
D=-1*[-j*1.2757e-6 j*0.99325e-5 -j*1.9888e-5 j*1.8248e-5]*(-j*4.2807e+06);
% A=-1*[-2.939e-5 -4.384e-5 -4.33308e-5 -3.0992e-5];
% B=-1*[1.7301e-5 -0.49824e-5 -1.2065e-5 -1.3104e-5];
% C=-1*[-8.9371e-7 0.30452e-5 -8.4088e-7 -7.0633e-6];
% D=-1*[-1.2757e-6 0.99325e-5 -1.9888e-5 1.8248e-5];
x=[1 2 3 4]
freq=[12.44 27 41.15 56.1]
figure(1)
plot((A))
hold on
% plot(A2)
plot((B))
hold on
plot((C))
hold on
plot((D))
title('Mode Shapes using residues')
ylabel('Magnitude')
xlabel('Meassurement points')
legend('12.44 Hz','27 Hz','41.15 Hz','56.1 Hz')