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



%funcion que calcula los valores maximos combinados
%metodo SRSS

function[VV,FF]=srss(npis,F,V)

clc
%-----------------------------------------------------
%calculo de los cortantes de piso
for i=1:npis
    sum=0;
    for j=1:npis
        pro=V(i,j)*V(i,j);
        sum=sum+pro;
    end
    %cortante de piso
    VV(i)=sqrt(sum);
end

%-----------------------------------------------------
%calculo de las fuerzas estaticas equivalentes de piso

FF(npis)=VV(npis);
for i=npis-1:-1:1
    FF(i)=VV(i)-VV(i+1);
end

sprintf('Fuerzas de piso, metodo SRSS, en Newtons')
FF'
pause

%-----------------------------------------------------
%calculo de las fuerzas estaticas equivalentes de piso con torsion estatica
%equivalente

FFTE=1.3*FF';
sprintf('Fuerzas de piso, metodo SRSS, con torsion estatica equivalente, en Newtons')
FFTE
pause