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



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%Funcion para graficar los resultados%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%-------------------------------------------------------------
function[qq]=graficos(npis,hpis,UI,VV,VVV)

for i=1:npis
    X(1,i)=0;
    for j=2:npis+1
        X(j,i)=UI(j-1,i);
    end
end

Y(1)=0
for i=2:npis+1
    Y(i)=Y(i-1)+hpis(i-1);
end

figure (1)
subplot(5,2,1), plot(X(:,1),Y)
Title('desplazamientos modo 1')
xlabel('desplazamiento en mts')
ylabel('nivel')
subplot(5,2,2), plot(X(:,2),Y)
Title('desplazamientos modo 2')
xlabel('desplazamiento en mts')
ylabel('nivel')
subplot(5,2,3), plot(X(:,3),Y)
Title('desplazamientos modo 3')
xlabel('desplazamiento en mts')
ylabel('nivel')
subplot(5,2,4), plot(X(:,4),Y)
Title('desplazamientos modo 4')
xlabel('desplazamiento en mts')
ylabel('nivel')
subplot(5,2,5), plot(X(:,5),Y)
Title('desplazamientos modo 5')
xlabel('desplazamiento en mts')
ylabel('nivel')
subplot(5,2,6), plot(X(:,6),Y)
Title('desplazamientos modo 6')
xlabel('desplazamiento en mts')
ylabel('nivel')
subplot(5,2,7), plot(X(:,7),Y)
Title('desplazamientos modo 7')
xlabel('desplazamiento en mts')
ylabel('nivel')
subplot(5,2,8), plot(X(:,8),Y)
Title('desplazamientos modo 8')
xlabel('desplazamiento en mts')
ylabel('nivel')
subplot(5,2,9), plot(X(:,9),Y)
Title('desplazamientos modo 9')
xlabel('desplazamiento en mts')
ylabel('nivel')
subplot(5,2,10), plot(X(:,10),Y)
Title('desplazamientos modo 10')
xlabel('desplazamiento en mts')
ylabel('nivel')
qq=1;
pause
close all