tcl命令讲解.docVIP

if { [file exists output] == 0 } { file mkdir output } 建立活页夹 model basic -ndm 2 -ndf 3 node 5 0.0 162.0 -mass $m1 $m1 0.0 约束 品质 # tag fy E0 b uniaxialMaterial Steel01 3 $fy $E 0.01 Steel02 Material tag fy E0 b $R0 $CR1 $CR2 $R0=between 10 and 20, $cR1=0.925, $cR2=0.15 CONCRETE tag fc ec0 fcu ecu # Core concrete (confined) uniaxialMaterial Concrete01 1 -6.0 -0.004 -5.0 -0.014 set fc1U $fc; # UNCONFINED concrete (todeschini parabolic model), maximum stress set eps1U -0.003; # strain at maximum strength of unconfined concrete set fc2U [expr 0.2*$fc1U]; # ultimate stress set eps2U -0.01; # strain at ultimate stress set lambda 0.1; # ratio between unloading slope at $eps2 and initial slope $Ec # tensile-strength properties set ftU [expr -0.14*$fc1U]; # tensile strength +tension set Ets [expr $ftU/0.002]; # tension softening stiffness uniaxialMaterial Concrete02 $IDconcU $fc1U $eps1U $fc2U $eps2U $lambda $ftU $Ets section Fiber 1 { # Create the concrete core fibers patch rect 1 10 1 [expr $cover-$y1] [expr $cover-$z1] [expr $y1-$cover] [expr $z1-$cover] # Create the concrete cover fibers (top, bottom, left, right) patch rect 2 10 1 [expr -$y1] [expr $z1-$cover] $y1 $z1 patch rect 2 10 1 [expr -$y1] [expr -$z1] $y1 [expr $cover-$z1] patch rect 2 2 1 [expr -$y1] [expr $cover-$z1] [expr $cover-$y1] [expr $z1-$cover] patch rect 2 2 1 [expr $y1-$cover] [expr $cover-$z1] $y1 [expr $z1-$cover] # Create the reinforcing fibers (left, middle, right) layer straight 3 3 $As [expr $y1-$cover] [expr $z1-$cover] [expr $y1-$cover] [expr $cover-$z1] layer straight 3 2 $As 0.0 [expr $z1-$cover] 0.0 [expr $cover-$z1] layer straight 3 3 $As [expr $cover-$y1] [expr $z1-$cover] [expr $cover-$y1] [expr $cover-$z1] } 定义截面