Double Channel Section

[m.y]

Hi,
How can i creat a Double Channel Section or is there any ready tcl file like Wsection?
Bests

[vesna]

There is no tcl file for a double channel section. Look at example 9 from the example manual (http://opensees.berkeley.edu/wiki/index ... on_Example) to see how you can built your own section.

[m.y]

Have you ever written this section before? I need to that immediately.I really appreciate for telling me about this problem.

[vesna]

There is nothing spectacular about building a section. After you define the materials you need for your section, use fiber section command to build your own section. Here you can find info about the fiber section command: http://opensees.berkeley.edu/wiki/index ... er_Section

[m.y]

thank you.

[Amin barghaman]

Hi
I have written it before maybe this is true please check it

#Double channel section
#written by Amin barghaman
proc Doublechannel { secID matID d tw bf tf x nfdw nftw nfbf nftf } {
set dw [expr $d-2*$tf]
set b [expr $bf+$x]
set y1 [expr -$d/2]
set y2 [expr -$dw/2]
set y3 [expr $d/2]
set y4 [expr $dw/2]
set z1 [expr -$x/2]
set z2 [expr -$b/2]
set z3 [expr -$x/2-$tw]
set z4 [expr $x/2]
set z5 [expr $b/2]
set z6 [expr $x/2+$tw]
section Fiber $secID {
patch quad $matID $nfbf $nftf $y1 $z2 $y1 $z1 $y2 $z1 $y2 $z2
patch quad $matID $nfbf $nftf $y1 $z5 $y2 $z5 $y2 $z4 $y1 $z4
patch quad $matID $nfbf $nftf $y3 $z5 $y3 $z4 $y4 $z4 $y4 $z5
patch quad $matID $nfbf $nftf $y3 $z1 $y3 $z2 $y4 $z2 $y4 $z1
patch quad $matID $nfdw $nftw $y4 $z1 $y4 $z3 $y2 $z3 $y2 $z1
patch quad $matID $nfdw $nftw $y4 $z6 $y4 $z4 $y2 $z4 $y2 $z6
}
}

[m.y]

Hello;
thank you for sending double channel section but i think, (b) isn't correct. what do you think about it? i wrote double channel section in below .could you please tell me if it is correct?
# SET UP ----------------------------------------------------------------------------
wipe; # clear memory of all past model definitions
model BasicBuilder -ndm 2 -ndf 3; # Define the model builder, ndm=#dimension, ndf=#dofs
set dataDir Data; # set up name of data directory -- simple
file mkdir $dataDir; # create data directory
source LibUnits.tcl; # define units

# MATERIAL parameters -------------------------------------------------------------------
# define MATERIAL properties ----------------------------------------
set Fy [expr 34.28*$ksi]
set E0 [expr 30000*$ksi]; # Steel Young's Modulus
set b 0.03;
set a1 0.0005
set a2 0.01
set a3 0.0005
set a4 0.01
set matTag 1
uniaxialMaterial Steel01 $matTag $Fy $E0 $b <$a1 $a2 $a3 $a4>

# Structural-Steel double-section properties -------------------------------------------------------------------
set SecTag 1
set Double section 220

# from Steel Manuals:
# in × lb/ft Area (in2) d (in) bf (in) tf (in) tw (in) Ixx (in4) Iyy (in4)
# double section 220 11.59 8.66 3.14 0.49 0.35 129.25 131.48
set d [expr 8.66*$in]; # nominal depth
set tw [expr 0.35*$in]; # web thickness
set bf [expr 3.14*$in]; # flange width
set tf [expr 0.49*$in];# flange thickness
set ax [expr 4.80*$in];# the between distance of double channel
set nfdw 10;# number of fibers along web depth
set nftw 3; # number of fibers along web thickness
set nfbf 10;# number of fibers along flange width
set nftf 3; # number of fibers along flange thickness

set dw [expr $d - 2 * $tf]
set y1 [expr -$d/2]
set y2 [expr -$dw/2]
set y3 [expr $dw/2]
set y4 [expr $d/2]

set z1 [expr $ax/2]
set z2 [expr -$ax/2]
set z3 [expr $tw+$ax/2]
set z4 [expr $ax/2+$bf]
set z5 [expr -$ax/2-$bf]
set z6 [expr -$tw-$ax/2]

#
section fiberSec $SecTag {
# nfIJ nfJK yI zI yJ zJ yK zK yL zL
patch quadr $matTag $nfbf $nftf $y1 $z4 $y1 $z1 $y2 $z1 $y2 $z4
patch quadr $matTag $nftw $nfdw $y2 $z3 $y2 $z1 $y3 $z1 $y3 $z3
patch quadr $matTag $nfbf $nftf $y3 $z4 $y3 $z1 $y4 $z1 $y4 $z4
patch quadr $matTag $nfbf $nftf $y1 $z2 $y1 $z5 $y2 $z5 $y2 $z2
patch quadr $matTag $nftw $nfdw $y2 $z2 $y2 $z6 $y3 $z6 $y3 $z2
patch quadr $matTag $nfbf $nftf $y3 $z2 $y3 $z5 $y4 $z5 $y4 $z2

}

[vesna]

Yes, it is.

[m.y]

I really appreciate you.have nice day