M=[40 0
0 50];
K=[35 -20
-20 20];
[F,L]=eig(K,M)
w=L.^0.5
UNOS=[1
1];
FPM=F'*M*UNOS;
CUA=FPM.^2;
SC=FPM'*FPM;
PPM=CUA*1/SC

Embed on website

To embed this project on your website, copy the following code and paste it into your website's HTML: