tcl procedure for creating a Box steel fiber section

If you have a script you think might be useful to others post it
here. Hopefully we will be able to get the most useful of these incorporated in the manuals.

Moderators: silvia, Moderators

tcl procedure for creating a Box steel fiber section

Postby hshoar » Thu Oct 10, 2013 1:42 am

# boxSec.tcl: tcl procedure for creating a Box steel fiber section
# written: Hamed Shoarian Sattari ### hshoar@yahoo.com
# date: 10/2013
#---
#--- input parameters
# secID = section ID number
# matID = material ID number
# h = box height (z direction)
# w = box width (y direction)
# t = thickness
# nfh = number of fibers along box height
# nfw = number of fibers along box width
# nft = number of fibers along thickness
proc boxSec { secID matID h w t nfh nfw nft} {
set a [expr $w/2]
set b [expr $h/2]
set c [expr ($w/2)-$t]
set d [expr ($h/2)-$t]
#---
section Fiber $secID {
#--- patch rect $matTag $numSubdivY $numSubdivZ $yI $zI $yJ $zJ
patch rect $matID $nft $nfh -$a -$b -$c $b
patch rect $matID $nft $nfh $c -$b $a $b
patch rect $matID $nfw $nft -$c -$b $c -$d
patch rect $matID $nfw $nft -$c $d $c $b
}
}
hshoar
 
Posts: 26
Joined: Wed Sep 12, 2012 5:45 am
Location: Sience and Research branch of IAU

Re: tcl procedure for creating a Box steel fiber section

Postby Hancadatt » Thu Jun 08, 2017 2:20 pm

It's good, thanks.
Hi all, i'm Hancadatt.

رجيم صحي

مدونة رجيم وصحة افضل الانظمة الغذائية الوصفات والخلطات الطبيعية للعناية بالبشرة والشعر
الاهتمام بالشعر

العناية بالبشرة
Hancadatt
 
Posts: 2
Joined: Tue May 30, 2017 3:08 pm


Return to Useful Scripts.

Who is online

Users browsing this forum: No registered users and 1 guest

cron