%pino_NBR7190_2022.m
%verificação de resitência de ligação por pino metálico
%14/09/2022
%Prof. Reyolando Brasil
%
clc
clear
%
nsp=2;%junta tracionada duas seções de corte
nef=6;%número efetivo de pinos adotado na ligação
%
Ntd=37110;%força de tração de cálculo, Newton
%
%pino de aço passante
%
d=9;%diâmetro do pino, mm
fuk=400;%resistência última aço, MPa
Myk=0.3*fuk*d^(2.6);%momento resistente característico pino, Nmm
%
%madeiras unidas
%
kmod1=0.7;%carga longa duração
kmod2=0.9;%unidade ambiente entre 65 e 75%
gama_lig=1.4;%coef. de minoração da ligação
%
rom1=1000;%densidade média, madeira 1 folhosa D60, kg/m³
rom2=1000;%densidade média, madeira 2 folhosa D60, kg/m³
rok1=rom1/1.2;%densidade característica, madeira 1
rok2=rom2/1.2;%densidade característica, madeira 2
fe1k=0.082*(1-0.01*d)*rok1;%resistência embutimento madeira 1, MPa
fe2k=0.082*(1-0.01*d)*rok2;%resistência embutimento madeira 2, MPa
t1=60;%espessura da madeira 1, mm
t2=60;%espessura da madeira 2, mm
b=fe2k/fe1k;
%
%força característica por pino e por plano de corte, Tabela 19 NBR7190:2022
%
F(1)=fe1k*t1*d;
F(2)=0.5*fe1k*t2*d*b;
F(3)=1.05*fe1k*t1*d/(2+b)*sqrt(2*b*(1+b)+4*b*(2+b)*Myk/(fe1k*d*t1^2))-b;
F(4)=1.15*sqrt(2*b/(1+b))*sqrt(2*Myk*fe1k*d);
%
%Desconsiderada contribuição da compressão de arruelas. arrancamento
% de pregos ou parafusos,ou embutimento de suas cabeças
%
FvRk=min(F);%menor resistência entre os 4 modos de falha
Rk=FvRk*nsp*nef;%resistência característica da ligação
Rd=kmod1*kmod2*Rk/gama_lig;%resistência de cálculo da ligação
if Rd>=Ntd
    disp('OK!')
else
    disp('Não OK!')
end
%