Left

CivilFEM Online Help

Right

CFVR1271 - Seismic margin in reinforced beam according to Eurocode 2 (2008)

Check a reinforced concrete beam subjected to torsional moment and shear force

A fixed beam with a rectangular reinforced concrete section is subjected to a uniform distributed load of 7.52 Mp and a torsional moment of 1.52 Mp*m.
The aim of this example is to obtain the scale factor for elastic (FSE) and permissible inelastic response (FSI) according to EC2-08 code.
Inelastic energy absorption factors for shear and torsion are 1.5 and 1.6.

Element types used in the model: BEAM4

Needed CivilFEM Modules:
Geotechnical Module
Bridges and Civil Non Linearities Module
Advanced Prestressed Concrete Module

The example can be launched on an educational license.
KEYWORDS
Beam
Cross Section
Code Checking/Design
Reinforced Concrete
Eurocode 2

Model Statistics
Number of elements 4
Number of nodes 5
Number of civil materials 2
Number of cross sections 1
Number of shell vertices 0

Log file: CFVR1271.DAT


   FINISH
  ~CFCLEAR,,1
   NomFile='CFVR1271'
  /TITLE,%NomFile%, Shear and torsion checking according to HCLPF for Eurocode 2 (2008)

! -------------------------------------------------------------------------------------
! Initial data
! -------------------------------------------------------------------------------------
! CivilFEM SETUP
  ~UNITS,,LENG,M
  ~UNITS,,TIME,S
  ~UNITS,,FORC,MP
  ~CODESEL,EC3-92,EC2-08,EC2-08,,EC8-94

! Preprocessor
  /PREP7

! Parameters
  L=1              ! Length in m
  b=.4             ! Cross-section width in m.
  h=.3             ! Depth in m.
  T=0.95*1.6       ! Torsional moment in Mp*m
  Q=4.7*1.6        ! Maximum concomitant design shear force in Mp
  T_NS = T/4
  Q_NS = Q/4
  T_S = T
  Q_S = Q
  

! Material Definition
 ~CFMP,1,LIB,CONCRETE,EC2,C25/30
 ~CFMP,2,LIB,REINF,EC2,S400

! Element Type Definition
  ET,1,Beam4                                 ! Element Type 1: 3D Beam

! Cross-section definition
 ~CSECDMS,1,REC,1,0.3,0.4
! Reinforcement definition
  ~RNFDEF,1,SHEAR,2,0.0,0.0,10.2E-3,0.0     ! Shear reinforcement
  ~RNFDEF,1,TORSION,2,30.03e-4,,,,30.27e-4,  ! Torsional reinforcement
! Ductility
  ~SECMDF,1,EC2PROP ,DUCT_SH ,,1.5,0,0,0  
  ~SECMDF,1,EC2PROP ,DUCT_TO ,,1.6,0,0,0
! Beam properties
 ~BMSHPRO,1,BEAM,1,1,,,4,1,0,,

! Model Construction
  N,1                                    ! Nodes input
  N,5,L
  FILL,1,5

  E,1,2                                  ! Elements input
  EGEN,4,1,1,1

  D,1, , , , , ,ALL                      ! Constraint conditions
  
    ~CFSAVE,%NomFile%

FINISH

  /FILNAME,CNS
  ~CFRESUM,%NomFile%
  FINISH
  /SOLU

  F,5,FY,Q_NS
  F,5,MX,T_NS
  SOLVE               ! Calculation
  
  FINISH

  /FILNAME,SPECTRAL
  ~CFRESUM,%NomFile%
  FINISH
  /SOLU
  F,5,FY,Q_S
  F,5,MX,T_S
  SOLVE               ! Calculation
  
  FINISH 
/FILNAME,CNS 
/POST1
! Postprocessor
  ~CFSET,,1,1       ! Read first load step
  ~CFFILE2,4,SPECTRAL.RCV ! Seismic results

! Torsion checking
  ! ~HCLPFCN, Lab1, Lab2, DIRKEY,VAL1,VAL2,VAL3,VAL4,VAL5,VAL6,VAL7,VAL8,VAL9,VAL10,VAL11,VAL12
	~HCLPFCN,	SHT,BOTH,       ,    ,    ,    ,    ,    ,    ,    ,    ,    ,     ,    1,    1
	
! Resultado FSI
	~PLHCLPF,BEAM,FSE
	
	ALLSEL
    ~CFGET,FSE, ELEMENT, 1 ,RESULT ,  FSE, I, , , 1 
	
	FINISH
	
	~CFSAVE,%NomFile%
	
	/FILNAME,SPECTRALSCALED
	~CFRESUM,%NomFile%
	FINISH
	/SOLU
	! Forces scaled by FSE already calculated.
	F,5,FY,Q_S*FSE
	F,5,MX,T_S*FSE
	SOLVE               ! Calculation
	
	FINISH 
/FILNAME,CNS 
/POST1
! Postprocessor
  ~CFSET,,1,1       ! Read first load step
  ~CFFILE2,4,SPECTRALSCALED.RCV ! Seismic scaled results
  
  ~HCLPFCN,	SHT,BOTH,       ,    ,    ,    ,    ,    ,    ,    ,    ,    ,     ,    1,    1
  	
!-------------------------------------------------------------------------------
! data check
!-------------------------------------------------------------------------------

! arrays
NComp    = 2
NComp_ch = 0
*DIM,LABEL,CHAR,Ncomp,1
*DIM,LABEL_CH,CHAR,Ncomp_ch,1
*DIM,VALUE,,Ncomp,3
*DIM,VALUE_CH,CHAR,Ncomp_ch,3
*DIM,TOLER,,Ncomp,2

! labels
LABEL(1) = 'DUCT'
LABEL(2) = 'FSE'

! correct data
VALUE(1,1) = 1.5
VALUE(2,1) = 1.

! CivilFEM data
~CFGET,DUCT_SH,SECTION,1,EC2PROP,DUCT_SH
~CFGET,DUCT_TO,SECTION,1,EC2PROP,DUCT_TO
VALUE(1,2) = MIN(DUCT_SH,DUCT_TO)
~PLHCLPF,BEAM,FSE
~CFGET,VALUE(2,2), ELEMENT, 1 ,RESULT ,  FSE, I, , , 1 

! results comparison
TOLER(1,1) = 1.E-6*ABS(VALUE(1,1))
TOLER(1,2) = TOLER(1,1)
TOLER(2,1) = 5.E-2*ABS(VALUE(2,1))
TOLER(2,2) = TOLER(2,1)

COMPARA.MAC


Results

LabelTargetCivilFEMRatioTolerance
DUCT 1.5 1.51.0001.5e-006
FSE 1 11.000 0.05


Contains proprietary and confidential information of Ingeciber, S.A.