Element types used in the model: BEAM188

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

  FINISH
  ~CFCLEAR,,1
  NomFile='CFVR1276'
  /TITLE,%NomFile%, Cracking checking according to Eurocode 2 (2008)

! -------------------------------------------------------------------------------------
! Initial data
! -------------------------------------------------------------------------------------
! CivilFEM SETUP
 ~UNITS,SI
 ~CODESEL,EC3-05,EC2-08,EC2-08,,EC8-04   

! Preprocessor
  /PREP7

! Material Definition
 ~CFMP,1,LIB,CONCRETE,EC2,C30/37 
 ~CFMP,2,LIB,REINF,EC2,S400  
 
 !Cross Section
 ~CSECDMS,1,REC,1,0.6,0.4,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 
 ~RNFDEF,1,1,2,4,0,40.000E-03, , ,25,6, , ,0 
 ~RNFMDF,1,1,END,4   
 
 ~SECMDF,1,EC2PROP ,PHI     ,,25 ,1,0,0  
 ~SECMDF,1,EC2PROP ,RHOR    ,,7.363e-002,2,0,0   
 ~SECMDF,1,EC2PROP ,C       ,,2.75e-002,2,0,0
 
 ~CSECDMS,2,REC,1,0.4,0.6,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 
 ~RNFDEF,2,1,2,3,0,40.000E-03, , ,25,6, , ,0 
 ~RNFMDF,2,1,END,4   
 
 ~SECMDF,2,EC2PROP ,PHI     ,,25 ,1,0,0  
 ~SECMDF,2,EC2PROP ,PHI     ,,25 ,2,0,0  
 ~SECMDF,2,EC2PROP ,RHOR    ,,7.363e-002,4,0,0   
 ~SECMDF,2,EC2PROP ,C       ,,2.75e-002,4,0,0 
 
 ! Element Type Definition
  ET,1,Beam188
  
 !Beam properties
 ~BMSHPRO,1,BEAM,1,1,,, 188,1,0,,Beam 1
 ~BMSHPRO,2,BEAM,2,2,,, 188,1,0,,Beam 2
 
 !Geometry
 K,1,0,0,0,  
 K,2,1,0,0,  
 K,3,0,2,0,  
 K,4,1,2,0,  
 LSTR,       1,       2  
 LSTR,       3,       4  
 
  !Meshing
  ESIZE,0.1  
  SECNUM,   1
  LMESH,1  
  SECNUM,   2 
  LMESH,2

 
 DK,1, , , ,0,ALL, , , , , ,  
 DK,3, , , ,0,ALL, , , , , ,   
 
 !Loads
 /SOLU
 FK,2,MZ,300000  
 FK,4,MY,-300000  
 SOLVE               ! Load Step 1

 /POST1

 ! Postprocessor
  ~CFSET,,1,1       ! Read first load step
   ESEL,ELEM,5 
  ~CHKCON,CRACK, ,0,0.0001,0.8,0.4,3.4,0.425, 
  ~PLLSCON,CRT_TOT,1,
  *GET,CRTTOT_Rect,ELEM,5,ETAB,CFETAB_I
   ESEL,ELEM,15 
  ~CHKCON,CRACK, ,1,0.0001,0.8,0.4,3.4,0.425, 
  ~PLLSCON,CRT_TOT,1,
  *GET,CRTTOT_InvRect,ELEM,15,ETAB,CFETAB_I
  
  !--------------------------------------------------------------------------------------
! DATA CHECK
!--------------------------------------------------------------------------------------
! Data comparison number
  NComp = 1
  NComp_ch = 0

! Matrix 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)  = 'CRT'
  
  ! Correct values
  VALUE(1,1) = CRTTOT_Rect

  ! Obtained values
  VALUE(1,2) = CRTTOT_InvRect
 
! Warning and error tolerances
  TOLER( 1, 1)= 1E-02 $ TOLER( 1, 2)= 1E-02
   !--------------------------------------------------------------------------------------
 ! Results comparison
 !--------------------------------------------------------------------------------------
   COMPARA.MAC