102
for j = 1:NA
sum = sum + pti*hi*(j);
end
for i = 1:NA
Fi(i)=pti*hi*(i)/sum*(V_bo-Fa);%Distribuição da força sísmica na altura
Vi(i)=Fi(i) + Fa; %Distribuição da força cortante na altura
end
ViT = Fi(NA); %Cortante no topo (máximo valor do cortante linear)
ViC = Fa; %Cortante constante no edifício
Vx1 = 12.5; Vy1 = 0; %Coordenada do primeiro ponto da direção do terremoto
Vx2 = 23.5; Vy2 = 24; %Coordenada do segundo ponto da direção do terremoto
%% Dados de paineis do edifíco
arquivoW='C:\Users\cesare\Documents\carga
dinamica\matlab\ExemploMuros3.txt';
arquivoP='C:\Users\cesare\Documents\carga
dinamica\matlab\ExemploPortico3.txt';
%% Leitura de dados de entrada para o pórtico
fid = fopen(arquivoP, 'r');
dadosp = textscan(fid, '%d %f %f %d %s %s %s %s %s %s', 'headerlines', 1);
numPorticos = length(dadosp{1}); % obtêm o numero de pórticos
% obtém-se cada coluna do arquivo
IDf = dadosp{1}; %Numero do pórtico
Ef = dadosp{2}; %Módulo de elasticidade do pórtico (Tn/m2)
hf = dadosp{3}; %pé-direito do andar (m)
NC = dadosp{4}; %Número de colunas
%cálculo da matriz do pórticos
Saa = 0; Sab = 0; Sac = 0;
Sbb = 0; Sbc = 0;
Scc = 0;
for i = 1:numPorticos
Xf{i} = cell2mat(textscan(cell2mat(dadosp{5}(i)),'%f;', NC(i) ))';
%vetor de coord x do pórtico i armazenadas na cela i (m)
Yf{i} = cell2mat(textscan(cell2mat(dadosp{6}(i)),'%f;', NC(i) ))';
%vetor de coord y do pórtico i armazenadas na celda i (m)
mf{i} = cell2mat(textscan(cell2mat(dadosp{7}(i)),'%f;', NC(i) ))';
%vetor de larguras das colunas do pórtico i na cela i (m)
nf{i} = cell2mat(textscan(cell2mat(dadosp{8}(i)),'%f;', NC(i) ))';
%vetor de comprimentos das colunas do pórtico i na cela i (m)
mvf{i} = cell2mat(textscan(cell2mat(dadosp{9}(i)),'%f;', NC(i) ))';
%vetor de larguras das vigas do pórtico i na cela i (m)
nvf{i} = cell2mat(textscan(cell2mat(dadosp{10}(i)),'%f;', NC(i) ))';
%vetor de comprimentos das vigas do pórtico i na cela i (m)
for k = 1:NC(i) %Calcula as inércias de cada coluna do pórtico i
Icf{i}(k) = (nf{i}(k)*(mf{i}(k))^3)/12;
%Inércia da coluna k(elemento k do vetor) do pórtico i(cela) (m4)
kcf{i}(k) = Icf{i}(k)/hf(i);
%Rigidez da coluna k(elemento k do vetor) do pórtico i(cela)
end
for j = 1:NC(i)-1
dcf{i}(j) = sqrt((Xf{i}(j+1)-Xf{i}(j))^2+(Yf{i}(j+1)-Yf{i}(j))^2);
%Calcula as distancias entre colunas