Left

CivilFEM Online Help

Official Websites: CivilFEM | CivilFEM Licenses | Ingeciber
CivilFEM powered by Marc: Installation | Documentation | Python Guide | Theory Manual | Verification Manual | PDF | Class 3
CivilFEM for Ansys: Installation | Documentation | Verification Manual | Instalación | Documentación | PDF | PDF (ES) | Class 3
CivilFEM Apps for Ansys Workbench: Installation | Licensing | FAQ | Reinforced Concrete | Structural Steel | Theory Manual | PDF | Class 3
Right

CFVR4102 - Parabolic design diagram for concrete of ACI 359-04 code

Comprobation of the parabolic design-diagram for concrete

This example checks that are defined correctly the points of the parabolic design diagram according to the ACI 359-04 code. Checking will only be done at certain age (variable AGE) of an arbitrary type of concrete.

Element types used in the model: NONE

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
Materials
ACI 359

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

Log file: CFVR4102.dat


FINISH
~CFCLEAR,,1
NomFile ='CFVR4102'
/TITLE,%NomFile%,Parabolic design-diagram for concrete 

~CODESEL,,ACI359,ACI359
~UNITS,BFT

/PREP7 

! ----------------------------------------------------------------------
! Parameters
! ----------------------------------------------------------------------

AGE = 10     ! index for 75 days of concrete age
TOL = 1.E-12 ! relative error used to define tolerances

! ----------------------------------------------------------------------
! Material definition
! ----------------------------------------------------------------------

~CFMP,1,LIB,CONCRETE,ACI,fc_4500
~CFMP,1,ACI_C,TSDSSD,,4

!-----------------------------------------------------------------------
! Data check
!-----------------------------------------------------------------------

NCOMP    = 24
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) = 'EPS1'
LABEL( 2) = 'EPS2'
LABEL( 3) = 'EPS3'
LABEL( 4) = 'EPS4'
LABEL( 5) = 'EPS5'
LABEL( 6) = 'EPS6'
LABEL( 7) = 'EPS7'
LABEL( 8) = 'EPS8'
LABEL( 9) = 'EPS9'
LABEL(10) = 'EPS10'
LABEL(11) = 'EPS11'
LABEL(12) = 'EPS12'
LABEL(13) = 'SIG1'
LABEL(14) = 'SIG2'
LABEL(15) = 'SIG3'
LABEL(16) = 'SIG4'
LABEL(17) = 'SIG5'
LABEL(18) = 'SIG6'
LABEL(19) = 'SIG7'
LABEL(20) = 'SIG8'
LABEL(21) = 'SIG9'
LABEL(22) = 'SIG10'
LABEL(23) = 'SIG11'
LABEL(24) = 'SIG12'
                                       
! Correct values
!-----------------------------------------------------------------------
~CFGET,NPT,MATERIAL,1,ACI_C,NPSDSSD
~CFGET,FC_T,MATERIAL,1,ACI_C,FC_T,,AGE
EPSU = -0.003
EPS0 = -0.002

VALUE( 1,1) = EPSU
VALUE( 2,1) = EPS0
VALUE( 3,1) = 0.9*EPS0
VALUE( 4,1) = 0.8*EPS0
VALUE( 5,1) = 0.7*EPS0
VALUE( 6,1) = 0.6*EPS0
VALUE( 7,1) = 0.5*EPS0
VALUE( 8,1) = 0.4*EPS0
VALUE( 9,1) = 0.3*EPS0
VALUE(10,1) = 0.2*EPS0
VALUE(11,1) = 0.1*EPS0
VALUE(12,1) = 0.

COF  = 0.85*FC_T
COF1 = COF/EPS0
COF2 = 0.15/(EPSU - EPS0)
VALUE(13,1) = -COF*(1 - COF2*(VALUE(1,1) - EPS0))
VALUE(14,1) = -COF*(1 - COF2*(VALUE(2,1) - EPS0))
J = 3
*DO,I,15,24
  VALUE(I,1) = -COF1*VALUE(J,1)*(2 - VALUE(J,1)/EPS0)
  J = J + 1
*ENDDO

! Warning and error tolerencaes
!-----------------------------------------------------------------------
TOLER( 1,1) = TOL*ABS(VALUE( 1,1)) $ TOLER( 1,2) = TOLER( 1,1)
TOLER( 2,1) = TOL*ABS(VALUE( 2,1)) $ TOLER( 2,2) = TOLER( 2,1)
TOLER( 3,1) = TOL*ABS(VALUE( 3,1)) $ TOLER( 3,2) = TOLER( 3,1)
TOLER( 4,1) = TOL*ABS(VALUE( 4,1)) $ TOLER( 4,2) = TOLER( 4,1)
TOLER( 5,1) = TOL*ABS(VALUE( 5,1)) $ TOLER( 5,2) = TOLER( 5,1)      
TOLER( 6,1) = TOL*ABS(VALUE( 6,1)) $ TOLER( 6,2) = TOLER( 6,1)      
TOLER( 7,1) = TOL*ABS(VALUE( 7,1)) $ TOLER( 7,2) = TOLER( 7,1)      
TOLER( 8,1) = TOL*ABS(VALUE( 8,1)) $ TOLER( 8,2) = TOLER( 8,1)     
TOLER( 9,1) = TOL*ABS(VALUE( 9,1)) $ TOLER( 9,2) = TOLER( 9,1)      
TOLER(10,1) = TOL*ABS(VALUE(10,1)) $ TOLER(10,2) = TOLER(10,1)      
TOLER(11,1) = TOL*ABS(VALUE(11,1)) $ TOLER(11,2) = TOLER(11,1)
TOLER(12,1) = TOL*ABS(VALUE(12,1)) $ TOLER(12,2) = TOLER(12,1)
                                                   
TOLER(13,1) = 10**5*TOL*ABS(VALUE(13,1)) $ TOLER(13,2) = TOLER(13,1)
TOLER(14,1) = TOL*ABS(VALUE(14,1)) $ TOLER(14,2) = TOLER(14,1)
TOLER(15,1) = TOL*ABS(VALUE(15,1)) $ TOLER(15,2) = TOLER(15,1)
TOLER(16,1) = TOL*ABS(VALUE(16,1)) $ TOLER(16,2) = TOLER(16,1)
TOLER(17,1) = TOL*ABS(VALUE(17,1)) $ TOLER(17,2) = TOLER(17,1)
TOLER(18,1) = TOL*ABS(VALUE(18,1)) $ TOLER(18,2) = TOLER(18,1)
TOLER(19,1) = TOL*ABS(VALUE(19,1)) $ TOLER(19,2) = TOLER(19,1)
TOLER(20,1) = TOL*ABS(VALUE(20,1)) $ TOLER(20,2) = TOLER(20,1)
TOLER(21,1) = TOL*ABS(VALUE(21,1)) $ TOLER(21,2) = TOLER(21,1)
TOLER(22,1) = TOL*ABS(VALUE(22,1)) $ TOLER(22,2) = TOLER(22,1)
TOLER(23,1) = TOL*ABS(VALUE(23,1)) $ TOLER(23,2) = TOLER(23,1)
TOLER(24,1) = TOL*ABS(VALUE(24,1)) $ TOLER(24,2) = TOLER(24,1)
                                                   
! Obtained values
!-----------------------------------------------------------------------
~CFGET,VALUE( 1,2),MATERIAL,1,ACI_C,SDEPS,, 1,AGE
~CFGET,VALUE( 2,2),MATERIAL,1,ACI_C,SDEPS,, 2,AGE
~CFGET,VALUE( 3,2),MATERIAL,1,ACI_C,SDEPS,, 3,AGE
~CFGET,VALUE( 4,2),MATERIAL,1,ACI_C,SDEPS,, 4,AGE
~CFGET,VALUE( 5,2),MATERIAL,1,ACI_C,SDEPS,, 5,AGE
~CFGET,VALUE( 6,2),MATERIAL,1,ACI_C,SDEPS,, 6,AGE
~CFGET,VALUE( 7,2),MATERIAL,1,ACI_C,SDEPS,, 7,AGE
~CFGET,VALUE( 8,2),MATERIAL,1,ACI_C,SDEPS,, 8,AGE
~CFGET,VALUE( 9,2),MATERIAL,1,ACI_C,SDEPS,, 9,AGE
~CFGET,VALUE(10,2),MATERIAL,1,ACI_C,SDEPS,,10,AGE
~CFGET,VALUE(11,2),MATERIAL,1,ACI_C,SDEPS,,11,AGE
~CFGET,VALUE(12,2),MATERIAL,1,ACI_C,SDEPS,,12,AGE
~CFGET,VALUE(13,2),MATERIAL,1,ACI_C,SDSGM,, 1,AGE
~CFGET,VALUE(14,2),MATERIAL,1,ACI_C,SDSGM,, 2,AGE
~CFGET,VALUE(15,2),MATERIAL,1,ACI_C,SDSGM,, 3,AGE
~CFGET,VALUE(16,2),MATERIAL,1,ACI_C,SDSGM,, 4,AGE
~CFGET,VALUE(17,2),MATERIAL,1,ACI_C,SDSGM,, 5,AGE
~CFGET,VALUE(18,2),MATERIAL,1,ACI_C,SDSGM,, 6,AGE
~CFGET,VALUE(19,2),MATERIAL,1,ACI_C,SDSGM,, 7,AGE
~CFGET,VALUE(20,2),MATERIAL,1,ACI_C,SDSGM,, 8,AGE
~CFGET,VALUE(21,2),MATERIAL,1,ACI_C,SDSGM,, 9,AGE
~CFGET,VALUE(22,2),MATERIAL,1,ACI_C,SDSGM,,10,AGE
~CFGET,VALUE(23,2),MATERIAL,1,ACI_C,SDSGM,,11,AGE
~CFGET,VALUE(24,2),MATERIAL,1,ACI_C,SDSGM,,12,AGE
                                           
! Results comparison
!-----------------------------------------------------------------------
COMPARA.MAC

Results

LabelTargetCivilFEMRatioTolerance
EPS1 -0.003 -0.0031.000 3e-015
EPS2 -0.002 -0.0021.000 2e-015
EPS3 -0.0018 -0.00181.0001.8e-015
EPS4 -0.0016 -0.00161.0001.6e-015
EPS5 -0.0014 -0.00141.0001.4e-015
EPS6 -0.0012 -0.00121.0001.2e-015
EPS7 -0.001 -0.0011.000 1e-015
EPS8 -0.0008 -0.00081.000 8e-016
EPS9 -0.0006 -0.00061.000 6e-016
EPS10 -0.0004 -0.00041.000 4e-016
EPS11 -0.0002 -0.00021.000 2e-016
EPS12 0 00.000 0
SIG1-5.1828e+005-5.1828e+0051.000 0.05183
SIG2-6.0974e+005-6.0974e+0051.0006.097e-007
SIG3-6.0364e+005-6.0364e+0051.0006.036e-007
SIG4-5.8535e+005-5.8535e+0051.0005.854e-007
SIG5-5.5486e+005-5.5486e+0051.0005.549e-007
SIG6-5.1218e+005-5.1218e+0051.0005.122e-007
SIG7-4.5731e+005-4.5731e+0051.0004.573e-007
SIG8-3.9023e+005-3.9023e+0051.0003.902e-007
SIG9-3.1097e+005-3.1097e+0051.0003.11e-007
SIG10-2.1951e+005-2.1951e+0051.0002.195e-007
SIG11-1.1585e+005-1.1585e+0051.0001.159e-007
SIG12 0 00.000 0

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