this is the first time I have problem with materials,program writes "invalid command named Material"
Someone could help me to find what's wrong?
This is my script:
Code: Select all
set E 250000 ; # concrete elastic modulus
set b0 24 ; #
set h0 24 ; #
set sh 8 ; #
##set bi 24 ; #
set fy 4400 ; #
set Es 2100000 ; #
set b 0.005 ;#
set epssu 0.1 ; #
set fiStaffe 0.8 ; #
set pigreco 3.14
set Aw [expr ($pigreco/4)*pow($fiStaffe,2)] ; #
set Ws [expr $Aw*2*($h0+$b0)] ; #
set Wc [expr $b0*$h0*$sh] ; #
set roS [expr $Ws/$Wc] ;
set alfa [expr (1-($sh/($b0*2.0)))*(1-($sh/($h0*2.0)))*(1-(pow($b0,2)/(6.0*$h0*$b0)))]
# unconfined concrete
set Rck 300
set f1U [expr $Rck*0.83] ; #maximum stress
set f2U $f1U ; #maximum stress
set eps1U 0.002;
set eps2U 0.004;
# confined concrete
set value [expr 0.5*$alfa*$roS*$fy/$f1U]
set f1C [expr $f1U*(1+(3.7*pow($value,0.87)))]
set eps1C [expr $eps1U*(1+5*(($f1C/$f1U)-1))] ;
set Ec [expr 50000*pow($f1U,0.5)] ; #
set Esec [expr $f1C/$eps1C] ; #
set r [expr $Ec/($Ec-$Esec)]
set eps2C [expr 0.004+0.6*$epssu*$roS*$fy/$f1C]
set x [expr $eps2C/$eps1C]
set f2C [expr ($f1C*$x*$r)/($r-1.0+pow($x,$r))] ; #
#-----------------
set coreID 1
set coverID 2
set SteelID 3
# core concrete
# tag -f'c -ec0 -f'cu -ecu
uniaxialMaterial Concrete01 $coreID [expr -$f1C] [expr -$eps1C] [expr -$f2C] [expr -$eps2C]
# cover concrete
uniaxialMaterial Concrete01 $coverID -$f1U -$eps1U -$f2U -$eps2U
#Reinforcing Steel
# tag fy E0 b
uniaxialMaterial Steel01 $SteelID $fy $Es $b
Thanks