Element Recorder

[jovillarroelb]

Hi;

I'm trying to get the curvature of a fiber element previously defined in another file (pier_Sections.tcl), like this.

# ---------------- Define the section ---------------;
section Fiber $fiberTag {
# Create the concrete fibers: patch rect $matTag $numSubdivY $numSubdivZ $yI $zI $yJ $zJ;
# From -colWidth/2 to colWidth/2;
# From -colDepth/2 to colDepth/2;
patch rect $concreteTag_1 $ny1 $nz1 $y1 $z1 $y2 $z2;
patch rect $concreteTag_1 $ny1 $nz2 $y1 $z2 $y2 $z3;
patch rect $concreteTag_1 $ny1 $nz3 $y1 $z3 $y2 $z4;
patch rect $concreteTag_1 $ny1 $nz4 $y1 $z4 $y2 $z5;
patch rect $concreteTag_1 $ny1 $nz5 $y1 $z5 $y2 $z6;
patch rect $concreteTag_1 $ny1 $nz6 $y1 $z6 $y2 $z7;
patch rect $concreteTag_1 $ny1 $nz7 $y1 $z7 $y2 $z8;

patch rect $concreteTag_1 $ny2 $nz1 $y2 $z1 $y3 $z2;
patch rect $concreteTag_2 $ny2 $nz2 $y2 $z2 $y3 $z3;
patch rect $concreteTag_2 $ny2 $nz3 $y2 $z3 $y3 $z4;
patch rect $concreteTag_2 $ny2 $nz4 $y2 $z4 $y3 $z5;
patch rect $concreteTag_2 $ny2 $nz5 $y2 $z5 $y3 $z6;
patch rect $concreteTag_2 $ny2 $nz6 $y2 $z6 $y3 $z7;
patch rect $concreteTag_1 $ny2 $nz7 $y2 $z7 $y3 $z8;

patch rect $concreteTag_1 $ny3 $nz1 $y3 $z1 $y4 $z2;
patch rect $concreteTag_2 $ny3 $nz2 $y3 $z2 $y4 $z3;
patch rect $concreteTag_1 $ny3 $nz3 $y3 $z3 $y4 $z4;
patch rect $concreteTag_1 $ny3 $nz4 $y3 $z4 $y4 $z5;
patch rect $concreteTag_1 $ny3 $nz5 $y3 $z5 $y4 $z6;
patch rect $concreteTag_2 $ny3 $nz6 $y3 $z6 $y4 $z7;
patch rect $concreteTag_1 $ny3 $nz7 $y3 $z7 $y4 $z8;

patch rect $concreteTag_1 $ny4 $nz1 $y4 $z1 $y5 $z2;
patch rect $concreteTag_2 $ny4 $nz2 $y4 $z2 $y5 $z3;
patch rect $concreteTag_1 $ny4 $nz3 $y4 $z3 $y5 $z4;
# patch rect $concreteTag_1 $ny4 $nz4 $y4 $z4 $y5 $z5; This area is hollow!;
patch rect $concreteTag_1 $ny4 $nz5 $y4 $z5 $y5 $z6;
patch rect $concreteTag_2 $ny4 $nz6 $y4 $z6 $y5 $z7;
patch rect $concreteTag_1 $ny4 $nz7 $y4 $z7 $y5 $z8;

patch rect $concreteTag_1 $ny5 $nz1 $y5 $z1 $y6 $z2;
patch rect $concreteTag_2 $ny5 $nz2 $y5 $z2 $y6 $z3;
patch rect $concreteTag_1 $ny5 $nz3 $y5 $z3 $y6 $z4;
patch rect $concreteTag_1 $ny5 $nz4 $y5 $z4 $y6 $z5;
patch rect $concreteTag_1 $ny5 $nz5 $y5 $z5 $y6 $z6;
patch rect $concreteTag_2 $ny5 $nz6 $y5 $z6 $y6 $z7;
patch rect $concreteTag_1 $ny5 $nz7 $y5 $z7 $y6 $z8;

patch rect $concreteTag_1 $ny6 $nz1 $y6 $z1 $y7 $z2;
patch rect $concreteTag_2 $ny6 $nz2 $y6 $z2 $y7 $z3;
patch rect $concreteTag_2 $ny6 $nz3 $y6 $z3 $y7 $z4;
patch rect $concreteTag_2 $ny6 $nz4 $y6 $z4 $y7 $z5;
patch rect $concreteTag_2 $ny6 $nz5 $y6 $z5 $y7 $z6;
patch rect $concreteTag_2 $ny6 $nz6 $y6 $z6 $y7 $z7;
patch rect $concreteTag_1 $ny6 $nz7 $y6 $z7 $y7 $z8;

patch rect $concreteTag_1 $ny7 $nz1 $y7 $z1 $y8 $z2;
patch rect $concreteTag_2 $ny7 $nz2 $y7 $z2 $y8 $z3;
patch rect $concreteTag_1 $ny7 $nz3 $y7 $z3 $y8 $z4;
patch rect $concreteTag_1 $ny7 $nz4 $y7 $z4 $y8 $z5;
patch rect $concreteTag_1 $ny7 $nz5 $y7 $z5 $y8 $z6;
patch rect $concreteTag_2 $ny7 $nz6 $y7 $z6 $y8 $z7;
patch rect $concreteTag_1 $ny7 $nz7 $y7 $z7 $y8 $z8;

patch rect $concreteTag_1 $ny8 $nz1 $y8 $z1 $y9 $z2;
patch rect $concreteTag_2 $ny8 $nz2 $y8 $z2 $y9 $z3;
patch rect $concreteTag_1 $ny8 $nz3 $y8 $z3 $y9 $z4;
# patch rect $concreteTag_1 $ny8 $nz4 $y8 $z4 $y9 $z5; This area is hollow!;
patch rect $concreteTag_1 $ny8 $nz5 $y8 $z5 $y9 $z6;
patch rect $concreteTag_2 $ny8 $nz6 $y8 $z6 $y9 $z7;
patch rect $concreteTag_1 $ny8 $nz7 $y8 $z7 $y9 $z8;

patch rect $concreteTag_1 $ny9 $nz1 $y9 $z1 $y10 $z2;
patch rect $concreteTag_2 $ny9 $nz2 $y9 $z2 $y10 $z3;
patch rect $concreteTag_1 $ny9 $nz3 $y9 $z3 $y10 $z4;
patch rect $concreteTag_1 $ny9 $nz4 $y9 $z4 $y10 $z5;
patch rect $concreteTag_1 $ny9 $nz5 $y9 $z5 $y10 $z6;
patch rect $concreteTag_2 $ny9 $nz6 $y9 $z6 $y10 $z7;
patch rect $concreteTag_1 $ny9 $nz7 $y9 $z7 $y10 $z8;

patch rect $concreteTag_1 $ny10 $nz1 $y10 $z1 $y11 $z2;
patch rect $concreteTag_2 $ny10 $nz2 $y10 $z2 $y11 $z3;
patch rect $concreteTag_2 $ny10 $nz3 $y10 $z3 $y11 $z4;
patch rect $concreteTag_2 $ny10 $nz4 $y10 $z4 $y11 $z5;
patch rect $concreteTag_2 $ny10 $nz5 $y10 $z5 $y11 $z6;
patch rect $concreteTag_2 $ny10 $nz6 $y10 $z6 $y11 $z7;
patch rect $concreteTag_1 $ny10 $nz7 $y10 $z7 $y11 $z8;

patch rect $concreteTag_1 $ny11 $nz1 $y11 $z1 $y12 $z2;
patch rect $concreteTag_1 $ny11 $nz2 $y11 $z2 $y12 $z3;
patch rect $concreteTag_1 $ny11 $nz3 $y11 $z3 $y12 $z4;
patch rect $concreteTag_1 $ny11 $nz4 $y11 $z4 $y12 $z5;
patch rect $concreteTag_1 $ny11 $nz5 $y11 $z5 $y12 $z6;
patch rect $concreteTag_1 $ny11 $nz6 $y11 $z6 $y12 $z7;
patch rect $concreteTag_1 $ny11 $nz7 $y11 $z7 $y12 $z8;

# Create the reinforcing fibers: layer straight $matTag $numFiber $areaFiber $yStart $zStart $yEnd $zEnd
# ------------------- Bars distributed along z direction -----------------------
# The bars along z direction at location of -colDepth/2;
# The basic bars at the bottom sections.
layer straight $steelTag_1 $nBarz_1 $areaBarz_1 [expr $y2] [expr -($nBarz_1-1)*$zSpace_1/2.0] [expr $y2] [expr ($nBarz_1-1)*$zSpace_1/2.0]; # Exterior;
layer straight $steelTag_1 $nBarz_1 $areaBarz_1 [expr $y3] [expr -($nBarz_1-1)*$zSpace_1/2.0] [expr $y3] [expr ($nBarz_1-1)*$zSpace_1/2.0]; # Interior;
# puts "z1rebar: [expr ($nBarz_1-1)*$zSpace_1/2.0]"
if { $type!=1 } {
# The supplemental bars at the bottom sections
layer straight $steelTag_1 $nBarz_2 $areaBarz_2 [expr $y2] [expr -($nBarz_2-1)*$zSpace_2/2.0] [expr $y2] [expr ($nBarz_2-1)*$zSpace_2/2.0]; # Exterior;
layer straight $steelTag_1 $nBarz_2 $areaBarz_2 [expr $y3] [expr -($nBarz_2-1)*$zSpace_2/2.0] [expr $y3] [expr ($nBarz_2-1)*$zSpace_2/2.0]; # Interior;
# puts "z2rebar: [expr ($nBarz_2-1)*$zSpace_2/2.0]"
}
# The bars along z direction at location of 0 center;
# The basic bars at the bottom sections.
layer straight $steelTag_1 $nBar_m $areaBar_m [expr $y6] [expr -($nBar_m-1)*$Space_m/2.0] [expr $y6] [expr ($nBar_m-1)*$Space_m/2.0]; # middle;
layer straight $steelTag_1 $nBar_m $areaBar_m [expr $y7] [expr -($nBar_m-1)*$Space_m/2.0] [expr $y7] [expr ($nBar_m-1)*$Space_m/2.0]; # middle;
# puts "zmrebar: [expr ($nBar_m-1)*$Space_m/2.0]"
# The bars along z direction at location of colDepth/2;
# The basic bars at the bottom sections.
layer straight $steelTag_1 $nBarz_1 $areaBarz_1 [expr $y10] [expr -($nBarz_1-1)*$zSpace_1/2.0] [expr $y10] [expr ($nBarz_1-1)*$zSpace_1/2.0]; # Interior;
layer straight $steelTag_1 $nBarz_1 $areaBarz_1 [expr $y11] [expr -($nBarz_1-1)*$zSpace_1/2.0] [expr $y11] [expr ($nBarz_1-1)*$zSpace_1/2.0]; # Exterior;
if { $type!=1 } {
# The supplemental bars at the bottom sections
layer straight $steelTag_1 $nBarz_2 $areaBarz_2 [expr $y10] [expr -($nBarz_2-1)*$zSpace_2/2.0] [expr $y10] [expr ($nBarz_2-1)*$zSpace_2/2.0]; # Interior;
layer straight $steelTag_1 $nBarz_2 $areaBarz_2 [expr $y11] [expr -($nBarz_2-1)*$zSpace_2/2.0] [expr $y11] [expr ($nBarz_2-1)*$zSpace_2/2.0]; # Exterior;
}
# ------------------- Bars distributed along y direction -----------------------
# The bars along y direction at location of -colWidth/2;
# The basic bars at the bottom sections.
layer straight $steelTag_1 $nBary_1 $areaBary_1 [expr -($nBary_1-1)*$ySpace_1/2.0] [expr $z2] [expr ($nBary_1-1)*$ySpace_1/2.0] [expr $z2]; # Exterior;
layer straight $steelTag_1 $nBary_1 $areaBary_1 [expr -($nBary_1-1)*$ySpace_1/2.0] [expr $z3] [expr ($nBary_1-1)*$ySpace_1/2.0] [expr $z3]; # Interior;
# puts "y1rebar: [expr ($nBary_1-1)*$ySpace_1/2.0]"

if { $type!=1 } {
# The supplemental bars at the bottom sections
layer straight $steelTag_1 $nBary_2 $areaBary_2 [expr -($nBary_2-1)*$ySpace_2/2.0] [expr $z2] [expr ($nBary_2-1)*$ySpace_2/2.0] [expr $z2]; # Exterior;
layer straight $steelTag_1 $nBary_2 $areaBary_2 [expr -($nBary_2-1)*$ySpace_2/2.0] [expr $z3] [expr ($nBary_2-1)*$ySpace_2/2.0] [expr $z3]; # Interior;
# puts "y2rebar: [expr ($nBary_2-1)*$ySpace_2/2.0]"
}
# The bars along y direction at location of colWidth/2;
# The basic bars at the bottom sections.
layer straight $steelTag_1 $nBary_1 $areaBary_1 [expr -($nBary_1-1)*$ySpace_1/2.0] [expr $z6] [expr ($nBary_1-1)*$ySpace_1/2.0] [expr $z6]; # Interior;
layer straight $steelTag_1 $nBary_1 $areaBary_1 [expr -($nBary_1-1)*$ySpace_1/2.0] [expr $z7] [expr ($nBary_1-1)*$ySpace_1/2.0] [expr $z7]; # Exterior;
if { $type!=1 } {
# The supplemental bars at the bottom sections
layer straight $steelTag_1 $nBary_2 $areaBary_2 [expr -($nBary_2-1)*$ySpace_2/2.0] [expr $z6] [expr ($nBary_2-1)*$ySpace_2/2.0] [expr $z6]; # Interior;
layer straight $steelTag_1 $nBary_2 $areaBary_2 [expr -($nBary_2-1)*$ySpace_2/2.0] [expr $z7] [expr ($nBary_2-1)*$ySpace_2/2.0] [expr $z7]; # Exterior;
}
}

all of these values are previusly defined correctly.

now in the ANALYSIS file I define the element like this (example of pier 3):

# Pier C3
# Pier Elements
set type 3;#supple
set fiberTag 31;
set C3_SuplSecTag [expr $fiberTag+100];
source pier_Sections.tcl
section Aggregator $C3_SuplSecTag $TorsionPierTag T -section $fiberTag;

element dispBeamColumn [expr 1301] [expr 301] [expr 302] $noIntPts_Supl_C3 $C3_SuplSecTag $transfTag_C;

(this is into a for routine)

In here I see that the section tag is 131. So the recorder I ask is like this:

recorder Element -file $recordsout/eleC3.out -time -ele 1301 section 131 forceAndDeformation;

I get no result. I tried this for a recorder with "deformation", "force".... and the result is the same..... blank!..

Please I need some help or orientation with this.

Thanks in advance!

[fmk]

the 'section 131' in the recorder command is the problem, you probably do not have 131 integration points. you need to specify the integration point along the element, valid numbers are 1 through $noIntPts_Supl_C3

[jovillarroelb]

OMG! Thanks!!! Now with the recorder like this:

recorder Element -file $recordsout/eleC3.out -time -ele 1301 section 1 forceAndDeformation;

I have a 9 columns file. The 1st is time but the other 8 what are? I suppose that fist 4 are from the bottom of the element and the last 4 are from the top, but what are theoy and their units? (my fundamental units are N, mm, sec)

Thanks!

[fmk]

nope. these are section quantities. instead of -file have a look at the output from -xml.