$
$****************************************       macros
$
&macro lc_doit name case num = 1
   &env %name
   &apply -force -fract @ 0 %case  %num
   lcase -static %name
&endmacro
$
$ ---------- hudson matlock #1 ----------
&macro nodlod name node x = 0 y = 0 z = 0 mx = 0 \
                        my = 0 mz = 0
&describe load %node %node
   %name %node %x %y %z %mx %my %mz
&endmacro
&m_act nodlod null
$
$****************************************       dimensions
$
&dimen -dim feet kips
$
$****************************************       describe body
$
$
*3 0 0 -100
&describe body model
&default -emo 30000 -nuse @
$
*1 0 0   5
*2 0 0   0
$
~pile1 tube 33 1.1068
~pile2 tube 33 1.1068 -soil main -refine 20 -len 55
~pile2 tube 33 1.1068 -soil main -refine 20
$
beam ~pile1 *1 *2
beam ~pile2 *2 *3
$
&data soil main
depth 0
py 0,0 0,10
depth 2.5
py 0,0 50,0.25 80,0.5 110,1.0 125,1.5 130,2.0 130,3.0
depth 5.0
py 0,0 90,0.25 150,0.5 220,1.0 250,1.5 265,2.0 275,2.5 280,3.0
depth 7.5
py 0,0 110,0.25 200,0.5 330,1.0 395,1.5 415,2.0 420,2.5 420,3.0
depth 12.5
py 0,0 160,0.25 280,0.5 435,1.0 520,1.5 560,2.0 590,2.5
depth 20.0
py 0,0 230,0.25 400,0.5 590,1.0 670,1.5 695,2.0
depth 40.0
py 0,0 430,0.25 720,0.5
depth 200.0
py 0,0 430,0.25 720,0.5
qw 0,0 100,1, 100 10
end soil
$
nodlod #loadx *1 50