...
| Code Block | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
<O N="FEM" T="Group">
<O N="FEProperties" T="Group">
<O N="RigidMat" T="Material">
<P N="E" V="29000" D="Modulus of Elasticity" />
<P N="G" V="11200" D="Shear Modulus" />
<P N="d" V="0" D="Unit Weight" />
</O>
<O N="RigidSec" T="Section" w="240" h="240" Ax="w * h" Ay="(5/6)*Ax" Az="Ay" b="(w .GT. h ? h : w)" J="1000000000" Iy="h * w * w * w / 12" Iz="w * h * h * h / 12" Izy="0" a="(w .GT. h ? w : h)">
<P N="Material" V="RigidMat" T="Material" />
</O>
<O N="RectangularPierSec" T="Section">
<P N="Material" V="PierMaterial" T="Material" />
<O T="Shape">
<O T="Point" X="ColW/2" Y="ColT/2" />
<O T="Point" X="-ColW/2" Y="ColT/2" />
<O T="Point" X="-ColW/2" Y="-ColT/2" />
<O T="Point" X="ColW/2" Y="-ColT/2" />
</O>
</O>
</O>
<O N="Column" T="Group" Alignment="ObjAlignment" AlignH="Orient" AlignV="Warp" AlignT="Ignore">
<O N="P_Node1" T="Node" Z="LocZ" X="CenterCoord[0]" Y="CenterCoord[1]" AlignV="Fixed">
<P N="Tx" V="-1" />
<P N="Ty" V="-1" />
<P N="Tz" V="-1" />
<P N="Rx" V="-1" />
<P N="Ry" V="-1" />
<P N="Rz" V="-1" />
</O>
<P N="RTopZ" V="alignV(ObjAlignment,CenterCoord[0],CenterCoord[1])" />
<P N="LLength" V="(CenterCoord[2]+RTopZ-LocZ)/mesh" />
<O N="PierFERep" T="Repeat" S="0" E="mesh-1" I="1" CTRL="index" index="0">
<O N="P_Node2" T="Node" Z="LocZ+(index+1)*LLength" Y="CenterCoord[1]" X="CenterCoord[0]" AlignV="Fixed" />
<O N="PierFE" T="FELine" BetaAngle="PI">
<P N="Node1" V="iif(index.EQ. 0, P_Node1,PierFERep[index-1].P_Node2)" T="Node" />
<P N="Node2" V="P_Node2" T="Node" />
<P N="Section" V="PierSec" T="Section" />
</O>
</O>
<O N="P_Node2" T="Node" Z="CenterCoord[2]" X="CenterCoord[0]" Y="CenterCoord[1]" />
<O N="PierFE" T="FELine">
<!-- beta angle? -->
<P N="Node1" V="P_Node1" T="Node" />
<P N="Node2" V="P_Node2" T="Node" />
<P N="Section" V="RectangularPierSec" T="Section" />
</O>
<P N="colTopPt" V="onliney(toglobal(sbcr.PedestalRefLine), x.LocY)" />
<P N="colBotPt" V="onliney(toglobal(sbcr.ColumnRefline), x.LocY)" />
<O N="P_Node3" T="Node" Z="colTopPt[2]" Y="LocY" X="CenterCoord[0]" />
<O N="PierFE" T="FELine">
<P N="Node1" V="PierFERep[E].P_Node2" T="Node" />
<P N="Node2" V="P_Node3" T="Node" />
<P N="Section" V="RigidSec" T="Section" />
</O>
</O>
</O> |
...