CFVR5282 - 2D torsion checking according to EC2.

Rectangular section

The model is a prestressed fixed-fixed beam 800 cm length.
The beam is made of HA-25 concrete with tendons that are made of Y1860S3 steel.
The section is box one, with B500S steel reinforcement. It has the following dimensions:

h = 80 cm
b = 50 cm

Loads:

Prestressing loads
Compression load Fy= -60000 kp
Surface load of 5 kp
Torsional moment Mx=5000 kp*cm at the end of the beam.

The aim of the example is to verify torsion checking for prestressed concrete according to EC2.

Element types used in the model: BEAM44

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

Prestressed Concrete

Code Checking/Design

Model Statistics
Number of elements	10
Number of nodes	11
Number of civil materials	3
Number of cross sections	1
Number of shell vertices	0

Log file: CFVR5282.DAT

  FINISH
  ~CFCLEAR,,1
  ~CFACTIV,NLBR,Y
  ~CFACTIV,PRSC,Y
  NomFile='CFVR5282'
  /TITLE, %NomFile%, torsion checking according to EC2. Rectangular section

! -------------------------------------------------------------------------------------
! Initial data
! -------------------------------------------------------------------------------------
! Parameters
  DEPTH = 80
  WIDTH = 50
  L = 800
! Setup
  ~CODESEL,EC3-92,EC2-91,EC2-91,,EC8-94
  ~UNITS,,LENG,CM
  ~UNITS,,TIME,S
  ~UNITS,,FORC,KP
  /PREP7
! Materials
  ~CFMP,1,LIB,CONCRETE,EHE,HA-25
  ~CFMP,2,LIB,REINF,EHE,B 500 S
  ~CFMP,3,LIB,PREST,EHE,Y1860S3
! Model definition
  ~CSECDMS,1,REC,1,DEPTH,WIDTH
  ~RNFDEF,1,1,2,4,0,4.0, , ,25.0,5, , ,4
  ~RNFDEF,1,2,2,2,0,4.0, , ,25.0,5, , ,4
  ~RNFDEF,1,TORSION,2,3.0e-2, , , ,2.0, ,
  ~BMSHPRO,1,BEAM,1,1,,,4,1,0,,Beam 1
  ET,1,BEAM4
! Nodes
  N, 1,0,0
  N,11,L,0
  FILL
! Elements
  TYPE,1
  REAL,1
  MAT,1
  E,1,2
  EGEN,10,1,-1
! Capture support beam.
  ~SBBMDEF,1
! Elevation points
  ~PCEPDEF,1,1,0,-0.1
  ~PCEPDEF,2,11,0,0.1
  ~PCEPDEF,3,6,-25,0
! Plan points
  ~PCPPDEF,1, 1,-18,0
  ~PCPPDEF,2,11,-18,0
  ~PCPPDEF,3, 1, -6,0
  ~PCPPDEF,4,11, -6,0
  ~PCPPDEF,5, 1,  6,0
  ~PCPPDEF,6,11,  6,0
  ~PCPPDEF,7, 1, 18,0
  ~PCPPDEF,8,11, 18,0
! Tendon parameters
  DiV=5
  AsT=9.8
  AsT=11.6
! Tendon 1
  ~PCTNDEF,1,3,AsT,DiV
  ~PCTNMDF,1,EADD,1.
  ~PCTNMDF,1,EADD,3.
  ~PCTNMDF,1,EADD,2.
  ~PCTNMDF,1,PADD,1.
  ~PCTNMDF,1,PADD,2.
! Tendon 2
  ~PCTNDEF,2,3,AsT,DiV
  ~PCTNMDF,2,EADD,1.
  ~PCTNMDF,2,EADD,3.
  ~PCTNMDF,2,EADD,2.
  ~PCTNMDF,2,PADD,3.
  ~PCTNMDF,2,PADD,4.
! Tendon 3
  ~PCTNDEF,3,3,AsT,DiV
  ~PCTNMDF,3,EADD,1.
  ~PCTNMDF,3,EADD,3.
  ~PCTNMDF,3,EADD,2.
  ~PCTNMDF,3,PADD,5.
  ~PCTNMDF,3,PADD,6.
! Tendon 4
  ~PCTNDEF,4,3,AsT,DiV
  ~PCTNMDF,4,EADD,1.
  ~PCTNMDF,4,EADD,3.
  ~PCTNMDF,4,EADD,2.
  ~PCTNMDF,4,PADD,7.
  ~PCTNMDF,4,PADD,8.
! Stress losses calculation
  ~PCTNMDF,1,METHOD,1
  ~PCTNMDF,2,METHOD,1
  ~PCTNMDF,3,METHOD,1
  ~PCTNMDF,4,METHOD,1
  ~PCLOSS,1E6,0,,0
! Boundary conditions
  D, 1,ALL
  D,11,ALL

/SOLU
! Solution
  SFBEAM,ALL,2,PRES,5
  F,6,FY,-60000
  F,6,MX,5000
  ~PCPL,0,
  SOLVE

/POST1
! Postprocessor
  ~CFSET,,1
  ~CHKPRS,SHT,TORSION,0

!--------------------------------------------------------------------------------------
! DATA CHECK
!--------------------------------------------------------------------------------------
! Data comparison number
  NComp    = 6
  NComp_ch = 0

! Marix dim.
  *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)  = 'CRTRD1_2'
  LABEL( 2)  = 'CRTRD1_4'
  LABEL( 3)  = 'CRTRD1_6'
  LABEL( 4)  = 'CRTRD2_2'
  LABEL( 5)  = 'CRTRD2_4'
  LABEL( 6)  = 'CRTRD2_6'

! Correct data
  VALUE(1,1)= 1.224E-3
  VALUE(2,1)= 1.224E-3
  VALUE(3,1)= 1.224E-3
  VALUE(4,1)= 7.250E-3
  VALUE(5,1)= 7.250E-3
  VALUE(6,1)= 7.250E-3

! Obtained data
  ~PLLSPRS,CRTRD1,1,
   *GET,VALUE(1,2),ELEM,2,ETAB,CFETAB_I
  ~PLLSPRS,CRTRD1,1,
   *GET,VALUE(2,2),ELEM,4,ETAB,CFETAB_I
  ~PLLSPRS,CRTRD1,1,
   *GET,VALUE(3,2),ELEM,6,ETAB,CFETAB_I
  ~PLLSPRS,CRTRD2,1,
   *GET,VALUE(4,2),ELEM,2,ETAB,CFETAB_I
  ~PLLSPRS,CRTRD2,1,
   *GET,VALUE(5,2),ELEM,4,ETAB,CFETAB_I
  ~PLLSPRS,CRTRD2,1,
   *GET,VALUE(6,2),ELEM,6,ETAB,CFETAB_I

! Warning and error tolerances
  TOLER( 1, 1)= 1E-04 $ TOLER( 1, 2)= 1E-04
  TOLER( 2, 1)= 1E-04 $ TOLER( 2, 2)= 1E-04
  TOLER( 3, 1)= 1E-04 $ TOLER( 3, 2)= 1E-04
  TOLER( 4, 1)= 1E-04 $ TOLER( 4, 2)= 1E-04
  TOLER( 5, 1)= 1E-04 $ TOLER( 5, 2)= 1E-04
  TOLER( 6, 1)= 1E-04 $ TOLER( 6, 2)= 1E-04

!--------------------------------------------------------------------------------------
! Result comparison
!--------------------------------------------------------------------------------------
  COMPARA.MAC

Results

Label	Target	CivilFEM	Ratio	Tolerance
CRTRD1_2	0.001224	0.001224	1.000	0.0001
CRTRD1_4	0.001224	0.001224	1.000	0.0001
CRTRD1_6	0.001224	0.001224	1.000	0.0001
CRTRD2_2	0.00725	0.0072496	1.000	0.0001
CRTRD2_4	0.00725	0.0072496	1.000	0.0001
CRTRD2_6	0.00725	0.0072496	1.000	0.0001

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

CivilFEM Online Help

CFVR5282 - 2D torsion checking according to EC2.

Rectangular section

Results