Traction boundary conditions in spd/tcl files
Posted: Sat Aug 19, 2023 2:55 am
Hi,
I would like to set traction boundary conditions (ts1, ts2, tn) for a 3D problem. The traction is applied to element surface and, in spd file, I specify:
[spd file]
<!-- Traction boundary conditions -->
<condition n="Trac_Bc" pn="Traction boundary conditions" ov="surface" ovm="" icon="darkorange-weight-18" groups_icon="yelowish-group" help="Concentrated mass">
<value n="Ts1" pn="Shear Traction 1" v="0.0" help="Specify Ts1"/>
<symbol proc="gid_groups_conds::draw_symbol_image weight-18.png" orientation="global"/>
<value n="Ts2" pn="Shear Traction 2" v="0.0" help="Specify Ts2"/>
<symbol proc="gid_groups_conds::draw_symbol_image weight-18.png" orientation="global"/>
<value n="Tn" pn="Normal Traction" v="0.0" help="Specify Tn"/>
<symbol proc="gid_groups_conds::draw_symbol_image weight-18.png" orientation="global"/>
</condition>
For my input file, I need to write the following information:
* Number of elements (element faces) specified by traction boundary conditions.
* Node numbers (connectivity information) on the loaded face
* Value of normal traction
[tcl file]
customlib::WriteString "Traction Boundary Conditions"
customlib::WriteString "nsurface/ie connectivites Tn "
set list2 [list "Trac_Bc"]
set condition_formats [list {"%10d" "element" "id"} {"%10d" "element" "connectivities"} {"%13.5e" "property" "Tn"}]
set format_tn [customlib::GetElementsFormats $list2 $condition_formats]
set number_of_loaded_elements [GiD_WriteCalculationFile elements -count $format_tn]
customlib::WriteConnectivities $list2 $format_tn "" active
Could you please point out what I am missing here?
Kenji Furui
I would like to set traction boundary conditions (ts1, ts2, tn) for a 3D problem. The traction is applied to element surface and, in spd file, I specify:
[spd file]
<!-- Traction boundary conditions -->
<condition n="Trac_Bc" pn="Traction boundary conditions" ov="surface" ovm="" icon="darkorange-weight-18" groups_icon="yelowish-group" help="Concentrated mass">
<value n="Ts1" pn="Shear Traction 1" v="0.0" help="Specify Ts1"/>
<symbol proc="gid_groups_conds::draw_symbol_image weight-18.png" orientation="global"/>
<value n="Ts2" pn="Shear Traction 2" v="0.0" help="Specify Ts2"/>
<symbol proc="gid_groups_conds::draw_symbol_image weight-18.png" orientation="global"/>
<value n="Tn" pn="Normal Traction" v="0.0" help="Specify Tn"/>
<symbol proc="gid_groups_conds::draw_symbol_image weight-18.png" orientation="global"/>
</condition>
For my input file, I need to write the following information:
* Number of elements (element faces) specified by traction boundary conditions.
* Node numbers (connectivity information) on the loaded face
* Value of normal traction
[tcl file]
customlib::WriteString "Traction Boundary Conditions"
customlib::WriteString "nsurface/ie connectivites Tn "
set list2 [list "Trac_Bc"]
set condition_formats [list {"%10d" "element" "id"} {"%10d" "element" "connectivities"} {"%13.5e" "property" "Tn"}]
set format_tn [customlib::GetElementsFormats $list2 $condition_formats]
set number_of_loaded_elements [GiD_WriteCalculationFile elements -count $format_tn]
customlib::WriteConnectivities $list2 $format_tn "" active
Could you please point out what I am missing here?
Kenji Furui