%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%Programa de analisis modal de edificios %
%Calcula auto valores y auto vectores    %
%Para la vibracion libre de la estructura%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


% funcion modos
function[FI,OM]=modos(npis,K,M);

[FI,MAV]=eig(K,M);
for i=1:npis
    OM(i)=MAV(i,i);
end
sprintf('Matriz modal')
MATMOD=FI
OMECUA=OM
%Generacion de archivo de datos
fid = fopen('fi.xls','w');
fprintf(fid,'%f \n',npis);

fprintf(fid,'%f %f %f %f %f %f %f %f %f %f \n',FI');

status = fclose(fid);

pause