21.08.2013 Views

análise de pavimentos de edifícios de concreto armado com a ...

análise de pavimentos de edifícios de concreto armado com a ...

análise de pavimentos de edifícios de concreto armado com a ...

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

fbar2=aux1+aux2<br />

fbar=SQRT(fbar2)<br />

dfbar=(1./(SQRT(aux1+aux2)*2))*<br />

* (aux3-((4*aux2*G)/(1+(2*G*GAMA))))<br />

R2=(((((fbar*GAMA*SQRT(2./3.))+EPSTN)*HL)+PM)**2)*(1./3.)<br />

R=SQRT(R2)<br />

dR=(((1./(6*fbar))*GAMA*SQRT(6.)*(SQRT(3.)/3.))*<br />

* (((-2*AUX1)*AUX4)-(4*AUX2*G))+(1./3.)*fbar*SQRT(6.))*HL<br />

f= (0.5*fbar2)-R2<br />

df=(fbar*dfbar)-(2*(R*dR))<br />

RETURN<br />

END<br />

Apêndice 3 - Programa para a <strong>de</strong>terminação do diagrama<br />

momento-curvatura <strong>de</strong> uma seção transversal<br />

******************************************************************************************************<br />

C PROGRAMA PARA A DETERMINACAO DO DIAGRAMA MOMENTO x<br />

C CURVATURA CARACTERISTICO DE UMA SEÇÃO DE<br />

C CONCRETO ARMADO (VIGA OU LAJE)<br />

******************************************************************************************************<br />

C<br />

C Principais variáveis<br />

C Ec - módulo <strong>de</strong> elasticida<strong>de</strong> longitudinal do <strong>concreto</strong><br />

C fcm - resistência média do <strong>concreto</strong> à <strong>com</strong>pressão<br />

C fctk - resistência característica do <strong>concreto</strong> à tração<br />

C fctm - resistência média do <strong>concreto</strong> à tração na flexão<br />

C Es - módulo <strong>de</strong> elasticida<strong>de</strong> longitudinal do aço<br />

C fyk - tensão <strong>de</strong> escoamento do aço<br />

C b, h - dimensões da seção transversal<br />

C d - altura útil da seção<br />

C dl - cobrimento da armadura longitudinal <strong>de</strong> <strong>com</strong>pressão<br />

C As - armadura longitudinal <strong>de</strong> tração<br />

C Als - armadura longitudinal <strong>de</strong> <strong>com</strong>pressão<br />

C M - vetor que armazena os momentos Mr,My e Mu<br />

C curv - vetor que armazena as respectivas curvaturas<br />

C alfae - Es/Ec<br />

C ecc - <strong>de</strong>formação específica do <strong>concreto</strong> à <strong>com</strong>pressão<br />

C esc - <strong>de</strong>formação específica do aço à <strong>com</strong>pressão<br />

C est - <strong>de</strong>formação específica do aço à tração<br />

C Rcc - resultante <strong>de</strong> <strong>com</strong>pressão no <strong>concreto</strong><br />

C Rsc - resultante <strong>de</strong> tração na armadura longitudinal <strong>de</strong> tração<br />

C scc - tensão normal <strong>de</strong> <strong>com</strong>pressão no <strong>concreto</strong><br />

C xis - profundida<strong>de</strong>s da linha neutra para as diversas situações<br />

C Dr, Dy, Du - inclinações dos trechos do diagrama momento-curvatura trilinear<br />

C ky, ku - parâmetro <strong>de</strong> encruamento isótropo correspon<strong>de</strong>nte ao primeiro ou<br />

segundo trecho <strong>de</strong> encruamento<br />

INCLUDE 'FGRAPH.FI'<br />

INCLUDE 'FGRAPH.FD'<br />

INTEGER tipo<br />

REAL Ec, fcm, fctk, fctm, Es, fyk, b, h, d, dl, As, Als, M(3),<br />

* curv(3), alfae, ecc, esc, est, Rcc, Rsc, scc,

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!